怎么解决这样的问题?

2006-06-20 03:37:00 101 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

泛微Ecology9单点登录实战指南：从Token获取到页面跳转本文提供了一份详尽的泛微Ecology9单点登录实战指南，重点解析了Token跳转式SSO的核心流程。内容涵盖从理解关键参数（如appid、loginid）与一次性Token机制，到通过代码示例演示如何正确调用接口获取Token，并详细说明了拼接不同场景跳转地址的完整规则与安全实践，旨在帮助开发者高效、稳定地实现业务系统与OA门户的无缝集成。阅读详情

我用了分页通用类来循环得到查询的六条记录,每页显示五条记录.但点击第二页的时候,查找不到记录出错...
主页:
<form name="form1" method="post" action="MultiNumber.asp">
<textarea>.......</textarea>
</form>

MultiNumber.asp页:


<% dim text
text=trim(request.form("textarea"))
if text="" then
response.Redirect("MultiNoResult.asp")
else

sp=split(text,chr(13))
sql="select * from product where (Product_Id='"&sp(0)&"'"
for i=1 to UBound(sp)
sql=sql & "or Product_Id='"&mid(sp(i),2)&"'"
next
sql=sql & ")"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
response.write sql
end if

Set mypage=new xdownpage
mypage.getconn=conn
mypage.getsql=sql
mypage.pagesize=5
set rs=mypage.getrs()
.......
......
%>

page页:
'GetURL 得到当前的URL
'更据URL参数不同，获取不同的结果
'
'==================================================================
Private Function GetURL()
Dim strurl,str_url,i,j,search_str,result_url,str_params
search_str="page="

strurl=Request.ServerVariables("URL")
Strurl=split(strurl,"/")
i=UBound(strurl,1)
str_url=strurl(i)'得到当前页文件名

str_params=Trim(Request.ServerVariables("QUERY_STRING"))
If str_params="" Then
result_url=str_url & "?page="
Else
If InstrRev(str_params,search_str)=0 Then
result_url=str_url & "?" & str_params &"&page="
Else
j=InstrRev(str_params,search_str)-2
If j=-1 Then
result_url=str_url & "?page="
Else
str_params=Left(str_params,j)
result_url=str_url & "?" & str_params &"&page="
End If
End If
End If
GetURL=result_url
End Function

现在我查询得到六条记录,但第一页显示五条记录,第二页的链接就变成:http://localhost/*****/MultiNumber.asp?page=2

在获取参数的时候出错了,我该怎么办呢?谢!

...全文