求助！请帮我看一下这个程序

楼主 generalwyf 于 2003-05-12 20:45:36

求助！请帮我看一下这个程序

请高手帮看一下，下面这个程序在运行时出现这样一个情况，如果所查询的数据在数据库中不超过一页时正常显示，但如果超过一页后，第一页还能正常输出，但在点击第二页后，就会把数据库中后面所有库中的数据全部输出，就是说，本来查询符合要求的只有两页，但在看第二页时，就会出现十页八页的表单，请教高手这个程序应该如何改。谢谢!
<%sub onepage(rs,page) '分页显示子程序
response.write "<center> <table ><tr>"
for i=1 to rs.fields.count-1
response.write "<th>" & rs.fields(i).name & "</th>"
next
response.write "</tr>"
rs.absolutepage=page
for ipage=1 to rs.pagesize
response.write "<tr>"
recno=(page-1)*rs.pagesize+ipage
for i=0 to rs.fields.count-1
iv=rs.fields(i).value
inm=rs.fields(i).name
response.write "<td >" & iv & "</td>"
end if
next
response.write "</tr>"
rs.movenext
if rs.eof then exit for
next
response.write "</table> "
end sub

direct=request.form("direct")
name=request.form("name")
set con=server.createobject("adodb.connection")
con.open "DSN=SCZL;UID=SA;pwd=SA;DataBase=zl"
set rs=server.createobject("adodb.recordset")
sql="select * from 人事表 where 方向='"& direct &"' and 姓名='" &Name &"'"
rs.open sql,con,adopenkeyset,adlockpessimistic
rs.pagesize=7
page=Clng(request("page"))
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
onepage rs,page
response.write "<center><form action=renpageshow.asp method=get>"
if page<>1 then
response.write "<a href=renpageshow.asp?page=1>第一页  </a>"
response.write "<a href=renpageshow.asp?page=" & (page-1) & ">上一页  </a>"
end if
if page<>rs.pagecount then
response.write "<a href=renpageshow.asp?page=" & (page+1) & ">下一页  </a>"
response.write "<a href=renpageshow.asp?page=" & rs.pagecount & ">最后一页  </a>"
end if
response.write "</form>"%>

1楼 阿泰于 2003-05-12 20:50:31

参数传递的时候把条件丢了，把direct，name跟上去

2楼 generalwyf 于 2003-05-14 12:58:24

我用IE浏览察看网页，是name和direct参数没有传上去，我用Session来保存也没有作用。请问阿泰如何来传递，不好意思，我是一个新手。谢谢了。

3楼 痞子于 2003-05-14 14:46:10

direct=request.form("direct")　改：direct=request("direct")
name=request.form("name")　改：name=request("name")
response.write "<a href=renpageshow.asp?page=1>第一页 </a>"
改：　response.write "<a href=renpageshow.asp?page=1&direct=<%=direct%>&name=<%=name%>>第一页 </a>"
按這個改下面幾個．也就是每次都再傳一次參數．．

ASP讨论区

求助！请帮我看一下这个程序