📄 delword.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
%>
<body bgcolor="#FBF0C8" link="#000080" vlink="#008080">
<%
sql="SELECT * FROM 用户表 WHERE 用户名='论坛管理员' "
Set Rs=conn.Execute(sql)
set No=rs("临时身份")
if No="" or No<>Request("No") then
Response.Write "你必须以管理员身份登陆"
else
%>
<%
sql="SELECT * FROM 发言表 ORDER BY ID DESC"
Set Rs=conn.Execute(sql)
set name=rs("用户名")
set topic=rs("发言标题")
set Num=rs("Num")
%>
请选择要删除的发言标题
<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="delword.asp">
<input type="hidden" name="No" value="<%=Request("No")%>">
<table border="1" cellpadding="4" cellspacing="0" width="600" height="10" bgcolor="#ffffff">
<%Do Until rs.EOF%><tr>
<%i=i+1%>
<td><input type="checkbox" name="name<%=i%>" value="<%=topic%>">
<span style="font-size: 9pt"><%Response.Write Name%>
<td><span style="font-size: 9pt"><a href="vew2.asp?Num=<%Response.Write Num%>&No=<%Response.Write Request("No")%>"><%Response.Write topic%>
<tr>
<%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)
if Request("name"&p)="" then
br=""
else
br="<br>"
end if
Response.Write Request("name"&p) &br
Next
end if%>
<%end if%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -