高考问答大理机场到喜洲古镇:asp分页程序问题
来源：百度文库 编辑：高考问答 时间：2024/05/04 07:54:17
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("[第一页] [上一页] [下一页] [最后一页] ")
else
if rs.AbsolutePage=1 then
Response.Write("[第一页] [上一页] ")
Response.Write("[<a Href="test.asp?Page=<% =request("page") + 1%>">下一页] ")
Response.Write("[<a Href="test.asp?Page=<% = rs.PageCount%>">最后一页</a>] ")
else
if 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 '利用for next 循环依次读出记录
%>
<p><% =rs("name") %></p><%rs.MoveNext%><%next%>
<%
rs.close
Set rs = Nothing
conn.close
set conn=nothing
%>
运行后提示：
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft VBScript 编译器错误 错误 '800a03ee'
缺少 ')'
/myasp/text.asp，行24
Response.Write("[<a Href="test.asp?Page=<% =request("page") + 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 %>
这段少了个end if
Response.Write("[<a Href="test.asp?Page=<% =request("page") + 1%>">下一页] ")
Response.Write("[<a Href="test.asp?Page=<% = rs.PageCount%>">最后一页</a>] ")
这两句改为
Response.Write("[<a Href=""test.asp?Page="""& request("page") + 1&""">下一页] ")
Response.Write("[<a Href=""test.asp?Page="""& rs.PageCount&""">最后一页</a>] ")
还有其他
Response.Write()里面的也要像上面的方法改正
<%Response.Write "<BR>数据总条数："&Session("rs").RecordCount&" "
'判断是否到表尾或记录解释否，如果是，则只给“上一页”加上超链接
If(Session("rs").Eof)or(Session("End")>=Session("rs").RecordCount) Then
Response.Write "[<A href=""Query.asp?Method=Previous"">上一页</A>|"
Response.Write "下一页]"
'否则看是不是表头，如果是则只给“下一页”加上超链接
ElseIf((Session("rs").Bof)or(Session("start")=1)) Then
Response.Write "[上一页|"
Response.Write "<A href=""Query.asp?Method=Next"">下一页</A>]"
'其他情况，都加上超链接
Else
Response.Write "[<A href=""Query.asp?Method=Previous"">上一页</A>|"
Response.Write "<A href=""Query.asp?Method=Next"">下一页 </A>]"
End If
Response.Write "开始记录："&Session("Start")&"，结束记录："&Session("End")&"。"
<% 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>")
ELSEIf Request("rs.CurrentPage")="" Then
rs.AbsolutePage=1
Else
rs.AbsolutePage=CLng(Request("rs.CurrentPage"))
End If %>
<% if rs.PageCount=1 then
Response.Write("[第一页] [上一页] [下一页] [最后一页] ")
else
if rs.AbsolutePage=1 then
Response.Write("[第一页] [上一页] ")
Response.Write("[<a Href='test.asp?Page="& request("page") + 1 &"'>下一页] ")
Response.Write("[<a Href='test.asp?Page="& rs.PageCount &"'>最后一页</a>] ")
else
if 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 '利用for next 循环依次读出记录
%>
<p><% =rs("name") %></p><%rs.MoveNext%><%next%>
<%
rs.close
Set rs = Nothing
conn.close
set conn=nothing
%>