请教一个关于ASP的问题
这是我的主页代码,但是在分页显示时,只有第一页有从数据库中读出的数据,其他页都为点击之后没有显示从数据库中读出的内容,而且页面代码正确,代码如下index.asp:<%o...
这是我的主页代码,但是在分页显示时,只有第一页有从数据库中读出的数据,其他页都为点击之后没有显示从数据库中读出的内容,而且页面代码正确,代码如下
index.asp:
<%option explicit%>
<html>
<head>
<title>BBS主页面</title>
</head>
<body bgcolor="darkgreen">
<form name="form1" action="chuli.asp" method="post">
主题:<input type="text" size="40" name="title"><br>
内容:<textarea name="body" cols="60" rows="5" wrap="soft"></textarea><br>
用户名:<input type="text" size="10" name="username"><br>
电子邮箱:<input tupe="text" size="10" name="email"><br>
<input type="submit" value="发表主题"> <input type="reset" value="重新填写">
</form>
<%
dim sql,db,rs
set db=server.createobject("ADODB.Connection")
db.open "dbq="&server.mappath("eg.mdb")&";driver={microsoft access driver (*.mdb)};"
sql="select * from content"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,db,1,1
%>
<%
if not rs.eof or not rs.bof then
dim page_size
dim page_no
dim page_total
page_size=2
if request.querystring("page_no")="" then
page_no=1
else
page_no=clng(request.querystring("page_no"))
end if
rs.absolutepage=page_no
rs.pagesize=page_size
page_total=rs.pagecount
dim i
i=page_size
do while not rs.eof and i>0
i=i-1
%>
<table boder=1>
<tr><td>用户名:</td><td><%=rs("username")%></td></tr>
<tr><td>email:</td><td><%=rs("email")%></td></tr>
<tr><td>留言标题:</td><td><%=rs("title")%></td></tr>
<tr><td>内容:</td><td><%=rs("body")%></td></tr>
</table>
<hr>
<%
rs.movenext
loop
response.write "请选择页数:"
for i=1 to page_total
if i=page_no then
response.write i&" "
else
response.write "<a href=index.asp?page_no="&i&">"&i&"</a> "
end if
next
end if
rs.close
db.close
set rs=nothing
set db=nothing
%>
</body>
</html>
还有一个处理页面如下
<%option explicit%>
<%
dim varname,vartitle,varbody,varemail,sql,db,rs
set db=server.createobject("ADODB.Connection")
db.open "dbq="&server.mappath("eg.mdb")&";driver={microsoft access driver (*.mdb)};"
set rs=server.createobject("adodb.recordset")
varname=request.form("username")
vartitle=request.form("title")
varemail=request.form("email")
varbody=request.form("body")
sql="insert into content(title,username,body,email) values('"&vartitle&"','"&varname&"','"&varbody&"','"&varemail&"')"
rs.open sql,db
response.redirect "index.asp"
%>
还有一个数据库:eg,其中的字段为username,email,body,title
希望能给小弟解答一下,谢谢了! 展开
index.asp:
<%option explicit%>
<html>
<head>
<title>BBS主页面</title>
</head>
<body bgcolor="darkgreen">
<form name="form1" action="chuli.asp" method="post">
主题:<input type="text" size="40" name="title"><br>
内容:<textarea name="body" cols="60" rows="5" wrap="soft"></textarea><br>
用户名:<input type="text" size="10" name="username"><br>
电子邮箱:<input tupe="text" size="10" name="email"><br>
<input type="submit" value="发表主题"> <input type="reset" value="重新填写">
</form>
<%
dim sql,db,rs
set db=server.createobject("ADODB.Connection")
db.open "dbq="&server.mappath("eg.mdb")&";driver={microsoft access driver (*.mdb)};"
sql="select * from content"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,db,1,1
%>
<%
if not rs.eof or not rs.bof then
dim page_size
dim page_no
dim page_total
page_size=2
if request.querystring("page_no")="" then
page_no=1
else
page_no=clng(request.querystring("page_no"))
end if
rs.absolutepage=page_no
rs.pagesize=page_size
page_total=rs.pagecount
dim i
i=page_size
do while not rs.eof and i>0
i=i-1
%>
<table boder=1>
<tr><td>用户名:</td><td><%=rs("username")%></td></tr>
<tr><td>email:</td><td><%=rs("email")%></td></tr>
<tr><td>留言标题:</td><td><%=rs("title")%></td></tr>
<tr><td>内容:</td><td><%=rs("body")%></td></tr>
</table>
<hr>
<%
rs.movenext
loop
response.write "请选择页数:"
for i=1 to page_total
if i=page_no then
response.write i&" "
else
response.write "<a href=index.asp?page_no="&i&">"&i&"</a> "
end if
next
end if
rs.close
db.close
set rs=nothing
set db=nothing
%>
</body>
</html>
还有一个处理页面如下
<%option explicit%>
<%
dim varname,vartitle,varbody,varemail,sql,db,rs
set db=server.createobject("ADODB.Connection")
db.open "dbq="&server.mappath("eg.mdb")&";driver={microsoft access driver (*.mdb)};"
set rs=server.createobject("adodb.recordset")
varname=request.form("username")
vartitle=request.form("title")
varemail=request.form("email")
varbody=request.form("body")
sql="insert into content(title,username,body,email) values('"&vartitle&"','"&varname&"','"&varbody&"','"&varemail&"')"
rs.open sql,db
response.redirect "index.asp"
%>
还有一个数据库:eg,其中的字段为username,email,body,title
希望能给小弟解答一下,谢谢了! 展开
展开全部
recordset 自带了分页对象的
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
