ldontthinkso:ASP 分页 程序

<!--#include file=conn.asp-->
<%
sql="select top 30 *from [data] order by n_id desc"
set rs=server.createobject("adodb.recordset")
rs.open,sql,conn,1,3
if not rs.eof then
pages=30
rs.pagesize=page
allpages=rs.pagecount
page=request.querystring("page")

if isEmpty(page) or Cint(page) ＜ 1 then
page = 1
elseif Cint(page) ＞ allPages then
page = allPages
end if
rs.AbsolutePage = page

do while not rs.eof and pages>0%>
<% response.write"<a href=disply.asp?n_id="&rs("n_id")&"><li>"&"["&rs("n_class")&"]"&left(rs("n_title"),30)&"</li></a>"

pages=pages-1
rs.movenext
loop
else
response.write("not data")
end if

rs.Close
Set rs = Nothing

SUB pageUrl(pUrl)
Dim eUrl
txts = Request.ServerVariables("URL")
txts = left(txts,instrrev(txts,"/",len(txts))-1)
eUrl = "http://"; & Request.ServerVariables("server_name") & txts
For i =1 to allpages
txt = ""
txt = "<strong>"
txt = txt & "<a href=" & eUrl & pUrl & "page="&i & ">"
if i = Cint(Page) then txt = txt & "<font color=’bb0000’>"
txt = txt & (i)
if i = Cint(Page) then txt = txt & "</font>"
txt = txt & "</a> ‖ </strong>"
Response.Write(txt)
Next
END sub %>

错误类型：
Microsoft VBScript 编译器错误 (0x800A0408)
无效字符
/show.asp, line 7
if not rs.eof then

浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)

网页：
GET /show.asp

时间：
2006年5月7日, 11:01:06