📄 reannounce.asp
字号:
<!--#include file="conn.asp"-->
<!-- #include file="inc/char.asp" -->
<!-- #include file="inc/const.asp" -->
<!--#include file="inc/stats.asp"-->
<!--#include file="inc/code.asp"-->
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<title>回复贴子</title>
<link rel="stylesheet" type="text/css" href="forum.css">
</head>
<body bgcolor="#006699" alink="#333333" vlink="#333333" link="#333333" topmargin="0" leftmargin="0" >
<br>
<%
dim AnnounceID
dim RootID
dim BoardID
dim cname
dim rs
dim sql
dim rsBoard
dim boardsql
dim FoundErr
dim ErrMsg,con,content
dim boardtype
if request("boardid")="" then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>请指定论坛版面。"
elseif not isInteger(request("boardid")) then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>非法的版面参数。"
else
boardid=request("boardid")
end if
if request("id")="" then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>请指定相关贴子。"
elseif not isInteger(request("id")) then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>非法的贴子参数。"
else
AnnounceID=request("id")
end if
if request("RootID")="" then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>请指定相关贴子。"
elseif not isInteger(request("RootID")) then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>非法的贴子参数。"
else
RootID=request("RootID")
end if
if founderr=true then
call error()
else
set rs=server.createobject("adodb.recordset")
set rsBoard=server.createobject("adodb.recordset")
boardsql="select boardtype from board where boardID="&BoardID
rsboard.open boardsql,conn,1,1
boardtype=rsboard("boardtype")
rsboard.close
sql="select body,topic,locktopic from bbs1 where AnnounceID="&AnnounceID
rs.open sql,conn,1,1
%>
<!--#include file="inc/Form1.asp"-->
<%
if rs("locktopic")=1 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>本主题已被锁定，不能发表回复。"
call error()
else
con=rs("body")
topic=rs("topic")
call showReForm()
end if
rs.close
set rs=nothing
end if
call endConnection()
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -