求助asp 分页缺少end

来源：百度知道 编辑：UC知道 时间：2024/06/28 06:55:30
求助写了个asp分页代码但老是说缺少end
错误类型：
Microsoft VBScript 编译器错误 (0x800A03F6)
缺少 'End'
/web/测试/分页/pagesview.asp, 第 65 行

<!--#include file="conn.asp"-->
<h2 align=center>用户列表</h2>
<table width="90%" align="center" cellspacing="1" cellpadding="2" border="1" bordercolor="#808080" bordercolordark="#ffffff" bordercolorlight="#e1f5ff">
<tr>
<td align="center" width="20%" bgcolor="#e1f5ff"><b>用户名</b></td>
<td align="center" width="20%" bgcolor="#e1f5ff"><b>用户姓名</b></td>
<td align="center" width="20%" bgcolor="#e1f5ff"><b>电子邮箱</b></td>
</tr>
<%
dim rs,sql
set rs=server.CreateObject("adodb.recordset")
sql="select

你大意了哦 你看这里
...
if isempty(page) or cint(page) < 1 then
page =1
else if cint(page) >=allpages then
page=allpages
end if
...
既然有两个if ，那就应该有两个end if的，加个end if吧

还有最前面的一个if
...
if rs.eof and rs.bof then
response.Write "目前没有用户记录"
else
...
明明有if 为什么下文不见end if呢
在最后那里加个<%end if%>吧
...
response.Write "第"&page&"页 共"&allpages&"页"
%>
</td>
</tr>
<%end if%>
</table>

换成
sql="select * from [user]"
试试

最后的response.write那一行。。。。。下面加上 end if