📄 user_admin.asp
字号:
<%@ Language=VBScript%>
<%
Response.Buffer=true
Response.Expires=0
if Session("userqx")>="1" and Session("userqx")<="9" then
else
Response.Redirect "../admin/warn.asp"
end if
%>
<!-- #include file="../dsn.asp" -->
<%
flag=Request.QueryString("flag")
pageno=Request.QueryString("pageno")
delkeyno=Request.QueryString("delkeyno")
seekname=Request.QueryString("seekname")
seekword=Request.QueryString("seekword")
ordername=Request.QueryString("ordername")
byasc=Request.QueryString("byasc")
if ordername="" then ordername="userno"
if byasc="" then byasc="desc"
ordertxt=" order by "+ordername+" "+byasc
set cn=server.CreateObject("ADODB.Connection")
cn.Open mycnstr
set rs=server.CreateObject("ADODB.Recordset")
set rs2=server.CreateObject("ADODB.Recordset")
tablename="userinfo"
if Request.ServerVariables("REQUEST_METHOD")="POST" then
if Request.Form("submit")<>"" then
seekname=Request.Form("seekname")
seekword=Request.Form("seekword")
else
rectot=Request.Form("rectot")
cn.BeginTrans
for i=1 to rectot
checksele=Request.Form("checksele"&i)
if checksele<>"" then
seleitem=Request.Form("seleitem"&i)
sqltext="select * from "+tablename+" where userno="&seleitem
rs.Open sqltext,cn,1,1
if not rs.EOF then
set fs=CreateObject("Scripting.FileSystemObject")
name1=trim(rs("picfile"))
if name1<>"" then
if fs.FileExists(server.MapPath("userfiles/"&name1)) then
fs.DeleteFile(server.MapPath("userfiles/"&name1))
end if
end if
end if
rs.Close
sqltext="delete from "+tablename+" where userno="&seleitem
cn.Execute sqltext
end if
next
cn.CommitTrans
end if
end if
htmltitle="个人会员"
htmlname="user_admin.asp?flag="+flag+"&seekname="+seekname+"&seekword="+seekword+"&ordername="+ordername+"&byasc="+byasc
htmlname2="user_admin.asp?flag="+flag+"&seekname="+seekname+"&seekword="+seekword
select case seekname
case "1"
wheretxt=" where realname like '%"+seekword+"%'"
case "2"
wheretxt=" where usercode like '%"+seekword+"%'"
case "0"
wheretxt=" where state='0' "
end select
if flag<>"" then
if wheretxt="" then
wheretxt=" where flag='"+flag+"'"
else
wheretxt=wheretxt+" and flag='"+flag+"'"
end if
end if
%>
<html>
<head>
<title><%=htmltitle%></title>
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {font-size: 12px; color: #000000; font-family: 宋体}
td {font-size: 12px; color: #000000; font-family: 宋体;}
.t1 {font:12px 宋体;color=000000}
.t2 {font:12px 宋体;color:ffffff}
.t3 {font:12px 宋体;color:000080}
.t4 {font:12px 宋体;color:ff0000}
.t5 {font:12px 宋体;color:ff6600}
.bt1 {font:14px 宋体;color=000000}
.bt2 {font:14px 宋体;color:ffffff}
.bt3 {font:14px 宋体;color:000080}
.bt4 {font:14px 宋体;color:ff0000}
.bt5 {font:14px 宋体;color:ff6600}
A:link {color: #000077}
A:visited {color: #000077}
A:hover {color: #ff0000}
A.r1:link {font-size:12px;text-decoration:underline;color:#000000;}
A.r1:visited {font-size:12px;text-decoration:underline;color:#000000;}
A.r1:hover {font-size:12px;text-decoration:underline;color:#ff6600;}
A.r2:link {font-size:12px;text-decoration:underline;color:#ffffff;}
A.r2:visited {font-size:12px;text-decoration:underline;color:#ffffff;}
A.r2:hover {font-size:12px;text-decoration:underline;color:#ff6600;}
-->
</style>
</head>
<body topmargin=5 leftmargin=5 bgcolor=#ffffff>
<table width="100%" align=center border="0" cellspacing="0" cellpadding="2">
<%
sqltext="select userno,usercode,realname,email,updatetime,querycount,state,flag,picflag,talkcount,logintime,amount from userinfo "+wheretxt+ordertxt
'Response.Write sqltext
'Response.End
rs.Open sqltext,cn,1,1
pagesize=50
rs.PageSize=pagesize
if pageno="" then pageno=1 else pageno=cint(pageno)
if rs.PageCount>0 then rs.AbsolutePage=pageno
pagecount=rs.PageCount
rowcount=rs.RecordCount
%>
<tr><td valign=top height=30>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name=form1 method="post" action="<%=htmlname%>" onsubmit="return checkform(form1)" autocomplete = "off">
<tr><td>
<font color="#993300" style="font-size:14px"><b><%=htmltitle%></b></font>
<font color=ff6600><%=classname%></font>
<a href="<%=htmlname%>&pageno=<%=pageno%>">[刷新]</a>
</td>
<td align="center">
<select name="select" onChange="if(this.options[this.selectedIndex].value!='$') {window.open(this.options[this.selectedIndex].value,'_self')}" >
<option value="user_admin.asp">--全部用户--</option>
<option value="user_admin.asp?flag=0" <%if flag="0" then Response.Write("selected")%>>普通用户</option>
<option value="user_admin.asp?flag=1" <%if flag="1" then Response.Write("selected")%>>内部用户</option>
<option value="user_admin.asp?flag=2" <%if flag="2" then Response.Write("selected")%>>高级用户</option>
<option value="user_admin.asp?seekname=0" <%if seekname="0" then Response.Write("selected")%>>已禁止用户</option>
</select>
</td>
<td align="right">关键字：
<input type=text size=8 maxlength=20 name=seekword value="<%=seekword%>">
<select name=seekname>
<option value=2 <%if seekname="2" then Response.Write("Selected")%>>会员代号</option>
<option value=1 <%if seekname="1" then Response.Write("Selected")%>>真实姓名</option>
</select>
<input type="submit" value="查找" name="submit">
</td><td align=right height=30>
<font color="#000000">第
<select name="select1" onChange="if(this.options[this.selectedIndex].value!='$') {window.open(this.options[this.selectedIndex].value,'_self')}">
<%for i=1 to rs.PageCount%>
<option value="<%=htmlname&"&pageno="&i%>" <%if i=pageno then Response.Write("selected")%>><%=i%></option>
<%next%>
</select>页 共<font color=ff6600><b><%=rs.PageCount%></b></font>页<font color=ff6600><b><%=rs.RecordCount%></b></font>条记录</font>
<%if pageno>1 then%>
<a class=r1 href="<%=htmlname%>&pageno=1">[首页]</a>
<a class=r1 href="<%=htmlname%>&pageno=<%=pageno-1%>">[上页]</a>
<%end if
if pageno<rs.PageCount then%>
<a class=r1 href="<%=htmlname%>&pageno=<%=pageno+1%>">[下页]</a>
<a class=r1 href="<%=htmlname%>&pageno=<%=rs.PageCount%>">[末页]</a>
<%end if%>
</td></tr></form>
</table>
</td></tr>
<tr><td valign=top height=360>
<table width="100%" border="0" cellspacing="1" cellpadding="1" style="font-size:14.5px;line-height:100%">
<form name=form2 method="post" action="<%=htmlname%>">
<tr bgcolor="527c72" style="color:#ffffff" align="center">
<td class=t2 height=20></td>
<td class=t2><a class=r2 href="<%=htmlname2%>&ordername=usercode&byasc=<%=selectxh("usercode",ordername,byasc,"asc")%>">会员代号</a></td>
<td class=t2><a class=r2 href="<%=htmlname2%>&ordername=realname&byasc=<%=selectxh("realname",ordername,byasc,"asc")%>">真实姓名</a></td>
<td class=t2><a class=r2 href="<%=htmlname2%>&ordername=flag&byasc=<%=selectxh("flag",ordername,byasc,"desc")%>">状态</a></td>
<td class=t2><a class=r2 href="<%=htmlname2%>&ordername=talkcount&byasc=<%=selectxh("talkcount",ordername,byasc,"desc")%>">文章</a></td>
<td class=t2><a class=r2 href="<%=htmlname2%>&ordername=amount&byasc=<%=selectxh("amount",ordername,byasc,"desc")%>">积分</a></td>
<td class=t2><a class=r2 href="<%=htmlname2%>&ordername=querycount&byasc=<%=selectxh("querycount",ordername,byasc,"desc")%>">人气</a></td>
<td></td>
<td></td>
<td class=t2><a class=r2 href="<%=htmlname2%>&ordername=updatetime&byasc=<%=selectxh("updatetime",ordername,byasc,"desc")%>">更新日期</a></td>
<td class=t2><a class=r2 href="<%=htmlname2%>&ordername=logintime&byasc=<%=selectxh("logintime",ordername,byasc,"desc")%>">最后登录</a></td>
</tr>
<%
i=1
do while not rs.EOF and i<=pagesize
if (i mod 2)=1 then
Response.Write("<tr bgcolor=fefefe>")
else
Response.Write("<tr bgcolor=efefef>")
end if
%>
<td width=10 height=20 align=center>
<input type=hidden name="seleitem<%=i%>" value="<%=rs("userno")%>">
<input type=checkbox name="checksele<%=i%>" value="0">
<input type=hidden name="email<%=i%>" value="<%=trim(rs("email"))%>">
</td>
<td width="120" align="left"><a href="Javascript:editwin('<%=rs("userno")%>')"><%=trim(rs("usercode"))%></a></td>
<td align=left><%=Server.HTMLEncode(trim(rs("realname")))%></td>
<td width="60" align="center">
<%
if rs("state")="1" then
Select case rs("flag")
case "0"
Response.Write("<font color=black>√普通</font>")
case "1"
Response.Write("<font color=800000>◆内部</font>")
case "2"
Response.Write("<font color=ff4500>☆高级</font>")
case "9"
Response.Write("<font color=ff0000>★坛主</font>")
end select
else
Response.Write("<font color=008080>×禁止</font>")
end if
%>
</td>
<td width="40" align=center><%=rs("talkcount")%></td>
<td width="40" align=center><%=rs("amount")%></td>
<td width="40" align=center><%=rs("querycount")%></td>
<td width="40" align="center"><a href="user_display.asp?userno=<%=rs("userno")%>" target=_blank>浏览</a></td>
<td width="40" align="center"><a href="user_center.asp?userno=<%=rs("userno")%>" target=_blank>修改</a></td>
<td width="118" align=center><%=rs("updatetime")%></td>
<td width="118" align=center><%=rs("logintime")%></td>
</tr>
<%
i=i+1
rs.MoveNext
loop
%>
<input type=hidden value="<%=i-1%>" name=rectot>
</table>
</td></tr>
<tr><td valign=top height=30>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr><td colspan=2 bgcolor="696969" height=1></td></tr>
<tr><td>
<input type="button" name="mydele" value="删除" style="width:60px" onclick="delmsg(this.form)">
<input type="button" name="joinsc" value="发送邮件" style="width:90px" onclick="sendmail(this.form)">
<input type="checkbox" name="seleall" onclick="checkall(this.form)" >全选
</td><td align=right height=30>
<font color="#000000">第
<select name="select1" onChange="if(this.options[this.selectedIndex].value!='$') {window.open(this.options[this.selectedIndex].value,'_self')}">
<%for i=1 to pagecount%>
<option value="<%=htmlname&"&pageno="&i%>" <%if i=pageno then Response.Write("selected")%>><%=i%></option>
<%next%>
</select>页 共<font color=ff6600><b><%=pagecount%></b></font>页<font color=ff6600><b><%=rowcount%></b></font>条记录</font>
<%if pageno>1 then%>
<a class=r1 href="<%=htmlname%>&pageno=1">[首页]</a>
<a class=r1 href="<%=htmlname%>&pageno=<%=pageno-1%>">[上页]</a>
<%end if
if pageno<pagecount then%>
<a class=r1 href="<%=htmlname%>&pageno=<%=pageno+1%>">[下页]</a>
<a class=r1 href="<%=htmlname%>&pageno=<%=rs.PageCount%>">[末页]</a>
<%end if%>
</td></tr>
</table>
<%
rs.Close
%>
</td></tr>
</form>
</table>
</body>
</html>
<%
function selectxh(fieldname,ordername,byasc,defaultasc)
if defaultasc<>"asc" then defaultasc="desc"
if fieldname=ordername then
if byasc="desc" then
selectxh="asc"
else
selectxh="desc"
end if
else
selectxh=defaultasc
end if
end function
%>
<script language="Javascript">
function checkform(form)
{
var flag=true;
if(form("seekword").value==""){alert("请输入查询关键字!");form("seekword").focus();return false;}
return flag;
}
function checkall(form)
{
for (var i=0;i<form.elements.length;i++)
{
var obj = form.elements[i];
var objname=obj.name;
if(objname.substring(0,9)=="checksele")
{
obj.checked=form.seleall.checked
}
}
}
function delmsg(form)
{
var flag=false;
var i,rectot,obj1
rectot=form.rectot.value;
for(i=1;i<=rectot;i++)
{
obj1=eval("form.checksele"+i);
if (obj1.checked) flag=true;
}
if (flag){
if (confirm('确认删除选择的记录吗？')==true) form.submit();
}else alert("请先选择要删除的记录!");
}
function editwin(code)
{
window.open("user_code.asp?userno="+code,"","toolbar=no,location=no,directories=no,status=no,resizable=no,menubar=no,scrollbars=no,width=360,height=280,left=120,top=70")
}
function sendmail(form)
{
var flag=false;
var myemail="";
var i,rectot,obj1,obj2;
rectot=form.rectot.value;
for(i=1;i<=rectot;i++)
{
obj1=eval("form.checksele"+i);
obj2=eval("form.email"+i);
if (obj1.checked){
flag=true;
if(obj2.value!=""){
if(myemail=="")
myemail=obj2.value ;
else
myemail=myemail+","+obj2.value ;
}
}
}
if (flag){
if(myemail!="") window.open("mailto:"+myemail);
}
else alert("至少要有一个选项!");
return false;
}
function editfile(keyno)
{
var str
str="file_upload.asp?" ;
str=str+"keyno="+keyno+"&tablename=userinfo&keyword=userno&picsize=90000"
window.open(str,"mywin","toolbar=no,location=no,directories=no,status=no,resizable=no,menubar=no,scrollbars=yes,width=550,height=400,left=120,top=70")
}
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -