Question

提示“参数不足 期待是1” 究竟哪里错了

Dim varID
varID=Request.QueryString("ID")
Session("ID")=varID
Dim strSql,rs
strSql="Select * From product Where ID=" & varID
Set rs=conn.Execute(strSql)

Dim sql1, sql2, typeid, rs1, rs2
typeid=rs("leixing")

sql1="select max(id) from product where ID<" & varID & " and leixing=" & typeid & " "
Set rs1 = conn.Execute(sql1)

sql2="select min(id) from product where ID>" & varID & " and leixing=" & typeid & " "
Set rs2 = conn.Execute(sql2)

我想读取 上一个 下一个 记录，同时leixing字段值要与当前记录相同。
提示18行出错：Set rs1 = conn.Execute(sql1)
“参数不足 期待是1”
我把min(id)和max(id) 换成 top 1 id 来做同样是这个错误提示。
搞了两天都搞不定，各位兄弟帮帮忙吧，感激不尽啊。

Answer 1

错误应该在typeid 上面吧，如果它是文本类型的，那么你的SQL语句就成了xxx and leixing=ABC 这样的形势，由于ABC没有放在引号里面，就会被当作是一个参数，所以会要求你提供该参数的值。

解决方法是改造SQL(加入单引号)：
sql1="select max(id) from product where ID<" & varID & " and leixing='" & typeid & "'"

sql2="select min(id) from product where ID>" & varID & " and leixing='" & typeid & "'"

Answer 2

可能1:
typeid=rs("leixing")
变成
typeid=rs.Fields("leixing")
试试
可能2:
typeid是字符串.
你没在sql中叫引号.leixing='" & typeid & "'"