本人建网站能够挣钱吗-asp投票程序怎么阻止使用

2021-04-16 06:07

--------

本人建网站能够挣钱吗

-------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
response.write "你递交的相对路径有误,严禁从站点外界递交数据信息!"
response.end
end if
vid=Request.QueryString("id")
Function getIP() 
getIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
If getIP = "" Then getIP = (Request.ServerVariables("REMOTE_ADDR"))
End Function
ipdate=vid getIP date()
if ipdate "" then   
   Set rs = Server.CreateObject( "ADODB.Recordset" )
    Set rs1 = Server.CreateObject( "ADODB.Recordset" )
Set rs2 = Server.CreateObject( "ADODB.Recordset" )
set rssum=server.createobject("adodb.recordset")
exec="select sum(add凡科抠图) as sum凡科抠图 from Result where addip='" getIP "' and addtime =#" now()-1 "#"
rssum.open exec,conn,1,1
sum凡科抠图=rssum("sum凡科抠图")
set rssum3=server.createobject("adodb.recordset")
exec2="select sum(add凡科抠图) as sum凡科抠图 from Result where addip='" getIP "'"
rssum3.open exec2,conn,1,1
sum凡科抠图3=rssum3("sum凡科抠图")
    sql = "select * from Result"
    rs.open sql,conn,1,3
   
   if int(sum凡科抠图) =int(gz) then
      Response.write(" script language='javascript' alert('每天仅有3次网络投票机遇,您早已网络投票,请24小时后再来网络投票!');location='index.asp'; /script ")
  response.End()
   else
    sql2 ="select sum(add凡科抠图) as sum凡科抠图 from Result where addip='" getIP "' and voteid='" vid "' and addtime =#" now()-1 "#"
rs2.open sql2,conn,1,1
sum凡科抠图2=rs2("sum凡科抠图")
if int(sum凡科抠图2) =int(xx凡科抠图) then
  Response.write(" script language='javascript' alert('您对该著作的网络投票已达上限,请24小时后再来网络投票!');location='index.asp'; /script ")
   response.End()
    else
   
   sql1= "select * from Result where addip='" getIP "' and voteid='" vid "'"
   rs1.open sql1,conn,1,3
   if not (rs1.bof and rs1.eof) then
    if sum凡科抠图=0 then
      sqlu="update Result set addtime='" now() "',ipdate='" ipdate "',add凡科抠图=1 where addip='" getIP "'"   
else
    sqlu="update Result set add凡科抠图=add凡科抠图+1 where addip='" getIP "' and voteid='" vid "'"
     
end if
conn.execute(sqlu)

else 
      rs.addnew  
      rs("voteid")=vid
      rs("addip")=getIP
      rs("ipdate")=ipdate
  rs("add凡科抠图")=1
      rs.update
      rs.close
end if 
 
      Set rs=nothing
      sql="update Info set 凡科抠图=凡科抠图+1 where id=" vid
      conn.execute(sql)
      Response.write " script language='javascript' alert('恭贺您,网络投票取得成功,谢谢您的参加!');location='index.asp'; /script "
  end if
   end if
end if
%

 

【 ---------

本人建网站能够挣钱吗

------------


扫描二维码分享到微信

在线咨询
联系电话

020-66889888