高分求投票asp 代码修改
p1,p2,p3,p4,p5都是infoid下的不同标题的票数Diminfoidinfoid=Trim(Request.form("infoid"))ifcbool(Re...
p1,p2,p3,p4,p5都是infoid下的不同标题的票数
Dim infoid
infoid = Trim(Request.form("infoid"))
if cbool(Request.form("p1"))=true then
sql="update vote set p1=p1+1 where infoid='"&infoid&"'"
end if
if cbool(Request.form("p2"))=true then
sql="update vote set p2=p2+1 where infoid ='"&infoid&"'"
end if
if cbool(Request.form("p3"))=true then
sql="update vote set p3=p3+1 where infoid ='"&infoid&"'"
end if
if cbool(Request.form("p4"))=true then
sql="update vote set p4=p4+1 where infoid ='"&infoid&"'"
end if
if cbool(Request.form("p5"))=true then
sql="update vote set p5=p5+1 where infoid ='"&infoid&"'"
end if
conn.execute(sql)
Response.Write "<Script Language=javascript>alert('投票成功,感谢您宝贵的一票!');history.back(-1)</Script>"
infoid 是文本类型
p2=p2+1 不能实现加1并不能保存到数据库
有能解决的加我,我把小程序给你看一下
QQ;317245073 展开
Dim infoid
infoid = Trim(Request.form("infoid"))
if cbool(Request.form("p1"))=true then
sql="update vote set p1=p1+1 where infoid='"&infoid&"'"
end if
if cbool(Request.form("p2"))=true then
sql="update vote set p2=p2+1 where infoid ='"&infoid&"'"
end if
if cbool(Request.form("p3"))=true then
sql="update vote set p3=p3+1 where infoid ='"&infoid&"'"
end if
if cbool(Request.form("p4"))=true then
sql="update vote set p4=p4+1 where infoid ='"&infoid&"'"
end if
if cbool(Request.form("p5"))=true then
sql="update vote set p5=p5+1 where infoid ='"&infoid&"'"
end if
conn.execute(sql)
Response.Write "<Script Language=javascript>alert('投票成功,感谢您宝贵的一票!');history.back(-1)</Script>"
infoid 是文本类型
p2=p2+1 不能实现加1并不能保存到数据库
有能解决的加我,我把小程序给你看一下
QQ;317245073 展开
2个回答
展开全部
程序的不对的原因可能是infoid 是数字类型的原因吧。
Dim infoid
infoid = Trim(Request("infoid"))
if cbool(Request("p1"))=true then
sql="update vote set p1=p1+1 where infoid='"&infoid&"'"
end if
if cbool(Request("p2"))=true then
sql="update vote set p2=p2+1 where infoid ='"&infoid&"'"
end if
if cbool(Request("p3"))=true then
sql="update vote set p3=p3+1 where infoid ='"&infoid&"'"
end if
if cbool(Request("p4"))=true then
sql="update vote set p4=p4+1 where infoid ='"&infoid&"'"
end if
if cbool(Request("p5"))=true then
sql="update vote set p5=p5+1 where infoid ='"&infoid&"'"
end if
response.write(sql) 这两行输出一下SQL语句,看是不是SQL语句有问题,没问题了,注释这两行再继续。。。
response.end
conn.execute(sql)
++++++++++++++++++++++++++++++++++++++++++++++
程序已经修改过,你看看。。。 如有其它疑问,在线HI我
Dim infoid
infoid = Trim(Request("infoid"))
if cbool(Request("p1"))=true then
sql="update vote set p1=p1+1 where infoid='"&infoid&"'"
end if
if cbool(Request("p2"))=true then
sql="update vote set p2=p2+1 where infoid ='"&infoid&"'"
end if
if cbool(Request("p3"))=true then
sql="update vote set p3=p3+1 where infoid ='"&infoid&"'"
end if
if cbool(Request("p4"))=true then
sql="update vote set p4=p4+1 where infoid ='"&infoid&"'"
end if
if cbool(Request("p5"))=true then
sql="update vote set p5=p5+1 where infoid ='"&infoid&"'"
end if
response.write(sql) 这两行输出一下SQL语句,看是不是SQL语句有问题,没问题了,注释这两行再继续。。。
response.end
conn.execute(sql)
++++++++++++++++++++++++++++++++++++++++++++++
程序已经修改过,你看看。。。 如有其它疑问,在线HI我
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询