📄 deluser.asp
字号:
<%Response.Buffer=true%>
<body bgcolor="#CCCCCC">
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("bbspp1.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 用户表 WHERE 用户名='论坛管理员' "
Set Rs=conn.Execute(sql)
set No=rs("临时身份")
if No="" or No=" " or No<>Request("No") then
Response.Write "你必须以管理员身份登陆"
else
%>
<%
sql="SELECT * FROM 用户表 WHERE 用户名<>'论坛管理员' "
Set Rs=conn.Execute(sql)
set name=rs("用户名")
%>
请选择要删除的用户
<a href="vew.asp?No=<%Response.Write Request("No")%>">讨论区</a>
<a href="admin.asp?No=<%Response.Write Request("No")%>">管理区</a>
<a href="leave.asp?No=<%Response.Write Request("No")%>">离开论坛</a>
<form method="POST" action="deluser.asp">
<input type="hidden" name="No" value="<%=Request("No")%>">
<table border="1" cellpadding="4" cellspacing="0" width="750" height="42" bgcolor="#FFFFFF"><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%></tr>
<input type="checkbox" name="name<%=i%>" value="<%=name%>">
<tr><span style="font-size: 9pt">
<%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%>
下列用户已被删除<br>
<%For p = 1 To i
sql="delete * FROM 用户表 WHERE 用户名='" & Request("name"&p) & "'"
conn.Execute(sql)%>
<%
Response.Write Request("name"&p) & " "
Next
end if%>
<%end if%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -