📄 surf3.asp

📁 中文bux点击站源码。配合其他站点用
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="chklogin.asp"-->
 
<%
  rs.Open "Select * From config",Conn
  ContinueClick = rs ("ContinueClick")
  rs.Close
  P2CName = Request ("P2CName")
  rs.Open "Select * From p2c Where P2CName = '" & P2CName & "'",Conn
  P2CType = rs ("P2CType")
 P2CLink = rs ("P2CLink") 
  P2CTime = rs ("P2CTime")
  P2CValuation = rs ("P2CValuation")
  If P2CType = "Dollars" Then
     P2CType_C = "元"
  Else
     P2CType_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
%>
<%
  ADing = Request.Cookies ("" & DomainName & "ADing")
  If ContinueClick = True Then
  If ADing <> "" Then
     ADMessage = "您必须等待上一个广告结束才能点击下一个广告！"
  Else
     Response.Cookies("" & DomainName & "ADing") = UserName
     ADMessage = ""
  End If
  Else
     If ADing <> "" Then
     ADMessage = ""
  Else
     Response.Cookies("" & DomainName & "ADing") = UserName
     ADMessage = ""
  End If
  End If
  re.Open "Select * From member Where UserName = '" & UserName & "'",Conn
  MemberShip = re ("MemberShip")  
  re.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 + 1
  
  If ValueRate <> 1 Then
     P2CValuation2 = FormatNumber (P2CValuation * ValueRate, 4, -1)
  Else 
     P2CValuation2 = P2CValuation
  End If
%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link REL="StyleSheet" HREF="css/layout-6-master.css" TYPE="text/css" MEDIA="screen">
<title><% = SiteTitle %></title>
<% If ADMessage = "" Then %>
<SCRIPT LANGUAGE="JavaScript">
  var st = <% = P2CTime %>;
  var od = 1;
  function gocl()
  {
   st = st - od;
   document.value = st;
   document.time.timer.value = st;
   setTimeout("gocl()", 1000);
   if (st == 0)
     window.location="surf4.asp?P2CName=<% = P2CName %>";
  }
</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="15%" height="60" align="center" valign="middle"><h1><font color=red>快乐网赚</font></h1><br>
          </td>
          <td width="35%" height="60" align="center">
          <%
            If ADMessage <> "" Then
               Response.Write ADMessage
            Else
          %>          
            <form name="time">
              <p align="center">此广告价值<font color="#00FF00"> <% = P2CValuation %></font><% = P2CType_C %>，增值价值 <font color="#00FF00"><% = P2CValuation2 %></font> <% = P2CType_C %>。<br>您必须停留 <input type="text" name="timer" style="background-color: #DBEAF5; color: #FF0000; font-weight: bold; width: 24; text-align: center" size="1"> 秒才能得到奖励。<br>如果广告条未显示，请刷新页面。</p>  
            </form> 
          <% End If %>          </td> 
          <td width="20%" height="60" align="center" valign="middle"><div align="center"><a href="<% = P2CLink %>" target="_blank"><h3>在新窗口打开此站</h3></a>
              <!--webbot bot="HTMLMarkup" startspan -->
            <!--webbot bot="HTMLMarkup" endspan -->
            </div>
          <td width="30%" height="60" align="center" valign="middle"><div align="center">
<!--#include file="ad240.asp"-->         
          </div></td>  
        </tr>  
      </table>  
    </td>  
  </tr>  
</table>  
  
</body>  
  
</html>
⌨️ 快捷键说明

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