📄 adminuser.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="sub/config.asp"-->
<!--#include file="sub/conn.asp"-->
<!--#include file="sub/inc.asp"-->
<!--#include file="sub/md5.asp"-->
<%
call hacker()
if session("admin")<>"axsj" then
response.Write "<script>alert('您还没有登陆！');this.location.href='index.asp';</script>"
Response.End
end if
if session("adminsuper")<>"admin" then
response.Write "<script>alert('对不起!您不是高层管理员！请返回');this.location.href='javascript:history.go(-1)';</script>"
end if
adminname=session("adminname")
adminsuper=session("adminsuper")
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=Sitename%>-后台管理系统-会员管理</title>
<link href="index.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!--#include file="top.asp"-->
<table width="780" border="0" cellspacing="0" cellpadding="0" align="center">
<tr><td height="4" colspan="2" background="images/index_11.gif"></td>
</tr>
<tr>
<td width="200" align="center" valign="top">
<% '调用左边框架
call adminleft()%>
<p> </p> </td>
<td width="580" align="left" valign="top" bgcolor="#EDFFFF">
<% sqlstr ="select count(id) as name from ax_user " '查表
set rs =cn.execute(sqlstr) '利用connection的execute方法运行SQL命令
%>
<form name="form1" action="" method="post">
本站点已有<font color=#FF9900><%=rs("name")%></font>个会员,会员搜索<span></span>(可输入会员任何信息进行搜索):
<input name="search" type="text" class="wubian" id="search" size="16" maxlength="40">
<input name="search1" type="submit" class="wubian" value="搜索">
</form>
<%
action=request("action")
select case action
case "del":
call del()
case "cng"
call cng()
end select
sub del()
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from ax_user where id="&request("id")
rs1.open sql1,cn,1,3
rs1.delete
response.Write"上一步操作:删除成功!"
rs1.close
set rs1=nothing
end sub
sub cng()
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from ax_user where id="&request("id")
rs1.open sql1,cn,1,3
rs1("name")=rs1("name")
if request("pwd")<>"" then
rs1("pwd")=md5(request("pwd"))
else
rs1("pwd")=rs1("pwd")
end if
rs1("sex")=request("sex")
rs1("email")=request("email")
rs1("userqq")=request("userqq")
rs1("phone")=request("phone")
rs1("sheng")=request("sheng")
rs1("regtime")=request("regtime")
rs1("logincount")=request("logincount")
rs1("dname")=request("dname")
rs1("dbook")=request("dbook")
rs1("daddress")=request("daddress")
rs1("dweb")=request("dweb")
rs1("dphone")=request("dphone")
rs1("dn")=request("dn")
rs1("dpic")=request("dpic")
rs1("dclass")=request("dclass")
rs1("type")=request("type")
rs1("pass")=request("pass")
rs1("best")=request("best")
rs1.update
response.Write"上一步操作:修改"&rs1("name")&"成功!"
rs1.close
set rs1=nothing
end sub
%>
<% rs.close
set rs=nothing
if request("search1")="" then
%>
<table width="580" border="1" cellspacing="0" cellpadding="0">
<tr>
<td height="18" align="center" bgcolor="#3A82C4">会员名称</td>
<td height="18" align="center" bgcolor="#3A82C4">性别</td>
<td height="18" align="center" bgcolor="#3A82C4">Email</td>
<td height="18" align="center" bgcolor="#3A82C4">省别</td>
<td height="18" align="center" bgcolor="#3A82C4">级别</td>
<td height="18" align="center" bgcolor="#3A82C4">选项</td>
</tr>
<%dim rs,sql
set rs=server.CreateObject("Adodb.recordSet")
sql="select * from ax_user order by regtime desc"
rs.open sql,cn,1,1
rs.PageSize=30
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.AbsolutePage=page
for i=1 to rs.pagesize
if rs.EOF then exit for%>
<tr>
<td height="18" align="center"><%=rs("name")%></td>
<td height="18" align="center"><%=rs("sex")%></td>
<td height="18" align="center"><%=rs("email")%></td>
<td height="18" align="center"><%=rs("sheng")%></td>
<td height="18" align="center"><%=rs("type")%></td>
<td height="18" align="center"><a href="?search1=1&search=<%=rs("name")%>">修改 </a> <a href="?action=del&id=<%=rs("id")%>">删除</a></td>
</tr>
<%
rs.movenext
next%><table align="center"><tr><td>
<br /><br />
<%if page=1 and not page=pagecount then%>
<div align="center">第<%=page%>页 <%for i=1 to pagecount%>
<a href="adminuser.asp?page=<%=i%>"><%=i%></a> <%next%><a href="adminuser.asp?page=<%=page+1%>">下一页</a> </div>
<%elseif page=pagecount and not page=1 then%>
<div align="center">第<%=page%>页 <%for i=1 to pagecount%>
<a href="adminuser.asp?page=<%=i%>"><%=i%></a> <%next%><a href="adminuser.asp?page=<%=page-1%>">上一页</a> </div>
<%elseif page<1 then%><div class="font" align="center"><font color=red>没有任何记录！</font></div>
<%elseif page>pagecount then%><div class="font" align="center"><font color=red>没有任何记录！</font></div>
<%elseif page=1 and page=pagecount then%>
<%else%>
<div align="center">第<%=page%>页 <%for i=1 to pagecount%>
<a href="adminuser.asp?page=<%=i%>"><%=i%></a> <%next%><a href="adminuser.asp?page=<%=page-1%>">上一页</a>
<a href="adminuser.asp?page=<%=page+1%>">下一页</a> </div></td></tr></table>
<%end if
set rs =nothing
else
if request.form("search")<>"" then
search=request.form("search")
else
search=request("search")
end if
sqlstr ="select * from ax_user where name='"&search&"' or userqq='"&search&"' or dname='"&search&"' or sheng='"&search&"' or type='"&search&"' or sex='"&search&"'" '查表
set rs =cn.execute(sqlstr) '利用connection的execute方法运行SQL命令
if rs.EOF or rs.BOF then
Response.Write "<div align=center>数据库没有此记录哦!请<a href=adminuser.asp>返回</a>!</div>"
else
do while not rs.EOF or rs.BOF
%>
<form id="form3" name="form3" method="post" action="?action=cng&id=<%=rs("id")%>">
<table width="580" border="1" cellspacing="0" cellpadding="0">
<tr>
<td height="20" colspan="4" align="left" bgcolor="#3B83C5"> 会员编号:<%=rs("id")%> 会员名称:<%=rs("name")%></td>
</tr>
<tr>
<td height="20" align="left">密码:</td>
<td height="20" align="left"><label>
<input name="pwd" type="text" class="wubian" id="pwd" size="16" maxlength="30" />
不修改请留空</label></td>
<td height="20" align="left">工作室名称:</td>
<td height="20" align="left"><input name="dname" type="text" class="wubian" id="dname" value="<%=rs("dname")%>" size="22" maxlength="30" /></td>
</tr>
<tr>
<td height="20" align="left">性别:</td>
<td height="20" align="left"><label>
<input name="sex" type="radio" value="男" <%if rs("sex")="男" then response.write "checked='checked'" end if%> />
男
<input type="radio" name="sex" value="女" <%if rs("sex")="女" then response.write "checked='checked'" end if%>/>
女</label></td>
<td height="20" align="left">工作室简介:</td>
<td rowspan="2" align="left"><label>
<textarea name="dbook" cols="24" rows="3" class="wubian" id="dbook"><%=rs("dbook")%></textarea>
</label></td>
</tr>
<tr>
<td height="20" align="left">Q 号: </td>
<td height="20" align="left"><input name="userqq" type="text" class="wubian" id="userqq" value="<%=rs("userqq")%>" size="16" maxlength="30" /></td>
<td height="20" align="left"> </td>
</tr>
<tr>
<td height="20" align="left">电话:</td>
<td height="20" align="left"><input name="phone" type="text" class="wubian" id="phone" value="<%=rs("phone")%>" size="16" maxlength="30" /></td>
<td height="20" align="left">联系人:</td>
<td height="20" align="left"><input name="dn" type="text" class="wubian" id="dn" value="<%=rs("dn")%>" size="22" maxlength="30" /></td>
</tr>
<tr>
<td height="20" align="left">省别:</td>
<td height="20" align="left"><select name="sheng" class="Input" id="sheng"
onchange="updatecitys(this.selectedIndex)">
<option value="<%=rs("sheng")%>"><%=rs("sheng")%></option>
<option value="安徽省 ">安徽省 </option>
<option value="澳门 ">澳门 </option>
<option value="北京市 ">北京市 </option>
<option value="福建省 ">福建省 </option>
<option value="甘肃省 ">甘肃省 </option>
<option
value="广东省">广东省 </option>
<option value="广西">广西 </option>
<option value="贵州省">贵州省 </option>
<option
value="海南省">海南省 </option>
<option value="河北省 ">河北省 </option>
<option value="河南省 ">河南省 </option>
<option value="黑龙江 ">黑龙江 </option>
<option value="湖北省 ">湖北省 </option>
<option value="湖南省 ">湖南省 </option>
<option value="吉林省 ">吉林省 </option>
<option value="江苏省 ">江苏省 </option>
<option value="江西省 ">江西省 </option>
<option value="辽宁省 ">辽宁省 </option>
<option value="内蒙古 ">内蒙古 </option>
<option value="宁夏 ">宁夏 </option>
<option value="青海省 ">青海省 </option>
<option value="山东省 ">山东省 </option>
<option value="山西省 ">山西省 </option>
<option value="陕西省 ">陕西省 </option>
<option value="上海市 ">上海市 </option>
<option value="四川省 ">四川省 </option>
<option value="台湾 ">台湾 </option>
<option value="天津市 ">天津市 </option>
<option value="西藏 ">西藏 </option>
<option value="香港 ">香港 </option>
<option value="新疆 ">新疆 </option>
<option value="云南省 ">云南省 </option>
<option value="浙江省 ">浙江省 </option>
<option value="重庆市">重庆市</option>
</select>
*</td>
<td height="20" align="left">联系电话:</td>
<td height="20" align="left"><input name="dphone" type="text" class="wubian" id="dphone" value="<%=rs("dphone")%>" size="22" maxlength="30" /></td>
</tr>
<tr>
<td height="20" align="left">来访次数:</td>
<td height="20" align="left"><input name="logincount" type="text" class="wubian" id="logincount" value="<%=rs("logincount")%>" size="16" maxlength="30" /></td>
<td height="20" align="left">网址:</td>
<td height="20" align="left"><input name="dweb" type="text" class="wubian" id="dweb" value="<%=rs("dweb")%>" size="22" maxlength="30" /></td>
</tr>
<tr>
<td height="20" align="left">会员等级:</td>
<td height="20" align="left"><input name="type" type="text" class="wubian" id="type" value="<%=rs("type")%>" size="16" maxlength="30" /></td>
<td height="20" align="left">联系地址:</td>
<td height="20" align="left"><input name="daddress" type="text" class="wubian" id="daddress" value="<%=rs("daddress")%>" size="22" maxlength="30" /></td>
</tr>
<tr>
<td height="20" align="left">注册时间:</td>
<td height="20" align="left"><input name="regtime" type="text" class="wubian" id="regtime" value="<%=rs("regtime")%>" size="16" maxlength="30" /></td>
<td height="20" align="left">logo地址:</td>
<td height="20" align="left"><input name="dpic" type="text" class="wubian" id="dpic" value="<%=rs("dpic")%>" size="22" maxlength="30" /></td>
</tr>
<tr>
<td height="20" align="left">功能选项:</td>
<td height="20" align="left"><input name="pass" type="radio" value="true" <% if rs("pass")=true then response.write "checked" end if%> /> 通过 <input name="pass" type="radio" value="false" <% if rs("pass")=false then response.write "checked" end if%> /> 不通过 <input name="best" type="radio" value="true" <% if rs("best")=true then response.write "checked" end if%> /> 推荐<input name="best" type="radio" value="false" <% if rs("best")=false then response.write "checked" end if%> /> 不推荐</td>
<td height="20" align="left">设计分类:</td>
<td height="20" align="left"><span class="xuxian">
<% if rs("dclass")=1 then
response.Write "平面设计"
elseif rs("dclass")=2 then
response.Write "三维设计"
elseif rs("dclass")=3 then
response.write "动画设计"
elseif rs("dclass")=4 then
response.write"综合设计"
end if %>
<select name="dclass" id="dclass">
<option value="1">平面设计</option>
<option value="2">三维设计</option>
<option value="3">动画设计</option>
<option value="4">综合设计</option>
</select>
</span></td>
</tr>
<tr>
<td height="20" align="left">Email:</td>
<td height="20" align="left"><input name="email" type="text" class="wubian" id="email" value="<%=rs("email")%>" size="20" maxlength="30" /></td>
<td height="20" align="left"> </td>
<td height="20" align="left"><label>
<input name="Submit" type="submit" class="wubian" value="确定修改" />
<input name="Submit2" type="reset" class="wubian" value="重 置" />
</label></td>
</tr>
</table>
</form>
<%
rs.movenext
loop
set rs =nothing
end if
end if
%>
</table> </td>
</tr>
</table>
<!--#include file="bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -