📄 siter.asp
字号:
<!--#include file="check.asp"-->
<%
dim action
action=request.QueryString("action")
Nowpage=cint(request.QueryString("page"))
id=cint(request.QueryString("id"))
upline=request.form("upline")
call ConnectionDatabase
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>联盟管理</title>
<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style4 {font-weight: bold}
-->
</style>
</head>
<body>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="tablegg">
<tr>
<td><table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#F1F1F1">
<tr bgcolor="#E3E2C3">
<td height="23" bgcolor="#E3E2C3"><div align="center" class="style4"><strong> 站长管理 </strong></div></td>
</tr>
<tr>
<td valign="top">
<%
select case action
case "list"
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#EDEDE1">
<td height="26" colspan="5"><span class="forumRow"> <strong> : : 站长列表 : :</strong></span></td>
</tr>
<tr align="center" bgcolor="#E3E2C3">
<td width="16%" height="20">站长</td>
<td width="12%" height="20">密码</td>
<td width="20%" height="20">网站</td>
<td width="30%" height="20">联系电话</td>
<td width="22%" height="20">操作</td>
</tr>
<%
set Rs=GrateRs("select * from member where state=1 order by id desc",3)
Rs.PageSize=30
If Nowpage=0 then Nowpage=1
Rs.AbsolutePage=Nowpage
i=1
do while not Rs.eof and i<=Rs.pagesize
%>
<tr align="center" bgcolor="#F1F1F1">
<td width="16%" height="20" align="left"> <%=Rs("username")%></td>
<td width="12%" height="20"><%=Rs("passwd")%></td>
<td width="20%" height="20" align="left"> <a href="<%=Rs("site_url")%>" target="_blank"><%=Rs("site_name")%></a></td>
<td width="30%" height="20" align="left"> <%=Rs("phone")&" / "&Rs("mobile")%></td>
<td width="22%" height="20"><a href="siter.asp?action=show&id=<%=Rs("id")%>">详细</a> / <a href="siter.asp?action=delete&id=<%=Rs("id")%>">删除</a> / <a href="meber.asp?upline=<%=Rs("username")%>">查看手机会员</a></td>
</tr>
<%
i=i+1
Rs.movenext
loop
%>
<tr bgcolor="#E3E2C3">
<td height="26" colspan="5"> <strong>翻页: :</strong>
<%
myurl="siter.asp?action=list&"
response.write("共："&Rs.recordcount&"条记录，共:"&Rs.PageCount&"页,"&Rs.PageSize&"条/页,第"&NowPage&"页 ")
response.write("<a href='"&myurl&"page=1'>"&"第一页</a> ")
if NowPage>1 then response.write("<a href='"&myurl&"page="&Nowpage-1&"'>前一页</a> ")
if NowPage<Rs.PageCount then response.write("<a href='"&myurl&"page="&Nowpage+1&"'>后一页</a> ")
response.write("<a href='"&myurl&"page="&Rs.PageCount&"'>最后页</a> ")
%> </td>
</tr><form name="form1" method="post" action="siter.asp?action=lock">
<tr align="center" bgcolor="#F1F1F1">
<td height="26" colspan="5">
我要锁定这个用户
<input name="upline" type="text" class="inputbox" id="upline">
<input name="Submit" type="submit" class="inputbutton" value=" 提交 ">
</td>
</tr>
</form>
</table>
<%
case "check"
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#EDEDE1">
<td height="26" colspan="5"><span class="forumRow"> <strong> : : 新注册站长 : :</strong></span></td>
</tr>
<tr align="center" bgcolor="#E3E2C3">
<td width="14%" height="20">站长</td>
<td width="17%" height="20">网站</td>
<td width="26%" height="20">联系电话</td>
<td width="27%" height="20">联系地址</td>
<td width="16%" height="20">操作</td>
</tr>
<%
set Rs=GrateRs("select * from member where state=0",3)
Rs.PageSize=30
if not Rs.eof then
If Nowpage=0 then Nowpage=1
Rs.AbsolutePage=Nowpage
i=1
do while not Rs.eof and i<=Rs.pagesize
%>
<tr align="center" bgcolor="#F1F1F1">
<td width="14%" height="20" align="left"> <%=Rs("username")%></td>
<td width="17%" height="20" align="left"> <a href="<%=Rs("site_url")%>" target="_blank"><%=Rs("site_name")%></a></td>
<td width="26%" height="20" align="left"> <%=Rs("phone")&" / "&Rs("mobile")%></td>
<td width="27%" height="20" align="left"> <%=Rs("address")%></td>
<td width="16%" height="20"><a href="siter.asp?action=checkreg&id=<%=Rs("id")%>">通过</a> / <a href="siter.asp?action=delete&id=<%=Rs("id")%>">删除</a></td>
</tr>
<%
i=i+1
Rs.movenext
loop
%>
<%else%>
<tr align="center" bgcolor="#F1F1F1">
<td height="30" colspan="5">对不起,还没有新站长注册!</td>
</tr>
<%
end if
%>
<tr bgcolor="#E3E2C3">
<td height="26" colspan="5"> <strong>翻页: :</strong>
<%
myurl="siter.asp?action=check&"
response.write("共："&Rs.recordcount&"条记录，共:"&Rs.PageCount&"页,"&Rs.PageSize&"条/页,第"&NowPage&"页 ")
response.write("<a href='"&myurl&"page=1'>"&"第一页</a> ")
if NowPage>1 then response.write("<a href='"&myurl&"page="&Nowpage-1&"'>前一页</a> ")
if NowPage<Rs.PageCount then response.write("<a href='"&myurl&"page="&Nowpage+1&"'>后一页</a> ")
response.write("<a href='"&myurl&"page="&Rs.PageCount&"'>最后页</a> ")
%> </td>
</tr>
</table>
<%
case "show"
set Rs=GrateRs("select * from member where id="&id,1)
if not Rs.eof then
%>
<form name="form2" method="post" action="siter.asp?action=update">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#EDEDE1">
<td height="26" colspan="2"><span class="forumRow"> <strong> : : 站长详细资料 : :</strong></span></td>
</tr>
<tr bgcolor="#F1F1F1">
<td width="13%" height="20" align="center">登录帐号</td>
<td width="87%" height="20">
<input type="text" class="inputbox" value="<%=Rs("username")%>"></td>
</tr>
<tr bgcolor="#F1F1F1">
<td height="20" align="center">登录密码</td>
<td height="20">
<input type="text" class="inputbox" value="<%=Rs("passwd")%>"></td>
</tr>
<tr bgcolor="#F1F1F1">
<td height="20" align="center">真实姓名</td>
<td width="87%" height="20">
<input type="text" class="inputbox" value="<%=Rs("full_name")%>"></td>
</tr>
<tr bgcolor="#F1F1F1">
<td height="20" align="center">电话号码</td>
<td width="87%" height="20">
<input type="text" class="inputbox" value="<%=Rs("phone")%>"></td>
</tr>
<tr bgcolor="#F1F1F1">
<td height="20" align="center">手机号码</td>
<td width="87%" height="20">
<input type="text" class="inputbox" value="<%=Rs("mobile")%>"></td>
</tr>
<tr bgcolor="#F1F1F1">
<td height="20" align="center">电子邮箱</td>
<td width="87%" height="20">
<input type="text" class="inputbox" value="<%=Rs("email")%>" size="40"></td>
</tr>
<tr bgcolor="#F1F1F1">
<td height="20" align="center">网站名称</td>
<td width="87%" height="20">
<input type="text" class="inputbox" value="<%=Rs("site_name")%>" size="40"></td>
</tr>
<tr bgcolor="#F1F1F1">
<td height="20" align="center">网站地址</td>
<td width="87%" height="20">
<input type="text" class="inputbox" value="<%=Rs("site_url")%>" size="40"></td>
</tr>
<tr bgcolor="#F1F1F1">
<td height="20" align="center">QQ</td>
<td width="87%" height="20">
<input type="text" class="inputbox" value="<%=Rs("qq_msn")%>"></td>
</tr>
<tr bgcolor="#F1F1F1">
<td height="20" align="center">帐户名:</td>
<td height="20">
<input type="text" class="inputbox" value="<%=Rs("bank_user")%>"></td>
</tr>
<tr bgcolor="#F1F1F1">
<td height="20" align="center">所在省:</td>
<td height="20">
<input type="text" class="inputbox" value="<%=Rs("bank_prv")%>" size="40"></td>
</tr>
<tr bgcolor="#F1F1F1">
<td height="20" align="center">所在城市:</td>
<td height="20">
<input type="text" class="inputbox" value="<%=Rs("bank_city")%>" size="40"></td>
</tr>
<tr bgcolor="#F1F1F1">
<td height="20" align="center">开户银行:</td>
<td height="20">
<input type="text" class="inputbox" value="<%=Rs("bankname")%>" size="30"></td>
</tr>
<tr bgcolor="#F1F1F1">
<td height="20" align="center">银行卡号:</td>
<td height="20">
<input type="text" class="inputbox" value="<%=Rs("bank_card")%>" size="30"></td>
</tr>
<tr bgcolor="#F1F1F1">
<td height="20" align="center">邮政编码:</td>
<td height="20">
<input type="text" class="inputbox" value="<%=Rs("postcode")%>"></td>
</tr>
<tr bgcolor="#F1F1F1">
<td height="20" align="center">通讯地址:</td>
<td height="20">
<textarea cols="40" class="inputbox"><%=Rs("address")%></textarea></td>
</tr>
<tr bgcolor="#F1F1F1">
<td height="20" align="center">收 款 人:</td>
<td height="20">
<input type="text" class="inputbox" value="<%=Rs("payee")%>" size="40"></td>
</tr>
<tr bgcolor="#F1F1F1">
<td height="20" align="center"> </td>
<td height="20"><input name="Submit" type="submit" class="inputbutton" value=" 提交修改 "></td>
</tr>
</table>
</form>
<%
end if
case "checkreg"
set Rs=GrateRs("select * from member where id="&id,3)
if not Rs.eof then
Rs("state")=1
Rs.update
end if
response.write "<script language='JavaScript'>{window.alert('该会员已经通过验证！');window.location='siter.asp?action=check';}</script>"
response.end
case "lock"
set Rs=GrateRs("select * from member where username='"&upline&"'",3)
if not Rs.eof then
Rs("state")=0
Rs.update
end if
response.write "<script language='JavaScript'>{window.alert('该会员已经被锁定，您可以在验证会员里面解锁！');window.location='siter.asp?action=list';}</script>"
response.end
case "delete"
set Rs=GrateRs("select * from member where id="&id,3)
if not Rs.eof then
Rs.delete
Rs.update
end if
response.write "<script language='JavaScript'>{window.alert('该会员已经被删除！');window.location='siter.asp?action=list';}</script>"
response.end
end select
%>
</td>
</tr>
<tr align="center" bgcolor="#EDEDE1">
<td height="35" align="right"> <span class="style1">Copyright 2003 - 2005 IFBEST Inc. AllRights Reserved Design By <a href="http://www.258sp.com" target="_blank">258sp商务平台</a></span> </td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
<%
call DBConnEnd
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -