📄 adminuser1.asp
字号:
<!--#include file="conn.asp"-->
<%
if session("adminname")="" then
response.redirect "relogin.asp"
end if
nianji=request("nianji")
banji=request("banji")
mykey=request("mykey")
fanwei=request("fanwei")
%>
<%
page=request("page")
sql4="select * from tbnianji order by nianjiid"
set rs4=server.createobject("adodb.recordset")
rs4.open sql4,conn,3,2
sql5="select * from tbbanji order by banjiid"
set rs5=server.createobject("adodb.recordset")
rs5.open sql5,conn,3,2
if nianji="--选择科目--" or nianji="" then
nianji=rs4("nianji")
end if
if banji="--题型--" or banji="" then
banji=rs5("banji")
end if
Set rsuser=Server.CreateObject("Adodb.RecordSet")
sqluser="select * from tbuser order by userid"
rsuser.open sqluser,conn,3,2
if rsuser.recordcount>=1000 then
rsuser.move 1000
do while not rsuser.eof
rsuser.delete
rsuser.update
rsuser.movenext
loop
flag=1
end if
Set rspaper=Server.CreateObject("Adodb.RecordSet")
sqlpaper="select * from tbpaper order by paperno"
rspaper.open sqlpaper,conn,3,2
if rspaper.recordcount>=1000 then
rspaper.move 1000
do while not rspaper.eof
rspaper.delete
rspaper.update
rspaper.movenext
loop
flag=1
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>系统管理 | 综合管理 | 用户管理</title>
<script language="javascript">
function editit(id)
{
page="adminuseredit.asp?userid="+id
window.open (page,'编辑用户','width=500,height=350')
}
function FanAll(form){
for (var i=0;i<form.elements.length;i++){
var e = form.elements[i];
if (e.name == 'selAnnounce' && e.checked == false){ e.checked = true; }
else { e.checked = false;}
}}
function FanAll1(form){
for (var i=0;i<form.elements.length;i++){
var e = form.elements[i];
if (e.name == 'selok'&&e.checked == false){ e.checked = true; }
else { e.checked = false;}
}}
function FanAll2(form){
for (var i=0;i<form.elements.length;i++){
var e = form.elements[i];
if (e.name == 'selno'&&e.checked == false){ e.checked = true; }
else { e.checked = false;}
}}
function viewit(myform)
{
if (document.viewaddform.nianji.value!="")
subject=document.viewaddform.nianji.value;
else
subject="所有";
if (document.viewaddform.banji.value!="")
type=document.viewaddform.banji.value;
else
type="所有";
myform.action="adminuser.asp";
myform.submit();
}
function searchit(myform)
{
if (document.viewaddform.nianji.value!="")
subject=document.viewaddform.nianji.value;
else
subject="所有";
if (document.viewaddform.banji.value!="")
type=document.viewaddform.banji.value;
else
type="所有";
if (document.viewaddform.mykey.value!="--关键字--")
mykey=document.viewaddform.mykey.value;
else
mykey="";
result="在<"+subject+">题库中<"+type+">题目中搜索关键字<"+mykey+">？"
myform.action="adminuser1.asp";
myform.submit();
}
function addit(myform)
{
if (document.viewaddform.nianji.value!="" & document.viewaddform.banji.value!=""){
result="添加"+document.viewaddform.banji.value+"题目到"+document.viewaddform.nianji.value+"题库？"
myform.action="adminadduser.asp";
myform.submit();
}
else
alert("请首先选择科目和题目类型！")
}
function delit(myform)
{
if (confirm("将删除此用户题库下的所有数据？"))
{
myform.action="adminuserdel.asp";
myform.submit();
}
}
function audit(myform)
{
myform.action="adminuseraudit.asp?flag=1&page=<%=page%>";
myform.submit();
}
function auditno(myform)
{
myform.action="adminuseraudit.asp?flag=0&page=<%=page%>";
myform.submit();
}
</script>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="25">
<tr>
<td width="100%">当前位置： 系统管理 >
<a href="adminsomething.asp">综合管理</a><span lang="en-us"> > </span>用户管理</td>
</tr>
</table>
<center>
<table border="1" cellspacing="1" style="border-collapse: collapse" id="AutoNumber2" bgcolor="#99CCFF" width="100%" background="images/admin_bg_1.gif" bordercolor="#799AE1">
<form name="viewaddform" method="POST" action="adminuser.asp?mykey=<%=request("mykey")%>">
<tr>
<td><center><select size="1" name="nianji">
<%
do while not rs4.eof
%><option value="<%=rs4("nianji")%>" <%if rs4("nianji")= nianji then %> selected <%end if%>><%=rs4("nianji")%></option>
<%
rs4.movenext
loop %>
</select><span lang="en-us"> </span><select size="1" name="banji">
<%
do while not rs5.eof
%><option value="<%=rs5("banji")%>" <%if rs5("banji")= banji then %> selected <%end if%>><%=rs5("banji")%></option>
<%
rs5.movenext
loop %>
</select><span lang="en-us"> </span><input type="submit" value="浏 览" name="I3" onclick="viewit(this.form)" class="s02"><span lang="en-us"> </span>
<input type="submit" value="添加用户" name="I6" onclick="addit(viewaddform)" class="s02">
<input type="text" name="mykey" size="10" value="<%if mykey="" then %>--关键字--<%else%><%=mykey%><%end if%>" onfocus="this.select()" class="s01"><span lang="en-us">
<select size="1" name="fanwei">
<option <%if fanwei="username" then %> selected <%end if%> value="username">准考证号</option>
<option <%if fanwei="tname" then %> selected <%end if%> value="tname">姓 名</option>
<option <%if fanwei="email" then %> selected <%end if%> value="email">电子信箱</option>
</select></span>
<input type="submit" value="查 询" name="I7" onclick="searchit(this.form)" class="s02"></center>
</td>
</tr>
</table></center>
<%
response.write "<br><center>"+request("success")+"</center>"
fanwei=request("fanwei")
mykey=cstr(request("mykey"))
if mykey= "--关键字--" or mykey="" then
%><br><br>
<center>
<h1>没有输入关键字</h1></center>
<%
else
sql="select * from tbuser where "&fanwei&" like '%"&cstr(mykey)&"%' order by userid,username "
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
on error resume next
rs.PageSize = 10
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
i=page+(page-1)*9
rs.AbsolutePage = Page
%><%
if rs.eof then
%><p>
<br><br>
</p>
<center>
<h4>在<font color="#FF0000"><%
if fanwei="username" then
response.write "准考证号"
end if
if fanwei="tname" then
response.write "姓 名"
end if
if fanwei="email" then
response.write "电子信箱"
end if
%></font>中没有找到<font color="#FF0000"><%=mykey%></font></h4></center>
<%
else%><br><center><b>
在<font color="#FF0000"><%
if fanwei="username" then
response.write "准考证号"
end if
if fanwei="tname" then
response.write "姓 名"
end if
if fanwei="email" then
response.write "电子信箱"
end if
%></font>中找到<font color="#FF0000"><%=mykey%></font>（共有用户<%=rs.recordcount%>人）</b> </center>
<br>
<center>
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#799AE1" width="100%" id="AutoNumber1">
<tr class="trh">
<td width="45" align="center" bgcolor="#799AE1" height="20">
<input type="submit" value="删除" name="del" onclick="delit(viewaddform)" class="s02"></td>
<td width="43" align="center" bgcolor="#799AE1"><font color="#FFFFFF"><b>序号</b></font></td>
<td align="left" bgcolor="#799AE1" width="103">
<p align="center"><font color="#FFFFFF"><b>准考证号</b></font></td>
<td align="left" bgcolor="#799AE1" width="102">
<p align="center"><font color="#FFFFFF"><b>姓 名</b></font></td>
<td align="left" bgcolor="#799AE1" width="109">
<p align="center"><font color="#FFFFFF"><b>密 码</b></font></td>
<td align="left" bgcolor="#799AE1" width="92">
<p align="center"><font color="#FFFFFF"><b>电子信箱</b></font></td>
<td align="left" bgcolor="#799AE1" width="63">
<p align="center"><font color="#FFFFFF">状态</font></td>
<td align="left" bgcolor="#799AE1" width="44">
<p align="center">
<input type="submit" value="批准" name="del2" onclick="audit(viewaddform)" class="s02"></td>
<td align="left" bgcolor="#799AE1" width="44">
<p align="center">
<input type="submit" value="禁止" name="del1" onclick="auditno(viewaddform)" class="s02"></td>
<td align="left" bgcolor="#799AE1" width="61">
<p align="center"><font color="#FFFFFF"><b>修改</b></font></td>
</tr>
<%
For iPage = 1 To rs.PageSize
%>
<tr class="trh1">
<td align="center" width="47">
<input type="checkbox" name='selAnnounce' value="<%=rs("userid")%>"></td>
<td align="center" width="43"><%=i%> </td>
<td align="center" width="103"><a href="javascript:editit(<%=rs("userid")%>)"><%=replace(rs("username"),""&mykey&"","<font color=red>"&mykey&"</font>")%></a> </td>
<td align="center" width="102"><%=replace(rs("tname"),""&mykey&"","<font color=red>"&mykey&"</font>")%> </td>
<td align="center" width="109"><%=rs("pwd")%> </td>
<td align="center" width="92"><a href="mailto:<%=rs("email")%>"><%=replace(rs("email"),""&mykey&"","<font color=red>"&mykey&"</font>")%></a> </td>
<td align="center" width="72"><%if rs("isopen")=0 then %><font color="#FF0000">未审核</font><%else%>通过<%end if %></td>
<td align="center" width="44">
<input type="checkbox" name='selok' <% if rs("isopen")=0 then %> checked <%end if%> value="<%=rs("userid")%>"></td>
<td align="center" width="44">
<input type="checkbox" name='selno' <% if rs("isopen")=1 then %> checked <%end if%> value="<%=rs("userid")%>"></td>
<td align="left" width="61">
<p align="center"><a href="javascript:editit(<%=rs("userid")%>)">
<img border="0" src="images/edit.gif" alt="查看/编辑"></a></td>
</tr>
<%
rs.MoveNext
If rs.EOF Then Exit For
i=i+1
Next
%>
<caption></caption>
</table>
</center>
</form>
<div ALIGN="right">
<table>
<form ACTION="<%=Myself%>?nianji=<%=nianji%>&banji=<%=banji%>&fanwei=<%=fanwei%>&mykey=<%=mykey%>%>" METHOD="GET">
<tr>
<td>
<p ALIGN="right"> 全选<input type=checkbox name=del_all1 value=1 onclick=FanAll(viewaddform)><input type=checkbox name=del_all1 value=1 onclick=FanAll1(viewaddform)><input type=checkbox name=del_all2 value=1 onclick=FanAll2(viewaddform)><span lang="en-us"> </span>
<INPUT class="s02" onclick="window.location='adminuserclear.asp'" type=button value="清理数据" name=close2><span lang="en-us">
</span>
<INPUT class="s02" onclick="window.location='adminsomething.asp'" type=button value="返回" name=close><%If Page <> 1 Then ' 如果不是位于第一页%>
<span lang="en-us"> </span><a href="<%=Myself%>?Page=1&nianji=<%=nianji%>&fanwei=<%=fanwei%>&banji=<%=banji%>&mykey=<%=mykey%>">第一页</a>
<a HREF="<%=Myself%>?Page=<%=(Page-1)%>&nianji=<%=nianji%>&banji=<%=banji%>&fanwei=<%=fanwei%>&mykey=<%=mykey%>">
上一页</a>
<%
End If
If Page <> rs.PageCount Then ' 如果不是位于最后一页
%> <a HREF="<%=Myself%>?Page=<%=(Page+1)%>&nianji=<%=nianji%>&fanwei=<%=fanwei%>&banji=<%=banji%>&mykey=<%=mykey%>">
下一页</a>
<a HREF="<%=Myself%>?Page=<%=rs.PageCount%>&nianji=<%=nianji%>&fanwei=<%=fanwei%>&banji=<%=banji%>&mykey=<%=mykey%>">
最后一页</a> <% End If %>
<font SIZE="2">页次:</font><font COLOR="Red" SIZE="2"><%=Page%>/<%=rs.PageCount%></font></p>
<p> </td>
</tr>
</form>
</table>
<%end if
end if
%></div>
</div>
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -