📄 surf32.asp

📁 中文bux点击站源码。配合其他站点用
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="chklogin.asp"-->
   
<%
  P2CName = Request ("P2CName")
  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
%>
<%
  Response.Cookies("" & DomainName & "ADing").Expires = Date() - 1
%>

<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>
</head>

<body topmargin="0" leftmargin="0">

<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%" align="center"><p align="center"><strong><font size=5> <% = SiteTitle %></font></strong>
          </p></td>
          <td width="35%" height="60" align="center"><p align="center"><font color="#00FF00">错误。<br>这个广告目前的点击/显示比过高，请先点击广告,然后再刷新页面,即会有收入。</font></p></td>
        <%		  
          rs.open "Update p2c Set P2CVisit = P2CVisit + 1 Where P2CName = '" & P2CName & "'",Conn
	%> 
          <td width="20%" height="60" align="center" valign="middle"><div align="center"> <%
  P2CName = Request ("P2CName")
  P2CLink = Request ("P2CLink")
  rs.Open "Select * From p2c Where P2CName = '" & P2CName & "'",Conn
  ID = rs ("ID")
  P2CVisit = rs ("P2CVisit")
  P2CClick = rs ("P2CClick")
 P2CLink = rs ("P2CLink") 
  P2CRate = rs ("P2CRate")
  rs.Close
%> <a href="<% = P2CLink %>" target="_blank"><h2>在新窗口打开此站</h2></a></div>
          </p>          </td>
<td width="30%" height="60" align="center">  
<!--#include file="ad240.asp"-->
</td>  
        </tr>  
      </table>  
    </td>  
  </tr>  
</table>  
  
</body> 
  
</html>
⌨️ 快捷键说明

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