是这样写吗?这样写也不对啊
<!--#include file="Inc/IndexConn.asp"-->
<!--#include file="Inc/SiteMsg.asp" -->
<%

if request.ServerVariables("REMOTE_ADDR")=request.Cookies("IPAddress") then
if Cookies("IPcount")=3 then
SiteMsg 2,"您已经投过票3次了,请不要重复投票!","zpzs.asp"
else
Cookies("IPcount")=Cookies("IPcount")+1
response.cookies("IPAddress")=request.ServerVariables("REMOTE_ADDR")
response.cookies("IPAddress").Expires=Date()+1
end if
else
id=request("id")
set rs=Server.CreateObject("adodb.recordset")
sql="select * from pic1 where id="&id
rs.open sql,conn,1,3
rs("ps")=rs("ps")+1
rs.update()
rs.close
set rs=nothing
SiteMsg 2,"投票成功!","zpzs.asp"
end if
%>

if request.ServerVariables("REMOTE_ADDR")=request.Cookies("IPAddress") then
if Cookies("IPcount")=3 then
SiteMsg 2,"您已经投过票3次了,请不要重复投票!","zpzs.asp"
else
Cookies("IPcount")=Cookies("IPcount")+1
response.cookies("IPAddress").Expires=Date()+1

id=request("id")
set rs=Server.CreateObject("adodb.recordset")
sql="select * from pic1 where id="&id
rs.open sql,conn,1,3
rs("ps")=rs("ps")+1
rs.update()
rs.close
set rs=nothing
SiteMsg 2,"投票成功!","zpzs.asp"

end if
else

response.cookies("IPAddress")=request.ServerVariables("REMOTE_ADDR")
Cookies("IPcount")=1

id=request("id")
set rs=Server.CreateObject("adodb.recordset")
sql="select * from pic1 where id="&id
rs.open sql,conn,1,3
rs("ps")=rs("ps")+1
rs.update()
rs.close
set rs=nothing
SiteMsg 2,"投票成功!","zpzs.asp"
end if
%>

没楼上的快撒哈哈

[此贴子已经被作者于2006-5-30 22:49:51编辑过]

谢谢版主哦,谢谢!