¼±ÐèÇë½Ì¸÷λ´óÏÀ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 ' Ò
Ïà¹ØÎÊ´ð£º
ÎÒÓÐÁ½¸ödropdownlist¶¼°óºÃÁËÖµ£¬ÏëÑ¡ÖÐÒ»¸ödropdownlistÖеÄÖµ£¬È»ºóÔÚÁíÒ»¸ödropdownlistÖÐÑ¡ÖÐÏàÓ¦µÄÒ»Ïî¡£
²»ÊÇ´Óа󶨵ڶþ¸ödropdownlist£¬ÊÇÔÚÒѾ°óºÃµÄÖµµ±ÖÐÑ¡ÖÐÒ»¸ö¡£
ÎÒÏëÓÃjsд
ÇóÖú
Äã¿ÉÒÔ°Ñdrop ......
¹ØÓÚÍøÕ¾°²È«µÄÎÊÌ⣡
ÎÒÁ˽⵽µÄÍøÕ¾°²È«ÎÊÌâ°üÀ¨£º
sql×¢Èë©¶´ºÍ±©¿â©¶´»¹ÓÐÉÏ´«Â©¶´
³ýÁËÕâЩ»¹ÓÐÆäËûµÄ©¶´Ã´£¿
×¢Èë©¶´¿ÉÒÔͨ¹ý¹ýÂËÀ´·ÀÖ¹
±©¿â©¶´Ôõô·ÀÖ¹
»¹ÓÐÈËÉÏ´«µÄľÂíÊÇ.gif
ÕâÖÖ©¶´Ôõôȥ± ......
ÏÖÓÐÒ»¸ö±í¸ñ£¬ÓкܶàÐÐÊý×é¡£
ÏëÒªÒ»¸ö½Å±¾£¬¶ÁÈ¡ËùÓÐÐеÄÊý×éºóÊä³ö¡£
Êä³öǰ²»ÏÔʾÕý³£Ë³ÐòµÄ±í¸ñÊý×飬¶øÖ±½ÓÏÔʾ³ö¶ÁÈ¡ºóµÄÊý×é¡£
Â¥Ö÷µÄ±í´ïʵÔÚ³ÉÎÊÌ⣡£¡
ÊDz»ÊÇÕâ¸öÒâ˼£¿
<%
Dim ArrDNA£¨10£¬10£ ......
O O O O O O
|.......| |........| |.......|
| | |
O O ......
ÀàËÆÌÔ±¦Ò³ÃæÉϵÄ
http://www.taobao.com/
×îºÃÓÐÔ´Âë »òÕß˵µÄÏêϸµã лл ~
ʲô½Ð¶¯Ì¬¹ã¸æ£¿
²»Ã÷°×
µ¯³öÒ»¸ö¿ò£¿
ÀûÓÃJsÎļþ°É£¬°Ñ¹ã¸æÉú³Éjs
aspx:
<%@ Page Language="C#" AutoEventWi ......