vote.asp

商机网站8.0,比教完整,可以自己二次开发!

<%Option Explicit%>
<!--#include file="conn.asp"-->
<%
dim RS,sql,id
dim referer
referer = Request.ServerVariables("HTTP_REFERER")
if not request("id")=request.cookies("eokid") then
   response.cookies("eokid")=Request("id")
   
id= Request("id")
if Trim(id) <> "" and IsNumeric(id) then
Set RS = Server.CreateObject("ADODB.RecordSet")
sql = "select id,vote  from site where id = " & id
RS.Open sql, Conn, 3, 3
if not RS.EOF then
RS("vote").value = RS("vote").value + 1
RS.Update()
end if
RS.Close()
Set RS = nothing
end if
Response.Redirect(referer)
else%>
<script language=javascript>  
alert( "错误：您已经对改简章投过一票了！"  );
location.href = "javascript:history.back()"  
</script>

<%end if%>