📄 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 + -