我这个分页代码错在哪呢?错误类型为缺少end

来源:百度知道 编辑:UC知道 时间:2024/07/04 10:37:28
下面是我写的分页代码,观看效果时候提示:
错误类型:
Microsoft VBScript 编译器错误 (0x800A03F6)
缺少 'End'
/asp/fenye.asp, 第 52 行
可我输入了end if啊,郁闷。
代码如下:
<!--#include file="connection.asp"-->
<%
set rs=server.createobject("adodb.recordset")
exec="select * from tushumulu"
rs.open exec,cn,1,1
%>
<%
rs.pagesize=2 '指示一页所包含的记录数
pagecount=rs.pagecount '确定数据的页数
page=int(request("page"))
if page<=0 then page=1
if request("page")="" then page=1
rs.absolutepage=page '指定当前记录所在的页
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" c>
<

<!--#include file="connection.asp"-->
<%
set rs=server.createobject("adodb.recordset")
exec="select * from tushumulu"
rs.open exec,cn,1,1
%>
<%
rs.pagesize=2 '指示一页所包含的记录数
pagecount=rs.pagecount '确定数据的页数
page=int(request("page"))
if page<=0 then page=1
if request("page")="" then page=1
rs.absolutepage=page '指定当前记录所在的页
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" c>
<title>分页效果</title>
</head>

<body>
<%
if rs.eof and rs.bof then
response.write("暂时没有文章")
els