ASPÎÄÕÂÄÚÈÝ·ÖÒ³

̤ÀË

<%
dim articleStr,CurrentPage,Maxlen,totalLen,i,j,n
articleStr="Ò»ÃæÔÚÕþ²ßµÄ´óÊ÷ϳËÁ¹£¬Ò»ÃæÓÖÏëÄ÷áºñµÄ»Ø±¨£¬°ÑÌìϺÃʶ¼Õ´¹â£¬»¹µÃ±ðÈ˱Õ×죬²»ËµÏл°£¬ÕâÊÇÔõÑùÒ»ÖÖÂß¼­£¿¸üºÎ¿ö£¬ÕæÒª¶ÔµçÁ¦Ö°¹¤ÊÕÈë×ö³ö¹«ÕýºÏÀíµÄ¼ø¶¨£¬Ò²Ã»µç¼à»áʲôÊ£¬ÄÄÓÐ×óÊÖΪÓÒÊֱ绤µÄ£¬º¦ëý²»º¦ëý£¿." 'articleStrΪÎÄÕÂÄÚÈÝ¡£
'ÒÔϾÍÊǶÔarticleStr½øÐзÖÒ³
Maxlen=10
totalLen=len(articleStr)
if totalLen mod Maxlen = 0 then
pageCounts=fix(totalLen/Maxlen)
else
pageCounts=fix(totalLen/Maxlen)+1
end if
Response.write "×ÜÒ³Êý£º"&pageCounts&"<br>"
CurrentPage=Request("page")
if CurrentPage="" then
CurrentPage=1
end if
if Clng(CurrentPage)>pageCounts then CurrentPage=pageCounts
i=(CurrentPage-1)*Maxlen+1
j=Maxlen
Response.write mid(articleStr,i,j)&"<br>"
if CurrentPage<2 then
Response.write "Ê×Ò³ ÉÏÒ»Ò³"
else
Response.write "<a href='?page=1'>Ê×Ò³</a> <a href='?page="&Cint(CurrentPage)-1&"'>ÉÏÒ»Ò³</a>"
end if
if CurrentPage>3 then Response.write"..."
for n = CurrentPage-3 to CurrentPage+3
if n>0 and Clng(n)<=pageCounts then
Response.write"<a href='?page="&n&"'>["&n&"]</a> "
end if
next
if CurrentPage+3<pageCounts then Response.write"..."
if Clng(CuttentPage)=pageCounts then
Response.write "ÏÂÒ»Ò³ Ä©Ò³"
else
Response.write "<a href='?page="&Cint(CurrentPage)+1&"'>ÏÂÒ»Ò³</a> <a href='?page="&Cint(pageCounts)&"'>Ä©Ò³</a>"
end if
%>
ÒýÓõØÖ·:http://zhidao.baidu.com/question/22855654.html