关于较长文章手动分页的实现方法

‘*************************************
‘Code By hooline 2006.5.18
‘Email:hooline#gmail.com
‘Msn:peace.zhou#msn.com
‘**************************************
Dim szArray,page
Dim objRs,strSql,sContent
dim j
page = request.querystring(“page”)
strSql = “select * from Articles where Aid=”&Request(“Aid”)
Set objRs = server.CreateObject(“adodb.recordset”)
objRs.open strSql,objConn,3,1
If Not objRs.eof Then
sContent = objRs(“ArticleContent”)
szArray = Split(sContent,”$page”)
If UBound(szArray)>=1 Then
If page=”” Or IsNull(page) Or (Not IsNumeric(page)) Then
page=1
End if
response.write szArray(page-1)
response.write “<br />”
response.write “分页: ”
For j=0 To UBound(szArray)
response.write “<a href=’ShowArticle.asp?AId=”&Request(“AId”)&”&page=”&j+1&”‘>”&j+1&”</a> ”
next
else
response.write szArray(0)
End if
Else
response.write “no record”
End If

objRs.close
Set objRs=Nothing