📄 p2r3.asp

📁 中文bux点击站源码。配合其他站点用
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="chklogin.asp"-->

<%
  rs.Open "Select * From config",Conn
  ContinueClick = rs ("ContinueClick")
  rs.Close
  P2RName = Request ("P2RLink ")
  rs.Open "Select * From p2r Where P2RName = '" & P2RLink & "'",Conn
  P2RType = rs ("P2RType")
  P2RTime = rs ("P2RTime")
  P2RValuation = rs ("P2RValuation")
  If P2RType = "Dollars" Then
     P2RType_C = "元"
  Else
     P2RType_C = "点"
  End If
  rs.Close
  Amount = 0
  rs.Open "Select Count(*) AS Total From banner Where BannerLimit > BannerDisplay And BannerValid = True",Conn
  Totalbanner = rs ("Total")
  If Totalbanner = 0 Then
     Message = "目前数据库中没有有效的旗帜广告。"
  End if
  Randomize
  Num = Int((Totalbanner - 1 + 1) * Rnd + 1)
  rs.Close
  rs.Open "Select * From banner Where BannerLimit > BannerDisplay And BannerValid = True",Conn
  While not rs.eof
  Amount = Amount + 1
  If Amount = Num Then
     BannerName = rs ("BannerName")
     BannerLink = rs ("BannerLink")
     BannerImg = rs ("BannerImg")
     BannerText = rs ("BannerText")
  End if
  rs.Movenext
  Wend
  rs.Close
  rs.Open "Select * From member Where UserName = '" & UserName & "'",Conn
  MemberShip = rs ("MemberShip")
  rs.Close
  <!--统计活动的有效直接下线个数代码开始--> 
  rs.Open "Select Count(*) AS Total From member Where Referral = '" & UserName & "' And NoReferral = False And Active = True And Valid = True And Vacation = False And DateDiff('d', LoginTime, Date()) <= 30",Conn
  DirectActiveRef = rs("Total")
  rs.Close
  <!--统计活动的有效直接下线个数代码结束--> 
  ValueRate = MemberShip * 0.05 + DirectActiveRef * 0.005 + 1
  If ValueRate <> 1 Then
     P2RValuation2 = FormatNumber (P2RValuation * ValueRate, 4, -1)
  Else 
     P2RValuation2 = P2RValuation
  End If
%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link REL="StyleSheet" HREF="tjscripts.css" TYPE="text/css" MEDIA="screen">
<title><% = SiteTitle %></title>
<% If ADMessage = "" Then %>
<SCRIPT LANGUAGE="JavaScript">
  var st = <% = P2RTime %>;
  var od = 1;
  function gocl()
  {
   st = st - od;
   document.value = st;
   document.time.timer.value = st;
   setTimeout("gocl()", 1000);
   if (st == 0)
     window.location="p2r4.asp?P2RName=<% = P2RName %>";
  }
</SCRIPT>
<% End If %>
</head>

<body topmargin="7" leftmargin="0" ONLOAD="gocl()">

<table border="0" cellspacing="0" cellpadding="0" width="100%">
  <tr>
    <td width="100%" align="center" valign="top">
      <table border="0" cellspacing="0" cellpadding="0" width="100%">
        <tr>
          <td width="35%" height="60" align="center">
          <%
            If ADMessage <> "" Then
               Response.Write ADMessage
            Else
          %>          
            <form name="time">
              <p>这个广告原价值 <font color="#FF0000"><% = P2RValuation %></font> <% = P2RType_C %>，增值价值 <font color="#FF0000"><% = P2RValuation2 %></font> <% = P2RType_C %>。<br>
                 您必须停留 <input type="text" name="timer" style="background-color: #DBEAF5; color: #FF0000; font-weight: bold; width: 24; text-align: center" size="1"> 秒才能得到奖励。</p> 
            </form> 
          <% End If %> 
          </td> 
          <td width="65%" height="60" align="center"> 
          <% 
            If Message <> "" Then 
               Response.Write Message 
               Conn.Close 
            Else 
          %> 
          <% If BannerImg <> "" Then %> 
          <a href="<% = BannerLink %>" target="_blank"><img border="0" src="<% = BannerImg %>" width="468" height="60" align="left"></a> 
          <% Else %>  
          <a href="<% = BannerLink %>" target="_blank"><% = BannerText %></a>  
          <% End if%>  
          <%  
            rs.Open "Update banner Set BannerDisplay = BannerDisplay + 1 Where BannerName = '" & BannerName & "'",Conn 
            Conn.Close  
            End if  
          %>  
          </td>  
        </tr>  
      </table>  
    </td>  
  </tr>  
</table>  
  
</body>  
  
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -