?? goto1.asp
字號:
<!--#include file="Conn.Asp"-->
<!--#include file="CheckLogin.Asp"-->
<!--#include file="top.Asp"-->
<%
UserID = CLng(Request.Cookies("RichwongAlexa")("UserID"))
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open "Select UserUrl,UserIspass From Member Where ID=" & UserID & "",Conn,1,1
If Not Rs.Eof Then
UserUrlValue = Rs("UserUrl")
If Rs("UserIspass")= 0 Then
Call Msgs("對不起,您的帳戶尚未被審核!請聯系我們馬上審核,或者等待審核","Manage1.Asp")
ElseIf InStr(UserUrlValue,vbCrLf)=0 And InStr(UserUrlValue,".htm")=0 Then
Call Msgs("對不起,您尚沒有添加刷站頁面,請至少添加2個并且為.htm地址后再刷!","manage1.asp?action=WebModify")
End If
Else
Call Msgs("對不起,您不是我們的會員!","Index.Asp")
End If
Rs.close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>無標題文檔</title>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
}
-->
</style>
<link href="css.css" rel="stylesheet" type="text/css" />
</head>
<body>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#0099CC"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="27%"><table width="200" border="0" cellspacing="0" cellpadding="0">
<tr class="css">
<td height="30" align="center"><img src="images/Bmore.gif" width="20" height="14" /></td>
<td align="left"><a href="goto1.asp">開始刷站</a></td>
</tr>
<tr class="css">
<td height="30" align="center"><img src="images/Bmore.gif" width="20" height="14" /></td>
<td height="30" align="left"><a href="manage1.asp?action=WebModify">網站資料管理</a></td>
</tr>
<tr class="css">
<td height="30" align="center"><img src="images/Bmore.gif" width="20" height="14" /></td>
<td height="30" align="left"><a href="manage1.asp?action=UserModify">用戶資料管理</a></td>
</tr>
<tr class="css">
<td height="30" align="center"><img src="images/Bmore.gif" width="20" height="14" /></td>
<td height="30" align="left"><a href="manage1.asp?action=ShowGG">系統公告</a></td>
</tr>
<tr class="css">
<td height="30" align="center"><img src="images/Bmore.gif" width="20" height="14" /></td>
<td height="30" align="left"><a href="manage1.asp?action=ly">我要留言</a></td>
</tr>
<tr class="css">
<td height="30" align="center"><img src="images/Bmore.gif" width="20" height="14" /></td>
<td height="30" align="left"><a href="how.asp">新手幫助</a></td>
</tr>
<tr class="css">
<td height="30" align="center"><img src="images/Bmore.gif" width="20" height="14" /></td>
<td height="30" align="left"><a href="user_logout.asp">退出系統</a></td>
</tr>
<tr>
<td width="43" valign="top"> </td>
<td width="162"> </td>
</tr>
</table></td>
<td width="73%" valign="top" class="css"><script language="javascript">
var nInterval;
function chkLogin(frm){
var sStation
sStation=frm.txtStation.value.toLowerCase();
if(sStation.indexOf("http://")==-1){frm.txtStation.value="http://"+sStation;}
if(sStation==""){alert("您的網站地址不能為空!");return false};
frm.hiddenAction.value="login";
return true;
}
function chkRefresh(frm){
win=window.open("Alexa.Asp","win","");
nInterval=setInterval("go()",12000);
}
function chkStop(){
window.clearInterval(nInterval);
win.close();
}
function go(){
if(win.closed==true){chkStop();}else{
win.location="Alexa.Asp";}
}
function chkUnlogin(){
}
</script>
<P>沒有積分啦 快去刷！</p>
<P>點擊下面的按鈕開始刷站！</P>
<P><b>刷站的過程中請不要關閉 刷新本窗口 否則刷站將停止！ </b></P>
<input type="button" value="開始刷" name="btnBeginRefresh" onClick="chkRefresh()">
<input type="button" value="停止刷" name="btnStopRefresh" onClick="chkStop()"></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
<!--#include file="Bottom.Asp"-->?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -