Question

ASP 传值的问题，根据值设置查询条件

表单内容

<form name="form1" method="post" action="hit.asp">
<input type="hidden" name="hotid" value="<%=rs("id")%>"/>
<input class="button1" type="submit" name="submit" value=""/>
</form>
处理的页面hit.asp
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("data/guestbook.mdb")
hotid=request.form("hotid")
If hotid <> "" Then
Dim Arraya, i
Arraya = Split(hotid, ",")

For i = 0 to Ubound(Arraya)
Response.Write(hotid)
Next
End If

exec="update guest set hot=hot+1 where id=<%=rs("id")%>"

conn.execute exec
conn.close
set conn=nothing
response.write "记录添加成功!"

%>
我想根据表单传过来的值<%=rs("id")%>设置SQL查询语句， where id=<%=rs("id")%>"（当然不能这么写），如何实现？换另一种方法也可以，大师们说一下思路和贴代码出来看看，
需要说明一点，表单中<input type="hidden" name="hotid" value="<%=rs("id")%>"/>
value="<%=rs("id")%>"已经是从数据库取出来的值，HTML形式变成<input type="hidden" name="hotid" value="10"/>
<input type="hidden" name="hotid" value="11"/>
........................

我想根据这个值确定查询条件，问题在于，不知道用户点了那个值，如何得到用户点的那个值设定查询的条件？

Answer 1

你想表达什么意思！看你的意思 hotid 是多个数据组成的字符串
但是 hotid的值是和rs("id") 相等的

hit.asp
如果是hotid里面是一个数据的话
exec="update guest set hot=hot+1 where id=“&hotid
conn.execute exec
conn.close
如果里面是多个数据组成的字符串的话

For i = 0 to Ubound(Arraya)
exec="update guest set hot=hot+1 where id=“&hotid(i)
conn.execute exec
next

追问

好像不行啊

追答

你想要什么样的结果？
看你的意思
"/>
这个文本框是隐藏的，rs("id") 应该是一个数 但是你怎么还对这个数进行Arraya = Split(hotid, ",")这个操作呢！

刚才没注意到Arraya 名字
For i = 0 to Ubound(Arraya)
exec="update guest set hot=hot+1 where id=“&Arraya(i)
conn.execute exec
next

把这两句话替换了把
exec="update guest set hot=hot+1 where id=“&Arraya(i)
conn.execute exec

替换成
sql="select * from guest where id="Arraya(i)
rs.open sql,conn,1,3

rs("hot")=rs("hot")+1
rs.update

你前台的设计的html代码 贴出来看看！感觉前台页面都没设计好。

追问

百度只能放199个字太长贴不出来
，表单中"/>
value=""已经是从数据库取出来的值，HTML形式变成

........................
我想根据这个值确定查询条件，问题在于，不知道用户点了那个值，如何得到用户点的那个值设定查询的条件？

追答

点击的用图片代替
">

hit.asp 里面
hotid=request.QueryString("hotid")
sql="select * from guest where id="&hotid
rs.open sql,conn,1,3

rs("hot")=rs("hot")+1
rs.update

追问

恩，这个可以，我还想加个判断用户IP地址，根据每个IP用户每天只能点击5次，可以用你这个代码上修改吗，你的网站找不开啊

追答

userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")

这个是提取IP的 这样的话你得把提取的ip存到数据库里面 做判断

追问

ip存到数据库里面那要是访问量多的话不会出问题吗？而且一天后要让这个IP失效，第二天又可以点击了，我想用session,不过session也好像会有问题，清空了的话就可以点了，有没有什么好的办法啊

追答

你可以这样啊！就表里面就3栏 一个ip 一栏是点击次数 一个是日期

Answer 2

你不是已经用IF判断了。
主要看你想要的最终效果。
exec="update guest set hot=hot+1 where id="&rs("id")

追问

值是出来了，不过我放在条件里，效果不行，一点击就第每个表里的HOT都加1，

追答

For i = 0 to Ubound(Arraya)
这个循环的地方可以控制你取 数组里面其中一个数值。