📄 membermanage.asp
字号:
<!--#include file="CheckAdminLogined.asp"-->
<!--#include file="../include/connstr.asp"-->
<!--#include file="../include/DefFunction.asp"-->
<% if request("cur_action")="delete" then conn.execute("delete from tRegMember where LoginID='"&request("EditID")&"'")
if request("cur_action")="Pass" then
sql_show="update tRegMember set StateFlag=2 where LoginID='"&request("EditID")&"'"
conn.execute sql_show
response.write "<script>location.replace('MemberManage.asp?PageNo="&request("PageNo")&"')</script>"
response.end
end if
if request("cur_action")="unPass" then
sql_pass="update tRegMember set StateFlag=0 where LoginID='"&request("EditID")&"'"
conn.execute sql_pass
response.write "<script>location.replace('MemberManage.asp?PageNo="&request("PageNo")&"')</script>"
response.end
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Images/AdminCss.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>
<body leftmargin="0" topmargin="0">
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8" colspan="2"></td>
</tr>
<tr>
<td width="76" height="20" rowspan="2"><img src="Images/TopBt.gif" width="67" height="36"></td>
<td width="894" height="10"></td>
</tr>
<tr>
<td>我的位置：后台管理系统._综合功能管理._注册会员管理</td>
</tr>
<tr>
<td height="4" colspan="2"></td>
</tr>
<tr>
<td colspan="2"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="E7E7E7">
<tr>
<td height="20"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="159" height="20" align="center" background="images/title1.gif" class="fontwintitle"><strong>注册会员管理</strong>
</td>
<td align="right" background="images/title2.gif"> </td>
<td width="10"><img src="images/title3.gif" width="10" height="20"></td>
</tr>
</table></td>
</tr>
<tr valign="top">
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="6" background="images/midder1.gif"><img src="images/midder1.gif" width="6" height="3"></td>
<td height="100%" align="center" valign="top">
<%if request("cur_action")="read" then
set rs_Read=conn.execute("select * from tRegMember where LoginID='"&request("EditID")&"'")
if rs_Read.eof and rs_Read.bof then
response.write "<script>alert('读取数据库时出错，请与管理员联系');history.back();</script>"
response.end
end if
%><br>
<table width="98%" border="0" cellpadding="0" cellspacing="1" bgcolor="#333333">
<tr>
<td width="17%" height="21" align="center" bgcolor="f7f7f7">帐号</td>
<td width="83%" bgcolor="#FFFFFF"> <%=rs_Read("LoginID")%></td>
</tr>
<tr>
<td height="21" align="center" bgcolor="f7f7f7">密码</td>
<td bgcolor="#FFFFFF"> <%=rs_Read("PassWord")%></td>
</tr>
<tr>
<td height="21" align="center" bgcolor="f7f7f7">问题提示</td>
<td bgcolor="#FFFFFF"> <%=rs_Read("Question")%></td>
</tr>
<tr>
<td height="21" align="center" bgcolor="f7f7f7">问题答案</td>
<td bgcolor="#FFFFFF"> <%=rs_Read("Answer")%></td>
</tr>
<tr>
<td height="21" align="center" bgcolor="f7f7f7">公司名称</td>
<td bgcolor="#FFFFFF"> <%=rs_Read("Company")%></td>
</tr>
<tr>
<td height="21" align="center" bgcolor="f7f7f7">联系人</td>
<td bgcolor="#FFFFFF"> <%=rs_Read("TrueName")%></td>
</tr>
<tr>
<td height="21" align="center" bgcolor="f7f7f7">电话号码</td>
<td bgcolor="#FFFFFF"> <%=rs_Read("Tel")%></td>
</tr>
<tr>
<td height="21" align="center" bgcolor="f7f7f7">传真号码</td>
<td bgcolor="#FFFFFF"> <%=rs_Read("Fax")%></td>
</tr>
<tr>
<td height="21" align="center" bgcolor="f7f7f7">电子邮件</td>
<td bgcolor="#FFFFFF"> <%=rs_Read("Email")%></td>
</tr>
<tr>
<td height="21" align="center" bgcolor="f7f7f7">邮编</td>
<td bgcolor="#FFFFFF"> <%=rs_Read("Zip")%></td>
</tr>
<tr>
<td height="21" align="center" bgcolor="f7f7f7">详细地址</td>
<td bgcolor="#FFFFFF"> <%=rs_Read("Address")%></td>
</tr>
<tr>
<td height="21" align="center" bgcolor="f7f7f7">状态</td>
<td bgcolor="#FFFFFF">
<% select case rs_Read("stateflag")
case 0:response.write "<font color=333333>未通过</font>"
case 1:response.write "<font color=ff0000>审核中</font>"
case 2:response.write "<font color=009900>已通过</font>"
end select
%> </td>
</tr>
<tr>
<td height="21" align="center" bgcolor="f7f7f7">添加时间</td>
<td bgcolor="#FFFFFF"> <%=rs_Read("AddTime")%></td>
</tr>
<tr>
<td height="39" colspan="2" align="center" bgcolor="#FFFFFF"><input type="button" name="Submit2" value="返回" onclick="javascript:history.back();">
<input type="button" name="Submit22" value="删除" onclick="{if(confirm('确定删除该条纪录吗?')){location.replace('?cur_action=delete&EditID=<%=rs_Read("LoginID")%>&PageNo=<%=request("PageNo")%>')}return false;}"></td>
</tr>
</table>
<br>
<%end if
'----------------------------
PERPAGE =15
PageNo=request("PageNo")
set rs=server.createobject("ADODB.recordset")
sql="select * from tRegMember order by AddTime desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "暂时没有数据!"
else
rs.pagesize = PERPAGE
if isempty(PageNo) or cstr(PageNo)<"1" then PageNo = 1
CurPage=PageNo
if int(PageNo)>=int(rs.pagecount) then CurPage=cint(rs.pagecount)
rs.absolutepage = CurPage
%>
<br> <table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr align="center">
<td colspan="2"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr align="center" bgcolor="#FFFFFF">
<td width="10%" height="22"><strong>帐号</strong></td>
<td width="9%"><strong>密码</strong></td>
<td width="29%"><strong>公司名称</strong></td>
<td width="16%" height="22"><strong>联系电话</strong></td>
<td width="9%"><strong>传真</strong></td>
<td width="7%"><strong>状态</strong></td>
<td width="20%" height="22"><strong>功能操作</strong></td>
</tr>
<% for i = 1 to rs.pagesize %>
<tr align="center" onMouseOver="this.style.backgroundColor='#e7e7e7';" onMouseOut="this.style.backgroundColor='#ffffff'" bgcolor="#FFFFFF">
<td height="22"><%=rs("LoginID")%></td>
<td height="22"><%=rs("PassWord")%></td>
<td height="22"><%=rs("Company")%></td>
<td height="22"><%=rs("Tel")%></td>
<td height="22"><%=rs("Fax")%></td>
<td height="22"> <% select case rs("StateFlag")
case 0:response.write "<font color=333333>未通过</font>"
case 1:response.write "<font color=ff0000>审核中</font>"
case 2:response.write "<font color=009900>已通过</font>"
end select
%> </td>
<td height="22"><%
if rs("StateFlag")="0" then response.write "<a href='?cur_action=Pass&EditID="&rs("LoginID")&"&PageNo="&PageNo&"'>通过</a>"
if rs("StateFlag")="2" then response.write "<a href='?cur_action=unPass&EditID="&rs("LoginID")&"&PageNo="&PageNo&"'>取消</a>"
if rs("StateFlag")="1" then response.write "<a href='?cur_action=Pass&EditID="&rs("LoginID")&"&PageNo="&PageNo&"'>通过</a>|<a href='?cur_action=unPass&EditID="&rs("LoginID")&"&PageNo="&PageNo&"'>取消</a>"
%>
|<a href='?cur_action=read&EditID=<%=rs("LoginID")%>&PageNo=<%=PageNo%>'>详细信息</a>|<a href="?cur_action=delete&EditID=<%=rs("LoginID")%>&PageNo=<%=PageNo%>" onclick="{if(confirm('确定删除该条纪录吗?')){return true;}return false;}">删除</a></td>
</tr>
<% rs.movenext
if rs.eof then
i = i + 1
exit for
end if
next %>
</table></td>
</tr>
<tr>
<td height="8" colspan="2"></td>
</tr>
<tr>
<td width="33%"> 页次：<b><%=CurPage%></b>/<b><%=rs.pagecount %></b>页 共<b><%=rs.recordcount %></b>条记录</td>
<td width="67%" align="right">
<%
if CurPage = 1 then
response.write " 首页 | 上一页 | "
else
response.write "<a href='?PageNo=1&T_key="&request("T_key")&"'><b> 首页 </b></a> | <a href='?PageNo="&CurPage-1&"&T_key="&request("T_key")&"'><b>上一页</b></a>| "
end if
if CurPage = rs.pagecount then
response.write "后一页 | 尾页 "
else
response.write "<a href='?PageNo="&CurPage+1&"&T_key="&request("T_key")&"'><b>后一页</b> </a>| <a href='?PageNo="&rs.pagecount&"&T_key="&request("T_key")&"'><b>尾页</b> </a>"
end if
%>
跳转到：<select name="menu1" onChange="MM_jumpMenu('parent.frames[\'right\']',this,0)">
<% for i=1 to rs.pagecount
if CurPage=i then
response.write "<option value='?PageNo="&i&"&T_key="&request("T_key")&"' selected>第"&i&"页"
else
response.write "<option value='?PageNo="&i&"&T_key="&request("T_key")&"'>第"&i&"页"
end if
next
%>
</select></td>
</tr>
</table>
<%end if%>
<br> <br> </td>
<td width="2" background="images/midder2.gif"><img src="images/midder2.gif" width="2" height="3"></td>
</tr>
<tr>
<td valign="top"><img src="images/bottom1.gif" width="6" height="14"></td>
<td height="14" valign="top" background="images/bottom2.gif"><img src="images/bottom2.gif" width="2" height="14"></td>
<td valign="top"><img src="images/bottom3.gif" width="2" height="14"></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -