<%
'**************************************
'* 最后更新 2012-05-18 by 56770.kingdge
'* Copyright www.56770.com
'**************************************
Dim voteid,hasvoted,action
strwebtitle = Lebi_word(28) &"-"
sitename = site_name
description = Replace(safereplace(Sys_description)," ","")
keywords = Replace(safereplace(Sys_keywords)," ","")
Showpath = "<a href='"& Eshop_url & LangPath &"'>"& Lebi_word(0) &"</a> → "& Lebi_word(28)
voteid = checknum(request("voteid"),0)
hasvoted = session("IPAddressvote"&voteid)
action = request("action")
Select Case action
       Case "vote" : vote()
End Select
Sub vote()
        dim options,total,answer,lock_cookiesname
        If session("IPAddressvote"&voteid)="" Then
		        options = checknum(request("options"),0)
		        session("IPAddressvote"&voteid)=Replace(Request.ServerVariables("REMOTE_ADDR"),".","")
		        conn.execute("update [vote] set answer"&options&"=answer"&options&"+1 where id = "& voteid &"")
				Application(cookiesname&"_SiteVote"&voteid) = "" '清空缓存 2009-9-25 by 56770.kingdge
		End If
End Sub
%>