UC知道asp高手可以帮帮忙吗?我要做对奖的程序?语法好像不对?
来源：百度知道 编辑：UC知道 时间：2024/05/31 08:55:17
asp高手可以帮帮忙吗?我要做一个对奖的程序?语法好像不对?
http://jinlichangca.com/test/cn/pro2.asp
主要就是如果物品编号对了，就出来该物品，不对就出现抱歉的页面，我页面都完成了。就是语法不会。
<%
dim key,sql,i
i=1
set rs=server.CreateObject("adodb.recordset")
key=trim(request.queryString("key"))
sql="select * from Products2 where ItemNo='"&key&"'"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.Redirect "error.asp"
else
response.Redirect "pro_show2.asp?id=<%=rs("ID")"
end if
%>
http://jinlichangca.com/test/cn/pro2.asp
主要就是如果物品编号对了，就出来该物品，不对就出现抱歉的页面，我页面都完成了。就是语法不会。
<%
dim key,sql,i
i=1
set rs=server.CreateObject("adodb.recordset")
key=trim(request.queryString("key"))
sql="select * from Products2 where ItemNo='"&key&"'"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.Redirect "error.asp"
else
response.Redirect "pro_show2.asp?id=<%=rs("ID")"
end if
%>
<%
Dim key, sql, i
i = 1
key = Trim(Request.QueryString("key"))
If key = "" Then
Response.Write("无法获取key的参数值！")
'Response.Redirect("error.asp")
Else
sql = "Select * From Products2 Where ItemNo='" & key & "'"
Set rs = Server.CreateObject("Adodb.Recordset")
rs.Open sql, conn, 1, 1
If rs.BOF And rs.EOF Then
Response.Redirect("error.asp")
Else
Response.Redirect("pro_show2.asp?id=" & rs("ID"))
End If
rs.Close
Set rs = Nothing
End If
%>
PS：你要确定数据库中Products2表有 ID 跟 ItemNo 这两个字段且ItemNo为文本类型。
如有问题可百度HI我或留言。
response.Redirect "pro_show2.asp?id=<%=rs("ID")"
改为
response.Redirect "pro_show2.asp?id="&ID&""
试试!
response.Redirect "