ADODB.Recordset (0x800A0BB9) 参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。pu5/105_search/01_p002.asp, 第 87 行
代码如下:
<!--#include file="../05_data/inc/DataConn99.asp"-->
<%
session("a1")=Trim(request.Form("select1"))
session("a2")=Trim(request.Form("select2"))
session("a4")=Trim(request.Form("select4"))
session("a5")=Trim(request.Form("select5"))
session("a6")=Trim(request.Form("Luxury"))
session("a7")=Trim(request("action"))
session("pricefrom")=Trim(request("pricefrom"))
session("priceto")=Trim(request("priceto"))
pricefrom=session("pricefrom")
priceto=session("priceto")
select1=session("a1")
select2=session("a2")
select3=session("a3")
select4=session("a4")
select5=session("a5")
Luxury=session("a6")
action=session("a7")
response.Write(""&select1&"")
response.Write(""&select2&"")
response.Write(""&pricefrom&"")
response.Write(""&priceto&"")
response.Write(""&select4&"")
response.Write(""&select5&"")
response.Write(""&Luxury&"")
if action="search" then
if pricefrom="select3" and priceto="select3" then
if select1="select1" then
if select2="select2" then
if select4="select4" then
if select5="select5" then
if Luxury="" then
str3="select * from table_105_01 order by id"
else
str3="select * from table_105_01 where d_001=true"
end if
else
if Luxury="" then
str3="select * from table_105_01 where a010='"&select5&"' order by id"
else
str3="select * from table_105_01 where a010='"&select5&"' and d_001=true order by id"
end if
end if
else
if select5="select5" then
if Luxury="" then
str3="select * from table_105_01 where a009='"&select4&"' order by id"
else
str3="select * from table_105_01 where a009='"&select4&"' and d_001=true order by id"
end if
else
if Luxury="" then
str3="select * from table_105_01 where a009='"&select4&"'and a010='"&selset5&"'order by id"
else
str3="select * from table_105_01 where a009='"&select4&"'and a010='"&selset5&"' and d_001=true order by id"
end if
end if
end if
end if
end if
end if
end if
set rp=server.CreateObject("adodb.recordset")
rp.open str3,conn,3,3
pagesetup=10'设定每页的显示数量
rp.pagesize=pagesetup
TotalPage=rp.pagecount '总页数
PageCount = cint(Request.QueryString("ToPage"))
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
if TotalPage>0 then rp.absolutepage=PageCount '跳转到指定页数
%>
老是 提示rp.open str3,conn,3,3
出现错误
请哪位高手指点指点
[解决办法]
第一页显示正常
当你点击下一页时,虽说是提交给了本页,但是变量就都没了,需要进行传递
[解决办法]
把分页的代码贴出来,应该是参数为空出错