?? admin_user.asp
字號(hào):
<!-- #include file="密碼驗(yàn)證.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號(hào)")=Request("QQ")
rs("登陸次數(shù)")=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="班級(jí)管理"%>
<!-- #include file="head.asp" -->
<script language=VBScript>
top.document.title="班級(jí)管理"
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>帖數(shù)<center></td>
<td width="25%"><center>登陸次數(shù)<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("文章數(shù)")%></center></td>
<td width="25%"><center><%=rs("登陸次數(shù)")%></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("您真的要?jiǎng)h除 " & 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號(hào)")%>"></a></span></td>
</tr>
<tr height=25 class=a3 colspan=4>
<td>登陸次數(shù)</td>
<td colspan=3>
<span >
<input size="45" name="cishu" value="<%=rs("登陸次數(shù)")%>"></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>?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -