天地眉间歌曲:这段asp程序哪里缺少了end if 啊？

来源：百度文库 编辑：高考问答 时间：2024/05/02 01:36:57
<% set conn=server.createobject("ADODB.Connection")
conn.open "Driver={Microsoft Access Driver (*.mdb)};dbq=" &server.mappath("message.mdb") %>

<% Set rs = Server.CreateObject ("ADODB.Recordset")
sql="select * from mytable"
rs.Open sql, conn, 1 %>

<% rs.PageSize=10
IF rs.Eof THEN
Response.Write("<font size=2 color=#000080>[数据库中没有记录！]</font>")
ELSE
If Request("rs.CurrentPage")="" Then
rs.AbsolutePage=1
Else
rs.AbsolutePage=CLng(Request("rs.CurrentPage"))
End If
%>

<% if rs.PageCount=1 then
Response.Write("[第一页] [上一页] [下一页] [最后一页] ")
elseif rs.AbsolutePage=1 then

Response.Write("[第一页] [上一页] ")
Response.Write("[<a Href=""test.asp?Page="""& request("page") + 1&""">下一页</a>] ")
Response.Write("[<a Href=""test.asp?Page="""& rs.PageCount&""">最后一页</a>] ")
elseif rs.AbsolutePage=rs.PageCount then

Response.Write("[<a Href=""test.asp?Page=1"">第一页</a>] ")
Response.Write("[<a Href=""test.asp?Page="""& request("page") - 1&""">上一页</a>] ")
Response.Write("[下一页] [最后一页] ")

else
Response.Write("[<a Href=""test.asp?Page=1"">第一页</a>] ")
Response.Write("[<a Href=""test.asp?Page="""& request("page") - 1&""">上一页</a>] ")
Response.Write("[<a Href=""test.asp?Page="""& request("page") + 1&""">下一页</a>] ")
Response.Write("[<a Href=""test.asp?Page="""& rs.PageCount&""">最后一页</a>] ")
end if
end if
end if
%>

<%
For i = 1 to rs.PageSize
if rs.EOF then
Exit For
end if %>

<p><% =rs("name") %></p><%rs.MoveNext%><%next%>

<%
rs.close
Set rs = Nothing
conn.close
set conn=nothing
%>

IF rs.Eof THEN
Response.Write("<font size=2 color=#000080>[数据库中没有记录！]</font>")
ELSE
If Request("rs.CurrentPage")="" Then
rs.AbsolutePage=1
Else
rs.AbsolutePage=CLng(Request("rs.CurrentPage"))
End If
后再加一个end if

第十行的if好像没有结束

Response.Write("[<a Href=""test.asp?Page="""& rs.PageCount&""">最后一页</a>] ")
end if
end if
end if
%>
这里多了一个end if 只要两个就可以了

end if
end if
end if
多了一个。

if rs.EOF then
Exit For
end if
可以改成if rs.EOF then Exit For

三个end if 那多了一个，两个就行了
IF rs.Eof THEN 那也别扭，一般都用IF not rs.Eof and not rs.bof THEN
你那里要改成IF rs.Eof or rs.bof THEN 不然特殊情况会报错的

end if
end if
end if
多了一个。

这段asp程序哪里缺少了end if 啊？ 简单asp问题 请问这段代码错在哪里 一直出现缺少end的提示 asp问题！缺少End，帮忙看看！ 这段asp程序是什么意思？ 这段ASP程序错在哪 高手看一下这段asp代码，哪里错了？ 这段ASP代码哪里错了,郁闷中..... 请高手帮忙看看这个脚本为什么总提示缺少语句 End If 请高手帮忙看看这个脚本为什么总提示缺少语句 End If 请高手帮忙看看这个脚本为什么总提示缺少语句 End If