<%@ LANGUAGE="VBSCRIPT" %>
<%
dim rs,sql
dim boardtype
dim boardid
dim announceid
dim username
dim rootid
dim topic
dim mailbody
dim email
dim content
dim postname
dim incepts
dim announce
dim master_2
Rem ------获取参数(get or post的)------
Rem ------包括版面的ID和页次------
if guibin = false or boardmaster = false or master = false then
guestlist=""
else
guestlist=" lockboard<2 and "
end if
stats="报告有问题的帖子"
call chkInput()
if foundErr then
call nav()
call headline(1)
call Error()
else
call boardinfo(boardid)
call nav()
call headline(1)
if founderr then
call error()
else
call showPage()
end if
end if
call endline()
sub showPage()
if request("action")="send" then
call announceinfo()
if founderr then
call error()
else
call success()
end if
else
call pag()
end if
end sub
Rem 版面定义信息
sub boardinfo(boardid)
sql="select boardtype,lockboard,boardmaster,boardskin,Tableback,Tabletitle,TableBody,aTableBody,TableContent,AlertFont,Forumlogo,TableFont,strAllowForumCode,strAllowHTML,strIMGInPosts,strIcons,strflash,todaynum from board where "&guestlist&" boardID="&cstr(boardid)
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
boardtype=rs(0)
lockboard=rs(1)
Tablebackcolor=rs(4)
Tabletitlecolor=rs(5)
TableBodyColor=rs(6)
aTableBodyColor=rs(7)
TableFontColor=rs(11)
TableContentColor=rs(8)
Forumlogo=rs(10)
AlertFontColor=rs(9)
strAllowForumCode=rs(12)
strAllowHTML=rs(13)
strIMGInPosts=rs(14)
strIcons=rs(15)
strflash=rs(16)
todaynum=rs(17)
boardmasterlist=rs(2)
if trim(boardmasterlist)<>"" then
master_1=split(boardmasterlist, "|")
for i = 0 to ubound(master_1)
master_2=""&master_2&" "
next
else
master_2="无版主"
end if
else
founderr=true
Errmsg=Errmsg+" "+"
您选择的版面不存在或者您没有权限察看该版面。"
exit sub
end if
rs.close
set rs=nothing
end sub
sub announceinfo()
body=request("content")
writer=membername
incept=request("boardmaster")
set rs=server.createobject("adodb.recordset")
sql="select topic from bbs1 where announceID="&rootID
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
topic_1=rs(0)
topic="报告有问题的帖子"
body=body & "您可以到"&ForumUrl&"dispbbs.asp?boardid="&boardid&"&rootid="&rootid&"&id="&Announceid&"这里浏览这个贴子"
else
foundErr = true
ErrMsg=ErrMsg+" "+"
您指定的贴子不存在
"
exit sub
end if
rs.close
sql="insert into message (incept,sender,title,content,sendtime,flag) values ('"&incept&"','"&membername&"','"&topic&"','"&body&"',Now(),0)"
conn.execute(sql)
set rs=nothing
end sub
sub pag()
%>
align=center>
<%
end sub
sub chkInput
if request("boardid")="" then
founderr=true
Errmsg=Errmsg+" "+"
请指定论坛版面。"
elseif not isInteger(request("boardid")) then
founderr=true
Errmsg=Errmsg+" "+"
非法的版面参数。"
else
boardid=request("boardid")
end if
if request("id")="" then
founderr=true
Errmsg=Errmsg+" "+"
请指定相关贴子。"
elseif not isInteger(request("id")) then
founderr=true
Errmsg=Errmsg+" "+"
非法的贴子参数。"
else
AnnounceID=request("id")
end if
if request("RootID")="" then
founderr=true
Errmsg=Errmsg+" "+"
请指定相关贴子。"
elseif not isInteger(request("RootID")) then
founderr=true
Errmsg=Errmsg+" "+"
非法的贴子参数。"
else
RootID=request("RootID")
end if
if membername="" then
founderr=true
Errmsg=Errmsg+" "+"