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%>
Ïà¹ØÎĵµ£º
<%
Option Explicit
'Êý¾Ý¿â½á¹¹£º
'location
'±í1 loaction ËùÔÚµÄÊÐ ±í
' ×Ö¶Î
' loactionid £¨Ö÷¼ü£©
' loactionname Ãû×Ö
'±í2 district ËùÔÚµÄÏØ ±í
' ×Ö¶Î
' locationid £¨Ö÷¼ü£©
' districtid
'&n ......
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)="ÀúÊ· ......
¿Í»§¶Ë½Å±¾£º<script language="scriptlanguage"></script>
·þÎñÆ÷¶Ë½Å±¾£º<% ......%>
VbscriptÊÇvisual basicµÄÒ»¸ö×Ó¼¯£¬ËäÈ»ÏÞÖÆÁË¿ÉÒÔʹÓõÄÄÚÖú¯ÊýµÄÊýÁ¿£¬µ«ÊÇҲʹµÃËû·Ç³£Ð¡ÇÉ£¬´Ó¶øÌá¸ßÁË¿ÉÒÆÖ²ÐÔ
VariantÊÇvbscriptµÄΨһÊý¾ÝÀàÐÍ£¬ÓÐ13ÖÖ×ÓÀàÐÍ£º
Empty,Null,Boolean,Byte,Integer,Curre ......
<style type="text/css">
.container, .container *{margin:0; padding:0;}
.container{width:325px; height:287px; overflow:hidden;position:relative; margin-left:5px; margin-top:6px;}
.slider{position:absolute;}
.slider li{ list-style:none;display:inline;}
.slider img{ width:325px; height:287p ......
ASPÀà
£½£½£½£½£½£½£½£½£½
ʹÓÃVBSµÄASPÒ²Äܶ¨ÒåÀàµÄ£¡±¾ÎĽ«½éÉܶ¨Ò塢ʹÓÃÀàµÄ»ù±¾·½·¨¡£
ÔÚASP£¨ÌØָʹÓÃVBSµÄASP£¬ÏÂͬ£©ÀʹÓÃClassÓï¾äÀ´ÉùÃ÷Ò»¸öÀà¡£Óï·¨ÈçÏ£º
Class ˈ̞
End Class
ÀàµÄ¶¨Òå¡¢±äÁ¿¡¢ÊôÐԺͷ½·¨µÈ¶¼°üº¬ÔÚClass...End Class¿éÖС£
ÏÂÃæ¾Í¿ÉÒÔ¶¨ÒåÀàµÄÊôÐԺͷ½·¨ÁË¡£Õýʽ½²ÊôÐÔ¡¢·½·¨µ ......