📄 alexa.asp

📁 ASP编写的刷ALEXA的平台

💻 ASP

字号:

<!--#include file="Conn.Asp"-->
<!--#include file="CheckLogin.Asp"-->
<%
Dim WebUrl,ToUrl,sUrl,WebID,TmpUrl,Url
intRandomNumber = Int (1000*Rnd)+1
Set Rs = Server.CreateObject("ADODB.RecordSet")
    Rs.Open "Select ID,UserUrl From Member Where UserPower>0 And UserIspass=1 And WebUrlON=1 And UserUrl<>'0'",Conn,1,1
    If Not Rs.Eof Then
    WebUrl = DisRndRecord(1,rs.recordCount)
	TmpUrl = Split(WebUrl,"?")
    sUrl = TmpUrl(0)
	WebID = TmpUrl(1)
    Else
	Url =  "http://www.18am.cn/bbs/1.htm"
    End If
    Rs.Close
	Conn.Execute("Update Member Set UserPower=UserPower-1,WebTotal=WebTotal+1 Where ID=" & WebID & "")
	Conn.Execute("Update Member Set UserPower=UserPower+1,WebClick=WebClick+1 Where ID=" & CLng(Request.Cookies("RichwongAlexa")("UserID")) & "")
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
   If InStr(sUrl,"<br>")>0 Then
   ToUrl = Split(sUrl,"<br>")
   i = Ubound(ToUrl)
   Url = ToUrl(GetRnd(i))
   Else If Len(sUrl)>8 Then
   Url =  sUrl
   Else
   Url = "http://www.18am.cn/bbs/1.htm"
   End If
   End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="refresh" content="1;url=<%=Url%>">
<title>欢迎您使用http://www.chinaz88.com的alexa刷站联盟</title>
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<body>
<div align="center" class="css">网站载入中......,请稍等,刷站期间请不要<b>关闭.刷新</b>此浏览器.  <br>
  www.16am.cn电信高速服务
<br>
准备刷向URL:<%=Url%>

</div>
</body>
</html>
<script src='http://s103.cnzz.com/stat.php?id=396070&web_id=396070' language='JavaScript' charset='gb2312'></script>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -