vote_1.asp

这个也是一个功能强大的企业整站的ASP源代码

<!--#include file="../include/connstr.asp"-->
<%
if not Request.ServerVariables("REMOTE_ADDR")=request.cookies("IPAddress_1") then
   response.cookies("IPAddress_1")=Request.ServerVariables("REMOTE_ADDR")
call add()
else
    Response.Redirect "vote_no_1.asp?que_id_temp="&request("que_id_temp")
end if

sub add
   count_temp=request("count_temp")
   for i=1 to count_temp
    id_temp=request("ysda"&i)
    if id_temp<>"" then
      sql1="update tResearchAns set result=result+1 where id="&id_temp
      conn.execute(sql1)
    end if
    next
    Response.Redirect "votedetail_1.asp?que_id_temp="&request("que_id_temp")
 end sub
%>