Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ASPÏîÄ¿ÖеĹ«¹²·­Ò³Ä£¿é

ÔÚ´óÐ͵ÄASPÏîÄ¿ÖУ¬ºÜ¶àµÄÒ³Ãæ¶¼Éæ¼°µ½·­Ò³¹¦ÄÜ¡£Èç¹ûÿ¸öÒ³Ãæ¶¼Ð´Ò»¸ö·­Ò³µÄ³ÌÐòµÄ»°£¬ÕâÑùµÄ¹¤×÷¼´½µµÍÁ˹¤×÷Ч
ÂÊ£¬Ò²²»ÀûÓÚ¹¤³ÌµÄÄ£¿é»¯£¬²»ÄÜʹ´úÂëÖØÓá£Òò´Ë£¬°Ñ·­Ò³ÕâÑùµÄ¹¦ÄÜÄ£¿é»¯ÊǺÜÓбØÒªµÄ¡£
¡¡¡¡Éè¼Æ·½·¨£º
¡¡¡¡1¡¢µ÷ÓøÃÄ£¿éʱ£¬Ö»ÐèÒª´«µÝ¼Ç¼¼¯ºÍÿҳÏÔʾµÄ¼Ç¼µÄÌõÊý£»
¡¡¡¡2¡¢¿ÉÒÔµã»÷Á´½Ó½øÐз­Ò³£¬Ò²¿ÉÒÔÖ±½ÓÊäÈëÒ³Â룬»Ø³µºó·­Ò³£»
¡¡¡¡3¡¢²»Òª¿¼ÂÇÎļþÃû£¬³ÌÐòµÄÿ´Î·­Ò³¶¼ÄÜÔÚµ±Ç°Ò³Ãæ¡£
¡¡¡¡ÏëÇå³þÁËÉÏÃæ3¸öÎÊÌ⣬ÎÒÃǵĹ«¹²·­Ò³Ä£¿é¾Í¿ÉÒÔ¶¯ÊÖÁË¡£
<%
'+++++++++++++++++++++++++++++++++++++
'¡ôÄ£¿éÃû³Æ£º ¹«¹²·­Ò³Ä£¿é
'¡ôÎÄ ¼þ Ãû£º TurnPage.asp
'¡ô´«Èë²ÎÊý£º Rs_tmp (¼Ç¼¼¯), PageSize (ÿҳÏÔʾµÄ¼Ç¼ÌõÊý)
'¡ôÊä ³ö£º ¼Ç¼¼¯·­Ò³ÏÔʾ¹¦ÄÜ
'+++++++++++++++++++++++++++++++++++++
'
Sub TurnPage(ByRef Rs_tmp,PageSize) 'Rs_tmp ¼Ç¼¼¯ ; PageSize ÿҳÏÔʾµÄ¼Ç¼ÌõÊý;
Dim TotalPage '×ÜÒ³Êý
Dim PageNo 'µ±Ç°ÏÔʾµÄÊǵڼ¸Ò³
Dim RecordCount '×ܼǼÌõÊý
Rs_tmp.PageSize = PageSize
RecordCount = Rs_tmp.RecordCount
TotalPage = INT(RecordCount / PageSize * -1)*-1
PageNo = Request.QueryString ("PageNo")
'Ö±½ÓÊäÈëÒ³ÊýÌø×ª£»
If Request.Form("PageNo")<>"" Then PageNo = Request.Form("PageNo")
'Èç¹ûûÓÐÑ¡ÔñµÚ¼¸Ò³£¬ÔòĬÈÏÏÔʾµÚÒ»Ò³£»
If PageNo = "" then PageNo = 1
If RecordCount <> 0 then
Rs_tmp.AbsolutePage = PageNo
End If
'»ñÈ¡µ±Ç°ÎļþÃû£¬Ê¹µÃÿ´Î·­Ò³¶¼ÔÚµ±Ç°Ò³Ãæ½øÐУ»
Dim fileName,postion
fileName = Request.ServerVariables("script_name")
postion = InstrRev(fileName,"/")+1
'È¡µÃµ±Ç°µÄÎļþÃû³Æ£¬Ê¹·­Ò³µÄÁ´½ÓÖ¸Ïòµ±Ç°Îļþ£»
fileName = Mid(fileName,postion)
%>
<table border=0 width='100%'>
<tr>
<td align=left> ×ÜÒ³Êý£º<font color=#ff3333><%=TotalPage%></font>Ò³
µ±Ç°µÚ<font color=#ff3333><%=PageNo%></font>Ò³</td>
<td align="right">
<%If RecordCount = 0 or TotalPage = 1 Then
Response.Write "Ê×Ò³|ǰҳ|ºóÒ³|ĩҳ"
Else%>
<a href="<%=fileName%>?PageNo=1">Ê×Ò³|</a>
<%If PageNo - 1 = 0 Then
Response.Write "ǰҳ|"
Else%>
<a href="<%=fileName%>


Ïà¹ØÎĵµ£º

2¡¢´¿ASP´úÂëÉú³Éͼ±íº¯Êý——Öùͼ

2¡¢´¿ASP´úÂëÉú³Éͼ±íº¯Êý——Öùͼ
<%
dim total(12,2)
total(1,1)=56
total(2,1)=7
total(3,1)=-7
total(4,1)=0
total(5,1)=16
total(6,1)=10
total(7,1)=14
total(8,1)=7
total(9,1)=9
total(10,1)=7
total(11,1)=11
total(12,1)=14
total(1,2)="µØÀí"
total(2,2)="»¯Ñ§"
total(3,2)="ÀúÊ· ......

ASP ³£Óú¯Êý»ýÀÛ

LBound() º¯Êý: ·µ»ØÖ¸¶¨µÄÊý×éά¿ÉÓõÄ×îСϱꡣ
UBound() º¯Êý: ·µ»ØÖ¸¶¨µÄÊý×éά¿ÉÓõÄ×î´óϱꡣ
InStr([start, ]string1, string2[, compare]) ·µ»Ø×Ö·û»ò×Ö·û´®ÔÚÁíÒ»¸ö×Ö·û´®ÖеÚÒ»´Î³öÏÖµÄλÖÃ
InStrRev()º¯Êý ·µ»ØÄ³×Ö·û´®ÔÚÁíÒ»¸ö×Ö·û´®ÖÐ×îºó³öÏÖµÄλÖÃ
CDate() º¯Êý¿É°ÑÒ»¸öºÏ·¨µÄÈÕÆÚºÍʱ¼ä±í´ïʽת»»Îª ......

ASPÓëJSPµÄ±È½Ï

ASPÓëJSPµÄ±È½Ï
´Ó΢ÈíÍÆ³öÁËASP(ActiveServerPage)ºó£¬ËüÒÔÆäÇ¿´óµÄ¹¦ÄÜ£¬¼òµ¥Ò×ѧµÄÌØµã¶øÊܵ½¹ã´óWEB¿ª·¢ÈËÔ±µÄϲ»¶¡£µ«ÊÇËüÈ´ÓÐ΢Èí²úÆ·µÄͨ²¡,Ö»ÄÜÔÚWindowsƽ̨ÏÂʹÓã¬ËäÈ»Ëü¿ÉÒÔͨ¹ýÔö¼Ó¿Ø¼þ¶øÔÚLINUXÏÂʹÓ㬵«ÊÇÆä¹¦ÄÜ×îÇ¿´óµÄDCOM¿Ø¼þÈ´²»ÄÜʹÓ᣶øSUN¹«Ë¾ÔÚJAVAµÄ»ù´¡Ï¿ª·¢³öµÄJSP(Java ServerPages)ʵÏÖÁ˶ ......

asp·ÖÒ³´úÂë

 <%'¿ªÊ¼·ÖÒ³
    Const MaxPerPage=25
       dim totalPut  
       dim CurrentPage
       dim TotalPages
       dim j
     ......

ASPÀàµÄ±àд

ASPÀà
£½£½£½£½£½£½£½£½£½
ʹÓÃVBSµÄASPÒ²Äܶ¨ÒåÀàµÄ£¡±¾ÎĽ«½éÉܶ¨Ò塢ʹÓÃÀàµÄ»ù±¾·½·¨¡£
ÔÚASP£¨ÌØÖ¸Ê¹ÓÃVBSµÄASP£¬ÏÂͬ£©ÀʹÓÃClassÓï¾äÀ´ÉùÃ÷Ò»¸öÀà¡£Óï·¨ÈçÏ£º
Class ˈ̞
End Class
ÀàµÄ¶¨Òå¡¢±äÁ¿¡¢ÊôÐԺͷ½·¨µÈ¶¼°üº¬ÔÚClass...End Class¿éÖС£
ÏÂÃæ¾Í¿ÉÒÔ¶¨ÒåÀàµÄÊôÐԺͷ½·¨ÁË¡£Õýʽ½²ÊôÐÔ¡¢·½·¨µ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ