📄 cutword.asp
字号:
<%Response.Buffer=true%>
<html>
<head>
<title></title>
</head>
<body bgcolor="#CCFFFF">
<table width="164" border="1" cellspacing="0" cellpadding="0" align="right" height="25">
<tr align="center" bgcolor="#669933">
<td height="21"><a href="look.asp?No=<%Response.Write Request("No")%>">讨论区</a></td>
<td height="21"><a href="save0.asp?No=<%Response.Write Request("No")%>">管理区</a></td>
<td height="21"><a href="quit.asp?No=<%Response.Write Request("No")%>">离开论坛</a></td>
</tr>
</table>
<%
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<>Request("No") then
%>
<p>
<script language=javascript>
<!--
alert("你必须以管理员身份登陆");
window.history.go(-1);
//-->
</script>
<%
else
sql="SELECT * FROM info where forder=1 ORDER BY ID DESC"
Set Rs=conn.Execute(sql)
set name=rs("username")
set topic=rs("subject")
set Num=rs("Num")
%> <font size="4">请选择要删除的论谈标题</font> </p>
<form method="POST" action="cutword.asp">
<input type="hidden" name="No" value="<%=Request("No")%>">
<table border="1" cellpadding="4" cellspacing="0" width="600" height="10" bgcolor="#FFCCFF">
<tr bgcolor="#9999FF">
<td height="32" >姓名</td>
<td height="32" >论谈标题</td>
</tr>
<%Do Until rs.EOF%>
<tr> <%i=i+1%>
<td colspan="1">
<input type="checkbox" name="name<%=i%>" value="<%=topic%>">
<%Response.Write Name%>
<td width="289"><a href="look2.asp?Num=<%Response.Write Num%>&No=<%Response.Write Request("No")%>"><%Response.Write topic%></a>
<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 info WHERE subject='" & Request("name"&p) & "'"
conn.Execute(sql)
if Request("name"&p)="" then
br=""
else
br="<br>"
end if
Response.Write Request("name"&p) &br
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 + -