¼±ÐèÇë½Ì¸÷λ´óÏÀASP·ÖÒ³ÏÔʾÎÊÌâ - Web ¿ª·¢ / ASP
СµÜ³õѧASP£¬×î½üÔÚ×öÒ»¸öÍøÕ¾Óöµ½·ÖÒ³ÏÔʾµÄÎÊÌ⣬¶Ô·ÖÒ³´úÂë²»´ó¶®¼±Ðè¸÷λ´óÏÀÖ¸½Ì¡£ÏÂÃæÊÇСµÜ×öµÄÍøÒ³´úÂ룬ÀïÃæµÄÊý¾Ý¼Ç¼·ÖÒ³ÏÔʾ´úÂë²»ÖªµÀÄijö´íÁË¡£
<%
' ×¢ÊÍ£º´´½¨²¢³õʼ»¯Recordset¶ÔÏó
Set rst = Server.CreateObject("ADODB.Recordset")
rst.ActiveConnection = Conn
rst.Source = "SELECT * from ¹ý³Ì¿¨1 where ljbh='"& ljbh &"'order by gxh asc"
rst.CursorType =1 ' Ö¸ÕëÀàÐÍΪ¾²Ì¬Ö¸Õë
rst.Open
rst.PageSize =5 ' Ò»Ò³ÏÔʾ20Ìõ¼Ç¼
' ×¢ÊÍ£º¸ù¾ÝÍøÒ³²ÎÊýDisplayPageÈ·¶¨µ±Ç°ÏÔʾҳ
If Request("DisplayPage") = "" then ' ûÓÐDisplayPage²ÎÊý
CurPage = 1 ' ¶¨ÒåÒªÏÔʾµÄÒ³Âë
Else
CurPage = CInt(Request("DisplayPage"))
End if
rst.AbsolutePage = CurPage ' Ö¸ÕëÖ¸Ïòµ±Ç°Ò³µÄµÚÒ»Ìõ¼Ç¼
' ×¢ÊÍ£º¸ù¾Ýµ±Ç°Ò³ÂëºÍÒ³Âë×ÜÊý£¬ÖÆ×÷·ÖÒ³µ¼º½Ìõ
ShowL1 = True : ShowL2 = True : ShowL3 = True : ShowL4 = True ' ¸³³õÖµ
If rst.PageCount < 2 Then ' ×ÜÒ³ÊýΪ1ʱ£¬²»ÏÔʾ·ÖÒ³µ¼º½Ìõ
ShowL1 = False : ShowL2 = False : ShowL3 = False : ShowL4 = False
ELse ' Èç¹ûÓжàÒ³
Select Case CurPage
Case 1 ' µ±Ç°Ò³ÂëΪ1£¬Ö»ÐèÏÔʾÏÂÒ»Ò³ºÍ×îºóÒ»Ò³
ShowL1 = False : ShowL2 = False
Case rst.PageCount ' Ò
Ïà¹ØÎÊ´ð£º
aspÐéÄâÖ÷»úʵÏÖα¾²Ì¬µÄ·½·¨£º
1¡¢ ÖØÐ´url²ÎÊý
Step1: ½¨Á¢Ç°Ì¨Îļþindex.asp£¬ÐÞ¸Äurl²ÎÊýÐÎʽ¡£ÓÉÓÚ¶ÁÈ¡Êý¾Ý¿âÖеļǼ²»ÊÇרÌâµÄÖØµã£¬¹ÊÖ±½Ó¸ø³ö:
<!--#include file="config.asp" -->
&l ......
¾ÍÊÇÒ»¸ö°´Å¥£¬µã»÷Ö®ºó´ò¿ª¶Ô»°¿ò£¬È»ºóѡȡͼƬ¡£¾ÍÕâÑùÉÏ´«¡£¡£
ÔõôʵÏÖ¡£ÔÚÍøÉÏËѵ½ÄÇô¶àµÄ´úÂ룬ȫÊǺܶàµÄÄÇÖÖ£¬²»ÖªµÀ£¬¿´²»ÏÂÈ¥¡£
ËùÒÔÔÚÕâÀïÏëÇë´ó¸ç´ó½ã°ï°ïæ¡£
ʹÓÃ×Ô´øµÄfileupload¿Ø¼þ¿ÉÒÔʵÏÖ ......
¹ØÓÚÍøÕ¾°²È«µÄÎÊÌ⣡
ÎÒÁ˽⵽µÄÍøÕ¾°²È«ÎÊÌâ°üÀ¨£º
sql×¢Èë©¶´ºÍ±©¿â©¶´»¹ÓÐÉÏ´«Â©¶´
³ýÁËÕâЩ»¹ÓÐÆäËûµÄ©¶´Ã´£¿
×¢Èë©¶´¿ÉÒÔͨ¹ý¹ýÂËÀ´·ÀÖ¹
±©¿â©¶´Ôõô·ÀÖ¹
»¹ÓÐÈËÉÏ´«µÄľÂíÊÇ.gif
ÕâÖÖ©¶´Ôõôȥ± ......