asp°æ³¤ÎÄÕ·ÖÒ³

 <%
'ÒÔϲ¿·ÖÊÇÑéÖ¤Ìá½»µÄpageÊÇ·ñΪºÏ·¨µÄ²ÎÊý
'Õⲿ·Ö×îºÃÅжÏÒ»ÏÂÌá½»µÄ²ÎÊýÊÇ·ñΪÊýÖµ×Ö·û
dim page
page=Trim(request("page"))
If page="" Then
page=1
Elseif CInt(page)<=0 then
page=1
else
page=CInt(page)
End If
'½øÐвéѯ£¬È¡³öÒªÏÔʾµÄ¼Ç¼
  str=rs1("content")
'°Ñ³öÈ¡À´µÄ¼Ç¼·ÅÈëÊý×é
dim strtmp
if(Instr(str,"</p>")>0) then
strtmp=Split((str),"</P>")
else
strtmp=Split((str),"<BR>")
end if
'È¡³öÒªÏÔʾµÄ¼Ç¼£¬Í¬Ê±µÃµ½Ò³Êý
Dim n,tmp,i,j,tt
n=1000
i=0
j=0
Do While i<=ubound(strtmp)
    tmp=strtmp(i)
    tt=true
    Do While tt
   If i>=ubound(strtmp) then
     tt=false
  j=j+1
    elseif Len(tmp)>=n Then
     tt=false
  j=j+1
   ElseIf Len(tmp)+Len(strtmp(i+1))>=n Then
     tt=false
  j=j+1
   Else
     tmp=tmp+"<br>"+strtmp(i+1)
  i=i+1
   End If
Loop
    if page=j then  str=tmp+"<br>"
i=i+1
Loop
'Åжϴ«Ë͵IJÎÊýÊÇ·ñÔ½½ç,Èç¹ûÔ½½ç£¬ÔòÈ¡µÃ×îºóÒ»Ò³µÄÄÚÈÝ
if page>j then
str=tmp
end if
'ÏÔʾ·ÖÒ³ÄÚÈÝ
'×¢Òâ´«µÝµÄ²ÎÊý£¬ÕâÀïÖ»´«µÝÁËpage£¬Èç¹ûÓÐÆäËü²ÎÊýÒªÒ»Æ𴫵ݵģ¬·ñÔò·ÖÒ³ºó²»ÏÔʾÁË
response.write str
%>
                                    </span>
                                    <div align="center" class="STYLE4">
<%
response.write "<br>"
For n=1 To j
if j<>1 then
if n=page then
response.write "&