📄 cutuser.asp
字号:
<%
Response.Buffer=true
%>
<html>
<head>
<title></title>
</head>
<body bgcolor="#CCFFFF">
<%
session("visted")="go"
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("bbsdb.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
Conn.Open connstr
%> <%
sql="SELECT * FROM user WHERE username='BBS管理员' "
Set Rs=conn.Execute(sql)
set No=rs("pois")
if No="" or No=" " or No<>Request("No") then
%>
<script language=javascript>
<!--
alert( "你必须以管理员身份登陆");
window.history.go(-1);
-->
</script>
<%
else
sql="SELECT * FROM user WHERE username<>'BBS管理员' "
Set Rs=conn.Execute(sql)
set name=rs("username")
%>
<table width="170" border="1" cellspacing="0" cellpadding="0" align="right" bgcolor="#669933">
<tr align="center">
<td height="26" width="56"><a href="look.asp?No=<%Response.Write Request("No")%>">讨论区</a></td>
<td height="26" width="45"><a href="save0.asp?No=<%Response.Write Request("No")%>">管理区</a></td>
<td height="26" width="55"><a href="quit.asp?No=<%Response.Write Request("No")%>">离开论坛</a></td>
</tr>
</table>
请选择要删除的用户
<form method="POST" action="cutuser.asp">
<input type="hidden" name="No" value="<%=Request("No")%>">
<table border="1" cellpadding="4" cellspacing="0" width="750" height="42" bgcolor="#FDBD6F"><tr>
<%Do Until rs.EOF%>
<%i=i+1%>
<%for q=1 to i/7+2
if i=7*q then
b="<tr><td>"
exit for
else b="<td>"
end if
next%>
<%=b%><input type="checkbox" name="name<%=i%>" value="<%=name%>">
<%Response.Write Name%>
<%rs.MoveNext
Loop%></tr></table><br>
<p><input type="submit" value="删除" name="B1"> <input type="reset" value="重选"
name="B2"></p>
</form>
<%
B1=Request("B1")
If B1="删除" Then
Response.clear%>
<p>下列用户已被删除<br>
<%For p = 1 To i
sql="delete * FROM user WHERE username='" & Request("name"&p) & "'"
conn.Execute(sql)%>
<%
Response.Write Request("name"&p) & " "
Next
%>
<script language=javascript>
<!--
window.history.go(-2);
//-->
</script>
<%
end if%> <%end if%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -