虚拟主机教程

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
on error resume next
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("istoupiao2009data.mdb")
Response.Expires = 0
Response.Expiresabsolute = Now() - 1 
Response.AddHeader "pragma","no-cache" 
Response.AddHeader "cache-control","private" 
Response.CacheControl = "no-cache"
userid = cint(request("userid"))
localip = getIP()
if err.number<>0 or userid=0 then ShowMsg("操作失败，请重试。")
 
 
repeatTime = 120	'重复投票时间(分钟)  - 这三个参数如为 0 表示无限制
SingleVote = 5		'对单个人投票次数限制(次)  - 
PublicVote = 10		'对所有人投票次数限制(次)
 
 
 
'判断来源地址
if CheckUrl=false then ShowMsg("禁止外部提交")
 
'统计该用户总共投了多少个票
if PublicVote>0 then
sql = "select count(ipaddr) from voteinfo WHERE ipaddr='" & localip & "'"
set pubrs = conn.execute(sql)
if pubrs(0) >= PublicVote then ShowMsg("您的总投票已经超过限制数，不能再投票了。")
end if
'if pubrs(0) >50 then '加入限制   'sql = "insert into lockip(ipaddr) values('" & localip & "')"  'conn.execute(sql)
 
'判定该用户上次最后投票时间，如果间隔小于2小时则停止
sql = "select top 1 votetime,ipaddr from voteinfo WHERE ipaddr='" & localip & "' ORDER BY votetime desc"
set timers = conn.execute(sql)
if isdate(timers(0)) and repeatTime>0 then
	if datediff("n",timers(0),now())  <= repeatTime then ShowMsg("您投票速度太快，请过一会再来。" ) 
end if
 
'统计该用户对单个人投票次数
if SingleVote>0 then
sql = "select count(foruser) from voteinfo WHERE ipaddr='" & localip & "' and foruser=" & userid
set sinrs=conn.execute(sql)
if sinrs(0) >= SingleVote then ShowMsg("您对本选手的投票次数超过限制。")
end if
 
 
'保存该次投票，反馈信息
sql = "insert into voteinfo(ipaddr,foruser) values('" & localip & "'," & userid & ")"
conn.execute(sql)
ShowMsg("投票成功，感谢！")
 
 
 
Function CheckUrl()
	checkurl=true
	server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
	server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
	if mid(server_v1,8,len(server_v2)) <> server_v2 then checkurl=false
End Function
 
Sub ShowMsg(str)
	on error resume next
	conn.close
	set pubrs=nothing
	set timers=nothing
	set sinrs=nothing
	set conn=nothing
	err.clear
	response.Redirect ("message.asp?str=" & str)
	response.End()
End Sub
 
Function getIP() 
  Dim strIPAddr 
  If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then 
    strIPAddr = Request.ServerVariables("REMOTE_ADDR") 
  ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then 
    strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1) 
  ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then 
    strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1) 
  Else 
    strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
  End If
  getIP = Trim(Mid(strIPAddr, 1, 30)) 
End Function
%>