代码如下:
<form>
<input type="button" value="投我一票" onClick="tp();">'调用TP()函数
</form>
<%
sub add()
dim dps
id=request.QueryString("id")
set rss=server.CreateObject("adodb.recordset")
sqlstr="select dps from image2 where id="&id
rss.open sqlstr,conn,1,1
dps=rss("dps")+1
conn.execute("update image2 set dps="&dps&"where id="&id)
response.Cookies("tp").expires=dateadd("y",1,now())
response.cookies("tp")="ture"
session("tp")="ture"
response.Redirect("image2.asp")
end sub
sub tp()
if session("tp")="ture" or request.Cookies("tp")="ture" then
response.Write("<script> alert('你已经投过票了！');location.href='image2.asp';")
response.End()
else
call add()
end if
end sub
%>

希望高手能指点一下,万分感谢!

提示的错误信息是:缺少对象

谢谢梦系情缘,但是还是不行,依然提示缺少对象!

错误不是处在那个CONN.EXECUTE身上,用RSS.ADDNEW()试过了,还是不行!

我重新改了一下,改成这样了,依然不行!高手救命阿!时间紧啊!
<%
sub add()
if session("tp")<>"ture" and request.cookies("tp")<>"ture" then
dim dps
id=request.QueryString("id")
set rss=server.createobject("adodb.recordset")
sqlstr="select dps from image2 where id="&id
rss.open sqlstr,conn,1,3
dps=rss("dps")+1
conn.execute("update image2 set dps="&dps&"where id="&id)
response.Cookies("tp").expires=dateadd("y",1,now())
response.cookies("tp")="ture"
session("tp")="ture"
response.Redirect("image2.asp")
else
response.Write("<script>alert('你已经投过票了！');location.href='image2.asp';</script>")
response.End()
end if
end sub
%>
.....
...
<input type="button" value="投我一票" onClick="add()">