?? index.asp
字號:
<!--#include file="Conn.Asp"-->
<%
UserName = Request.Cookies("RichwongAlexa")("UserName")
UserID = Request.Cookies("RichwongAlexa")("UserID")
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open "Select Top 1 * From Member Where ID = " & UserID & "",Conn,1,1
If Not(Rs.bof and Rs.eof) Then
Ispass = Rs("UserIspass")
If Ispass = 0 Then
Ispass = "未審核"
Else
Ispass = "正常"
End If
UserClass = Rs("UserClass")
If UserClass = 1 Then
UserClass = "普通用戶"
Else
UserClass = "高級用戶"
End If
UserPower = Rs("UserPower")
WebClick = Rs("WebClick")
WebTotal = Rs("WebTotal")
WebUrlON = Rs("WebUrlON")
If WebUrlON = 1 Then
WebUrlON = "已開啟 <a href=?action=close>我要關閉!</a>"
Else
WebUrlON = "已關閉 <a href=?action=open>我要開啟!</a>"
End if
End If
Select Case request("action")
Case "close"
Conn.Execute("Update Member Set WebUrlON = 0 Where ID=" & UserID & "")
Response.Redirect "Manage1.Asp"
Case "open"
Conn.Execute("Update Member Set WebUrlON = 1 Where ID=" & UserID & "")
Response.Redirect "Manage1.Asp"
Case "s_WebModify"
UserUrlValue = LCase(Req("UserUrl"))
Conn.Execute("Update Member Set UserUrl = '"&UserUrlValue&"' Where ID=" & Req("UserID") & "")
Response.Redirect "Manage1.Asp"
Case "s_UserModify"
Conn.Execute("Update Member Set TrueName = '" & Req("TrueName") & "', UserCode = " & Req("UserCode") & ",UserQuestion = '" & Req("UserQuestion") & "',UserAnswer = '" & Req("UserAnswer") & "',UserTel = " & Req("UserTel") & ",UserQQ = " & Req("UserQQ") & ",UserMail = '" & Req("UserMail") & "' Where ID=" & Req("UserID") & "")
Response.Redirect "Manage1.Asp"
End Select
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>免費刷IP,免費刷網站排名,免費刷alexa排名-電信高速alexa排名聯盟-alexa排名共贏聯盟,Alexa,世界排名,Alexa世界排名</title>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
}
-->
</style>
<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.STYLE1 {
color: #FF0000;
font-weight: bold;
}
-->
</style>
<script type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function YY_checkform() { //v4.65
//copyright (c)1998,2002 Yaromat.com
//此插件由笨阿豬漢化www.youqia.com
var args = YY_checkform.arguments; var myDot=true; var myV=''; var myErr='';var addErr=false;var myReq;
for (var i=1; i<args.length;i=i+4){
if (args[i+1].charAt(0)=='#'){myReq=true; args[i+1]=args[i+1].substring(1);}else{myReq=false}
var myObj = MM_findObj(args[i].replace(/\[\d+\]/ig,""));
myV=myObj.value;
if (myObj.type=='text'||myObj.type=='password'||myObj.type=='hidden'){
if (myReq&&myObj.value.length==0){addErr=true}
if ((myV.length>0)&&(args[i+2]==1)){ //fromto
var myMa=args[i+1].split('_');if(isNaN(parseInt(myV))||myV<myMa[0]/1||myV > myMa[1]/1){addErr=true}
} else if ((myV.length>0)&&(args[i+2]==2)){
var rx=new RegExp("^[\\w\.=-]+@[\\w\\.-]+\\.[a-z]{2,4}$");if(!rx.test(myV))addErr=true;
} else if ((myV.length>0)&&(args[i+2]==3)){ // date
var myMa=args[i+1].split("#"); var myAt=myV.match(myMa[0]);
if(myAt){
var myD=(myAt[myMa[1]])?myAt[myMa[1]]:1; var myM=myAt[myMa[2]]-1; var myY=myAt[myMa[3]];
var myDate=new Date(myY,myM,myD);
if(myDate.getFullYear()!=myY||myDate.getDate()!=myD||myDate.getMonth()!=myM){addErr=true};
}else{addErr=true}
} else if ((myV.length>0)&&(args[i+2]==4)){ // time
var myMa=args[i+1].split("#"); var myAt=myV.match(myMa[0]);if(!myAt){addErr=true}
} else if (myV.length>0&&args[i+2]==5){ // check this 2
var myObj1 = MM_findObj(args[i+1].replace(/\[\d+\]/ig,""));
if(myObj1.length)myObj1=myObj1[args[i+1].replace(/(.*\[)|(\].*)/ig,"")];
if(!myObj1.checked){addErr=true}
} else if (myV.length>0&&args[i+2]==6){ // the same
var myObj1 = MM_findObj(args[i+1]);
if(myV!=myObj1.value){addErr=true}
}
} else
if (!myObj.type&&myObj.length>0&&myObj[0].type=='radio'){
var myTest = args[i].match(/(.*)\[(\d+)\].*/i);
var myObj1=(myObj.length>1)?myObj[myTest[2]]:myObj;
if (args[i+2]==1&&myObj1&&myObj1.checked&&MM_findObj(args[i+1]).value.length/1==0){addErr=true}
if (args[i+2]==2){
var myDot=false;
for(var j=0;j<myObj.length;j++){myDot=myDot||myObj[j].checked}
if(!myDot){myErr+='* ' +args[i+3]+'\n'}
}
} else if (myObj.type=='checkbox'){
if(args[i+2]==1&&myObj.checked==false){addErr=true}
if(args[i+2]==2&&myObj.checked&&MM_findObj(args[i+1]).value.length/1==0){addErr=true}
} else if (myObj.type=='select-one'||myObj.type=='select-multiple'){
if(args[i+2]==1&&myObj.selectedIndex/1==0){addErr=true}
}else if (myObj.type=='textarea'){
if(myV.length<args[i+1]){addErr=true}
}
if (addErr){myErr+='* '+args[i+3]+'\n'; addErr=false}
}
if (myErr!=''){alert('表單驗證有誤,詳情如下:\t\t\t\t\t\n\n'+myErr)}
document.MM_returnValue = (myErr=='');
}
//-->
</script>
</head>
<body>
<form action="login.asp?Action=login" method="post" name="form1" onSubmit="YY_checkform('form1','UserName','#q','0','用戶名必需填寫！！！','Password','#q','0','密碼必須填寫！！！');return document.MM_returnValue">
<!--#include file="top.Asp"-->
<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" bgcolor="#FFFFFF">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="27%" valign="top" class="xian"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="css">
<tr>
<td height="10" colspan="2" align="center" valign="middle" bgcolor="#0099CC"> </td>
</tr>
<%if UserName="" then%>
<tr>
<td height="30" colspan="2" align="center" valign="middle">用戶名：
<label>
<input name="UserName" type="text" class="biaodan" id="UserName" size="18">
</label></td>
</tr>
<tr>
<td height="30" colspan="2" align="center">密 碼：
<input name="Password" type="password" class="biaodan" id="Password" size="18"></td>
</tr>
<tr>
<td height="30" colspan="2" align="center"><input name="Submit" type="submit" class="biaodan" value="登陸">
<input name="Submit2" type="reset" class="biaodan" value="重置"></td>
</tr>
<%else%>
<tr>
<td height="60" colspan="2" align="center" valign="middle"><label>會員名稱：<%=UserName%><br>
<br>
會員類型：<%=UserClass%><br>
<br>
會員狀態 ：<%=Ispass%><br>
<br>
<a href="Manage1.Asp">控制面板 </a>
<br>
<br>
<a href="User_Logout.Asp">退出登陸 </a></label></td>
</tr>
<%end if%>
<tr>
<td height="10" colspan="2" align="center" bgcolor="#0099CC"> </td>
</tr>
<tr onMouseMove="this.bgColor='#0099CC'" onMouseOut="this.bgColor='#FFFFFF'">
<td width="22%" height="30" align="center"><img src="images/Bmore.gif" width="20" height="14"></td>
<td width="78%" align="left"><a href="reg.asp">用戶注冊</a></td>
</tr>
<tr onMouseMove="this.bgColor='#0099CC'" onMouseOut="this.bgColor='#FFFFFF'">
<td height="30" align="center"><img src="images/Bmore.gif" width="20" height="14"></td>
<td height="30" align="left"><a href="goto1.asp">刷站入口</a></td>
</tr>
<tr onMouseMove="this.bgColor='#0099CC'" onMouseOut="this.bgColor='#FFFFFF'">
<td height="30" align="center"><img src="images/Bmore.gif" width="20" height="14"></td>
<td height="30" align="left">客戶服務</td>
</tr>
<tr onMouseMove="this.bgColor='#0099CC'" onMouseOut="this.bgColor='#FFFFFF'">
<td height="30" align="center"><img src="images/Bmore.gif" width="20" height="14"></td>
<td height="30" align="left"><a href="#">VIP服務</a></td>
</tr>
<tr onMouseMove="this.bgColor='#0099CC'" onMouseOut="this.bgColor='#FFFFFF'">
<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>
<td height="30" colspan="2" align="center"><a href="http://www.171yes.com" target="_blank"><img src="http://171yes.com/171yes_bmp/Logo.gif" alt="免費統計" width="200" height="70" border="0" longdesc="http://www.171yes.com"></a></td>
</tr>
</table></td>
<td width="73%" valign="top"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td class="gao"><p>這是一個擁有最近技術的alexa排名推進聯盟,我們利用alexa的最近算法規則,為網站主短期內迅速提高alexa排名.又是一個新型的網站推廣平臺，我們利用互聯網上資源共享的特點，進行訪問量的共享。用戶只需要注冊成為會員，便可以登陸不同的服務器與當前在線的所有網站主一起共享自已IP地址所觸發的訪問量。我們希望第三代alexa排名聯盟這個平臺可以成為中國所有站長提高alexa排名,網站訪問量及網站推廣的最佳平臺。</p>
<p class="STYLE1">注意:這是一個互刷平臺,你刷到別人的站點,同時別人也刷到你的站點.</p>
<p class="STYLE1"><img src="images/bannerad.gif" width="419" height="104"></p>
<p class="STYLE1"><strong>特別說明：</strong><br>
1、累計積分越高越容易被刷到<br>
2、當積分低于50的時候您的網頁將不會被其他會員刷到<br>
3、訪問1個網頁獲1積分，被其他會員訪問1個網頁減少1積分<br>
<strong>特別提示：系統每日會不定期重新檢查模板頁面，如果您發現您的網址狀態為“頁面有修改或定期檢查時未正常打開頁面”時，而您又未對模板進行修改，只是系統檢查模板時恰好貴站不能正常訪問，請不用擔心，只要系統下一次能正常檢查，將重新自動審核恢復成“通過”狀態！！</strong>
</p>
</p>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="Bottom.Asp"-->
</form>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -