vote.asp

用ASP写的二手市场程序

<%
if not Request.ServerVariables("REMOTE_ADDR")=request.cookies("IPAddress") then
   response.cookies("IPAddress")=Request.ServerVariables("REMOTE_ADDR")
call add()
else
    Response.Redirect "vote0.asp"
end if

sub add
connstr = "DBQ="+server.mappath("vote.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
   Set DataConn = Server.CreateObject("ADODB.Connection")
   dataconn.open connstr
     if len(request("v1"))>0 then
   Set rs = dataconn.execute("update vote set selecta = selecta+1 WHERE id=1")
else 
   set RS=nothing
end if

     if len(request("v2"))>0 then
   Set rs = dataconn.execute("update vote set selectb = selectb+1 WHERE id=1")
else 
   set RS=nothing
end if

     if len(request("v3"))>0 then
   Set rs = dataconn.execute("update vote set selectc = selectc+1 WHERE id=1")
else 
   set RS=nothing
end if

     if len(request("v4"))>0 then
   Set rs = dataconn.execute("update vote set selectd = selectd+1 WHERE id=1")
else 
   set RS=nothing
end if

     if len(request("v5"))>0 then
   Set rs = dataconn.execute("update vote set selecte = selecte+1 WHERE id=1")
else 
   set RS=nothing
end if

    Set DataConn = Nothing
    Response.Redirect "votedetail.asp"
end sub
%>