为什么分页的时候会丢失参数？？

fralee625 2004-07-12 11:01:07

问题：当执行index.asp时，调用 http://192.168.10.38/schoollist.asp?city=00101 结果正常，但当在schoollist.asp进行翻页操作时，数据丢失，显示没有数据（没什么错误，就是没有数据），而且已经确定翻页程序单独执行（不带CITY参数）没有问题。请高手帮我看看！谢谢！
代码如下：
'----- index.asp----------
<a href="schoollist.asp?city=00101" target="_blank">CODE=00101</a>

'----- publish.asp----------
<%
MM_publish_STRING = "DRIVER={SQL Server};Server=127.0.0.1;DSN=GUANAI;DATABASE=tdcitycode;UID=sa;PWD=;"
Set rs = Server.CreateObject("ADODB.Recordset")
%>

'----- schoollist.asp----------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>


<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body>

<%
rs_numRows = 0
pgsize=15
page=request.querystring("page")
city1=request.querystring("city")
rs.ActiveConnection = MM_publish_STRING
rs.Source = "SELECT * FROM [tdschool] WHERE code ='" & city1 &"'"
rs.CursorType = 3
rs.CursorLocation = 2
rs.LockType = 1
rs.open()
rs_numRows=rs.pagecount
rs.pagesize=pgsize
pgnm=rs.pagecount
if page="" or clng(page)<1 then page=1
if clng(page)>pgnm then page=pgnm
if pgnm>0 then rs.absolutepage=page
count=0
%>
<table width="39%" border="1">
<% Do While Not rs.EOF and count<rs.pagesize %>
<tr>
<td> <% =(rs.Fields.Item("xxdmname").Value) %> </td>
</tr>
<%
count=count+1
rs.MoveNext
Loop %>
</table>
当前为第<%=PAGE%>页
共<%=pgnm%>页
<%=rs_numRows%>所学校
<br>
</body>
</html>
<%
rs.Close()
Set rs = Nothing
%>
<a href=schoollist.asp?page=1>第一页</a>
<% if page-1>= 1 then %>
<a href=schoollist.asp?page=<%=page-1%>>上一页</a>
<%
end if
if page+1<= pgnm then
%>
<a href=schoollist.asp?page=<%=page+1%>>下一页</a>
<% end if %>
<a href=schoollist.asp?page=<%=pgnm%>>最后一页</a>

...全文

203 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

fashchina 2004-07-12

打赏
举报

huagou 2004-07-12

打赏
举报

在代码中加入
dim sqlstr
session("sqlstr")=rs.Source

if session("sqlstr")="" then

rs.Source = "SELECT * FROM [tdschool] WHERE code ='" & city1 &"'"

else

rs.Source=session("sqlstr")

end if

king2003 2004-07-12

打赏
举报

大笨狼这是什么加密方法???

king2003 2004-07-12

打赏
举报

你只传了PAGE没有传CITY当然CITY会丢了

klend 2004-07-12

打赏
举报

也就是<a href=schoollist.asp?page=<%=page-1%>&city=<%=city1%>>上一页</a>。。。。。

klend 2004-07-12

打赏
举报

翻页的时候必须加上CITY参数，因为rs.Source = "SELECT * FROM [tdschool] WHERE code ='" & city1 &"'"

dullwolf 2004-07-12

打赏
举报

注意空格和url冲突的"&""?""%"汉字等符号

'加密：
'适用于任何字符，包括空格和url冲突的"&""?""%"汉字等符号
'简单加密，可以改造成移位加密，比如每个字符asc码值增加或减少一个数字
'可以改造成移位随机加密。
'比如每个字符前有一个随机数字，表示该字符asc码值增加或减少这个随机数字
function encode(x)
for i=1 to len(x)
TempNum=hex(asc(mid(x,i,1)))
if len(TempNum)=4 then
encode=encode & cstr(TempNum)
else
encode=encode & "00" & cstr(TempNum)
end if
next
end function
'解密：
function decode(x)
for i=1 to len(x) step 4
decode=decode & chr(int("&H" & mid(x,i,4)))
next
end function

fralee625 2004-07-12