<% dim AnnounceID dim replyID dim username dim dateandtime dim bgcolor,abgcolor dim PostUserGroup dim con,content dim TotalUseTable dim postbuyuser if BoardID="" or not isInteger(BoardID) or BoardID=0 then Errmsg=Errmsg+"
"+"

错误的版面参数！请确认您是从有效的连接进入。" founderr=true else BoardID=clng(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("replyid")="" then replyid=Announceid elseif not isInteger(request("replyid")) then replyid=Announceid else replyid=request("replyid") end if if founderr then call nav() call head_var(2,0,"","") call dvbbs_error() else stats="回复帖子" call nav() call head_var(1,BoardDepth,0,0) call main() if founderr then call dvbbs_error() end if call footer() sub main() if Cint(Board_Setting(43))=1 then Errmsg=Errmsg+"
"+"

本论坛已经被管理员限制了不允许发贴。" founderr=true exit sub end if if cint(Board_Setting(1))=1 then if Cint(GroupSetting(37))=0 then Errmsg=ErrMsg+"
"+"

您没有权限进入隐含论坛！" founderr=true exit sub end if end if if cint(Board_Setting(2))=1 then if not founduser then Errmsg=Errmsg+"
"+"

本论坛为认证论坛，请登陆并确认您的用户名已经得到管理员的认证后进入。" founderr=true exit sub else if chkboardlogin(boardid,membername)=false then Errmsg=Errmsg+"
"+"

本论坛为认证论坛，请确认您的用户名已经得到管理员的认证后进入。" founderr=true exit sub end if end if end if set rs=conn.execute("select PostTable,locktopic from topic where TopicID="&AnnounceID) if not (rs.eof and rs.bof) then if rs(1)=1 or rs(1)=2 then Errmsg=Errmsg+"
"+"

本主题已被锁定或者删除，不能发表回复。" founderr=true exit sub end if TotalUseTable=rs(0) else ErrMsg=ErrMsg+"
"+"

您指定的贴子不存在

" founderr=true exit sub end if if replyid=Announceid then set rs=conn.execute("select top 1 Announceid from "&TotalUseTable&" where rootID="&AnnounceID&" order by Announceid") if not(rs.bof and rs.eof) then replyID=rs(0) else ErrMsg=ErrMsg+"
"+"

您指定的贴子不存在

" founderr=true exit sub end if end if sql="select b.body,b.topic,b.locktopic,b.username,b.dateandtime,b.isbest,u.lockuser,u.UserGroupID from "&TotalUseTable&" b inner join [user] u on b.postuserid=u.userid where b.AnnounceID="&replyID set rs=conn.execute(sql) if rs.eof and rs.bof then Errmsg=Errmsg+"
"+"

没有找到相关帖子。" founderr=true exit sub else if rs("locktopic")=1 or rs("locktopic")=2 then Errmsg=Errmsg+"
"+"

本主题已被锁定或者删除，不能发表回复。" founderr=true exit sub elseif rs("lockuser")=2 then con="" elseif rs("isbest")=1 and Cint(GroupSetting(41))=0 then con="" else con=rs("body") end if username=rs("username") dateandtime=rs("dateandtime") PostUserGroup=rs("UserGroupID") if username=membername then if Cint(GroupSetting(4))=0 then Errmsg=Errmsg+"
"+"

您没有在本论坛回复自己主题的权限。" founderr=true exit sub end if else if Cint(GroupSetting(5))=0 then Errmsg=Errmsg+"
"+"

您没有在本论坛回复其他人帖子的权限，请登陆或者同管理员联系。" founderr=true exit sub end if if Cint(GroupSetting(2))=0 then Errmsg=Errmsg+"
"+"

您没有浏览在本论坛查看其他人发布的帖子的权限，请登陆或者同管理员联系。" founderr=true exit sub end if end if end if set rs=nothing if request("reply")="true" then con = reubbcode(con) con = replace(con, ">", ">") con = replace(con, "<", "<") con = Replace(con, "

", CHR(10) & CHR(10)) con = Replace(con, "
", CHR(10)) content = "[quote][b]以下是引用[i]"&username&"在"&dateandtime&"[/i]的发言：[/b]" & chr(13) content = content & con & chr(13) content = content & "[/quote]" else content="" end if %>

" method=POST onSubmit="submitonce(this)" name=frmAnnounce> "> <%if Cint(GroupSetting(7))=1 or Cint(GroupSetting(7))=3 then%> <%end if%>

发表回复<%if isaudit=1 then%>（本版面所有帖子都要经过管理员审核方可发表）<%end if%>
用户名	class=FormClass> >*您没有注册？
密码	class=FormClass>> *忘记密码？
主题标题	>*不得超过 25 个汉字或50个英文字符
当前心情将放在帖子的前面	<%for i=0 to Forum_PostFaceNum-1%> > <%if i>0 and ((i+1) mod 9=0) then response.write " "%> <%next%>
文件上传	>
内容 HTML标签： <%=iif(Board_Setting(5),"可用","不可用")%> UBB标签： <%=iif(Board_Setting(6),"可用","不可用")%> 贴图标签： <%=iif(Board_Setting(7),"可用","不可用")%> 多媒体标签：<%=iif(Board_Setting(9),"可用","不可用")%> 表情字符转换：<%=iif(Board_Setting(8),"可用","不可用")%> 上传图片：<%=iif(Forum_Setting(3),"可用","不可用")%> 最多<%=Board_Setting(16)\1024%>KB 特殊内容 <%=iif(Board_Setting(10),"金钱帖","金钱帖：不可用")%> <%=iif(Board_Setting(11),"积分帖","积分帖：不可用")%> <%=iif(Board_Setting(12),"魅力帖","魅力帖：不可用")%> <%=iif(Board_Setting(13),"威望帖","威望帖：不可用")%> <%=iif(Board_Setting(14),"文章帖","文章帖：不可用")%> <%=iif(Board_Setting(15),"回复帖","回复帖：不可用")%> <%=iif(Board_Setting(23),"出售帖","出售帖：不可用")%>	<%if Cint(Board_Setting(4)) then%> <%end if%> <%=server.htmlencode(content)%>
点击表情图即可在帖子中加入相应的表情 <% dim ii for i=0 to 12 if len(i)=1 then ii="0" & i else ii=i response.write " " next %>
选项	是否显示您的签名？有回复时使用邮件通知您？

size=1> <% sql="Select top 10 b.UserName,b.Topic,b.dateandtime,b.body,b.announceid,b.isbest,u.lockuser,u.UserGroupID,b.postbuyuser from "&TotalUseTable&" b inner join [user] u on b.postuserid=u.userid where b.boardid="&boardid&" and b.rootid="&Announceid&" and b.locktopic<2 order by b.announceid desc" set rs=conn.execute(sql) do while not rs.eof PostUserGroup=rs("UserGroupID") postbuyuser=rs("postbuyuser") if bgcolor="tablebody1" then bgcolor="tablebody2" abgcolor="tablebody1" else bgcolor="tablebody1" abgcolor="tablebody2" end if %> align=center>

> --  作者：<%=htmlencode(rs("username"))%>
--  发布时间：<%=rs("dateandtime")%>

--  <%=htmlencode(rs("topic"))%>
<% if rs("lockuser")=2 then response.write "该用户发言已被屏蔽" elseif rs("isbest")=1 and Cint(GroupSetting(41))=0 then response.write "您没有浏览该精华帖子的权限" else response.write dvbcode(rs("body"),PostUserGroup,1) end if %>

<% rs.movenext loop set rs=nothing call activeonline() end sub %>