📄 dealbbs.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="fanconn.asp"-->
<!--#include file="fanfuc.asp"-->
<%
if request.cookies("adminok") = "" then
response.redirect "login.asp"
end if
%>
<%
dim sql
dim rs
%>
<%
if Request.querystring("deal") = "delall" then
%>
<%
set rs=server.createobject("adodb.recordset")
sql="delete from "&Request.querystring("type")&" where id=" & Request.querystring("id") & "or first=" & Request.querystring("id")
rs.open sql,conn,1,1
set rs=nothing
rs.close
response.redirect "editbbs.asp?type="&Request.querystring("type")
%>
<%
elseif Request.querystring("deal") = "delone" then
%>
<%
set rs=server.createobject("adodb.recordset")
sql="delete from "&Request.querystring("type")&" where id=" & Request.querystring("id") & "and first <> 0"
rs.open sql,conn,1,1
set rs=nothing
sql2="UPDATE " & Request.querystring("type") & " SET reply = reply - 1 WHERE id=" & Request.querystring("first") & " and first = 0"
conn.Execute sql2
conn.close
set conn=nothing
response.redirect "editbbs2.asp?type="&Request.querystring("type")&"&id="& Request.querystring("first")%>
<%else%>
<html>
<head>
<%
'if trim(Request("B1")) = "提交" then
' response.write "<meta HTTP-EQUIV='refresh' CONTENT='2; URL=editbbs2.asp?type="&request.form("type")&"&id="&request.form("id")&"'"
'end if
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改链接</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body bgcolor="#FFFFCC">
<%
if trim(Request("B1")) = "提交" then
%>
<%
dim getuser
dim getmail
dim getTitle
dim gethits
dim gettime
dim getdetail
dim getid
gettype = request("type")
getuser = Trim(Request("user"))
getmail = Trim(Request("mail"))
gettitle = Trim(Request("title"))
getdetail = Trim(Request("detail"))
bbsupdate = "update "&gettype&" set user = '" & getuser & "',mail = '" & getmail & "',title = '" & Request("title") & "',detail = '" & Request("detail") & "' where id = " & request("id")
conn.execute bbsupdate
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<br><br><br><br>
<p align="center"><font color="#FF0000"><font size="4">已经改正！</font><br><br><font size="4">2秒后自动<a href="editbbs.asp?type=<%=Request("type")%>">返回</a></font></font></p>
<%
else
%>
<%
sql="select * from " & Request.querystring("type") & " where id=" & Request.querystring("id")
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
%>
<p align="center">
<b><font color="#FF0000" size="4">修改论坛</font></b>
<p align="center">
<form method="POST" action="dealbbs.asp">
<div align="center">
<table border="0" width="580" cellspacing="1">
<tr>
<td width="80" colspan="2"></td>
</tr>
<tr>
<td width="80" align="right">
<p align="right">发布人姓名：</p>
</td>
<td>
<p align="left"><input type="text" name="user" size="22" value="<%=server.htmlencode(rs("user"))%>" class="input_a">
电子邮件：<input type="text" name="mail" size="24" value="<%=server.htmlencode(rs("mail"))%>" class="input_a"><input type="hidden" name="type" size="2" value="<%=Request.querystring("type")%>"><input type="hidden" name="id" size="2" value="<%=Request.querystring("id")%>"> </td>
</tr>
<tr>
<td width="80" align="right">发表主题：</td>
<td>
<input type="text" name="title" value="<%=server.htmlencode(rs("title"))%>" size="59" class="input_a">
</td>
</tr>
<tr>
<td width="80" align="right">详细内容：</td>
<td><textarea rows="10" name="detail" cols="74" wrap="hard" style="font-size: 9pt" class="input_a"><%=server.htmlencode(rs("detail"))%></textarea></td>
</tr>
<tr>
<td width="80">
</td>
<td> <input type="submit" value=" 提交 " name="B1"> <input type="reset" value=" 重置 " name="B2"> <a href="javascript:history.go(-1)">返回上页</a></td>
</tr>
</table>
</div>
</form>
<%
rs.close
Set rs=nothing
conn.close
Set conn=nothing
%>
<%
end if
%>
</body>
</html>
<%
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -