?? admin_alexa.asp
字號:
?<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Conn.asp"-->
<%
id=Request("id")
set Rs=Server.CreateObject("ADODB.Recordset")
'sql="select * from Link where siteUrl like '%?%' and DATEDIFF('s', indate, now()) < 14400*60 order by outdate asc"
sql="select top 1 * from Link where IsVerify="&strTrue&" And Xianshua=1 And siteUrl like '%?%' order by outdate asc"
Rs.open sql,Conn,1,2
If Not Rs.eof Then
Rs.Move((1-1)*1)
w=1
do while ((not Rs.EOF) and w<=clng(1))
Url=Rs("siteUrl")
Rs("outdate")=now()
Rs.Update
Rs.MoveNext
w=w+1
Loop
End If
If id=1 Then
Goto1Url=WapGoto1Url
ElseIf id=2 Then
Goto1Url=WapGoto2Url
ElseIf id=3 Then
Goto1Url=WapGoto3Url
ElseIf id=4 Then
Goto1Url=WapGoto4Url
ElseIf id=5 Then
Goto1Url=WapGoto5Url
ElseIf id=6 Then
Goto1Url=WapGoto6Url
ElseIf id=7 Then
Goto1Url=WapGoto7Url
ElseIf id=8 Then
Goto1Url=WapGoto8Url
ElseIf id=9 Then
Goto1Url=WapGoto9Url
Else
Goto1Url=WapGoto10Url
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<meta http-equiv="refresh" content="1;url=<%=Goto1Url&Url%>">
<link href="admin.css" rel="stylesheet" type="text/css">
<title>Alexa_<%=id%></title>
<style type="text/css">
<!--
.style1 {color: #FF0000}
BODY{margin-top: 15px;margin-bottom: 15px;background:#CAD7F7;}
-->
</style>
</head>
<body>
<br><br>
<div align="center"><span class="style1">網站載入中......,請稍等,刷站期間請不要關閉.刷新此瀏覽器. <br>
<br></span>
準備刷向URL:<%=Url%><br/>
</div>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -