p2r.asp

中文bux点击站源码。配合其他站点用

<!--#include file="conn.asp"-->
<!--#include file="chklogin.asp"-->

<%
  P2RName = Request ("P2Rlink")
  P2RName = "P2R_" & P2Rlink & ""
  rs.Open "Select * From p2r Where P2RName = '" & P2Rlink & "'",Conn
  If rs.EOF Then
     Conn.Close
     Session ("Message") = "对不起。这个广告不在我们的数据库中，可能因为过期而被删除了。"
     Response.Redirect "error.asp"
  End if
  P2RVisit = rs ("P2RVisit")
  P2RLimit = rs ("P2RLimit")
  P2RValid = rs ("P2RValid")
  If P2RVisit >= P2RLimit Then
     Conn.Close
     Session ("Message") = "对不起。这个广告的点击数量已经满了。"
     Response.Redirect "error.asp"
  End if
  If P2RValid = False Then
     Conn.Close
     Session ("Message") = "对不起。这个广告已经过期。"
     Response.Redirect "error.asp"
  End if
  rs.Close
  rs.Open "Select * From member Where UserName = '" & UserName & "'",Conn
  If rs (P2RName) <> "None" Then
     rs.Close
     Conn.Close
     Session ("Message") = "您已经从这个广告得到奖励了。"
     Response.Redirect "error.asp"
  Else
     Response.Redirect "p2r2.asp?P2RName="& P2Rlink &""
  End if
%>