📄 admin_user.asp
字号:
<!-- #include file="密码验证.asp" -->
<%
if NOIPUserTit<>"管理员" then Response.Status="404" : Response.End
if Request.form("NAME")<>"" then
set rs = server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM NOIP选手 WHERE id=0" & request("user") ,conn ,3,3
rs("姓名")=Request("NAME")
rs("电子邮件")=Request("E-mail")
rs("QQ号")=Request("QQ")
rs("登陆次数")=Request("cishu")
if not( Request("pass")="不修改" or Request("pass")="") then rs("MD5密码")=md5(Request("pass"))
rs.update
rs.close
set rs= nothing
Response.Redirect "admin_user.asp?user=" & request("user")
end if
if Request.QueryString("del")<>"" then
set rs = server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM NOIP选手 WHERE id=0" & request("del") ,conn ,3,3
rs.delete
rs.update
rs.close
set rs= nothing
Response.Redirect "admin_user.asp"
end if
%>
<BODY>
<STYLE>
<!--
.sec_menu {
BORDER-RIGHT: white 1px solid; BACKGROUND: #d6dff7; OVERFLOW: hidden; BORDER-LEFT: white 1px solid; BORDER-BOTTOM: white 1px solid
}
-->
</STYLE>
<%title="班级管理"%>
<!-- #include file="head.asp" -->
<script language=VBScript>
top.document.title="班级管理"
if instr(1,top.location,"index.asp")= 0 then top.location="index.asp?url=" & replace(self.location ,"&","%26")
</script>
<%if Request.QueryString("login")="ok" then %>
<SCRIPT>
if(self.top.location!=self.location )
{
top.document.frames["carnoc"].location.reload
}
</SCRIPT>
<%end if
%>
<p></p>
<%valigntop()%>
<span>
<table cellspacing="1" cellpadding="0" width="97%" align="center" border="0" class="a2" height="25">
<tr height=25 class=a3 colspan=4>
<td width="10%"><center>id</center></td>
<td width="40%"><center>昵称</center></td>
<td width="25%"><center>帖数<center></td>
<td width="25%"><center>登陆次数<center></td>
</tr>
<% set rs = server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM NOIP选手" ,conn ,3,3
do
%>
<tr height=25 class=a3 colspan=4>
<td width="10%"><center><%=rs("id")%></center></td>
<td width="40%"><center><a href="admin_user.asp?user=<%=rs("id")%>"><%=rs("姓名")%></center></td>
<td width="25%"><center><%=rs("文章数")%></center></td>
<td width="25%"><center><%=rs("登陆次数")%></center></td>
</tr>
<%rs.movenext
loop until rs.eof
rs.close
set rs=nothing
if request("user")<>"" then
set rs = server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM NOIP选手 WHERE id=" & request("user") ,conn ,3,3
%>
<tr height=25 class=a3 colspan=4>
<td colspan=4>
</td>
</tr>
<form method="POST" action="admin_user.asp?user=<%=rs("id")%>" id=form2 name=form2>
<tr height=25 class=a3 colspan=4>
<td width="25%">姓名</td>
<td colspan=3><input size="45" value="<%=rs("姓名") %>" name="NAME">
<script language =vbscript>
function delplayer(user,name)
if user = <%=NOIPUserID%> then
msgbox("不能删掉自己")
else
ii=msgbox("您真的要删除 " & name & " 选手么？",vbYesNo)
if ii=vbyes then
self.location="admin_user.asp?del=" & user
end if
end if
end function
</script>
<a href="javascript:delplayer(<%=rs("id")%>,'<%=rs("姓名") %>')">删除该选手</a>
</td>
</a>
</tr>
<tr height=25 class=a3 colspan=4>
<td>E-mail</td>
<td colspan=3><input size="45" value="<%=rs("电子邮件")%>" name="E-mail"></td>
</a>
</tr>
<tr height=25 class=a3 colspan=4>
<td>QQ</td>
<td colspan=3>
<span >
<input size="45" name="QQ" value="<%=rs("QQ号")%>"></a></span></td>
</tr>
<tr height=25 class=a3 colspan=4>
<td>登陆次数</td>
<td colspan=3>
<span >
<input size="45" name="cishu" value="<%=rs("登陆次数")%>"></a></span></td>
</tr>
<tr height=25 class=a3 colspan=4>
<a name="addedit">
<td>密码</td>
<td colspan=3><input size="45" name="pass" value="不修改"></td>
</a>
</tr>
<tr height=25 class=a3 colspan=4>
<td colspan="4">
<p align="center">
<input type="submit" value="修改" name="B1"> <input type="reset" value="重置" name="B2"></p>
</td>
</tr>
</form>
</table>
<span ><%
rs.close
set rs=nothing
end if
valignbottom()%></span></center> </table>
</span>
<!-- #include file="foot.asp" --></BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -