<% dim AnnounceID dim replyID dim username dim rs_old dim old_user dim con,content dim topic dim olduser,oldpass dim totalusetable dim CanEditPost CanEditPost=False if BoardID="" or not isInteger(BoardID) or BoardID=0 then Errmsg=Errmsg+"
"+"

错误的版面参数！请确认您是从有效的连接进入。" founderr=true else BoardID=clng(BoardID) end if if cint(Board_Setting(2))=1 then if not founduser then Errmsg=Errmsg+"
"+"

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

本论坛为认证论坛，请确认您的用户名已经得到管理员的认证后进入。" founderr=true end if end if 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 founderr=true Errmsg=Errmsg+"
"+"

请指定相关贴子。" elseif not isInteger(request("replyID")) then founderr=true Errmsg=Errmsg+"
"+"

非法的贴子参数。" else replyID=request("replyID") end if if not founduser then founderr=true Errmsg=Errmsg+"
"+"

请登陆后进行操作。" end if if Cint(Board_Setting(43))=1 then Errmsg=Errmsg+"
"+"

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

您没有权限进入隐含论坛！" founderr=true end if end if stats=boardtype & "编辑帖子" if founderr then call nav() call head_var(2,0,"","") call dvbbs_error() else call nav() call head_var(1,BoardDepth,0,0) call main() if founderr then call dvbbs_error() end if call activeonline() call footer() sub main() set rs=conn.execute("select PostTable from topic where TopicID="&AnnounceID) if rs.eof and rs.bof then Errmsg=Errmsg+"
"+"

没有找到相应的帖子。" Founderr=true exit sub else TotalUseTable=rs(0) end if sql="select b.username,b.topic,b.body,b.dateandtime,u.usergroupID from "&TotalUseTable&" b,[user] u where b.postuserid=u.userid and b.AnnounceID="&replyID set rs=conn.execute(sql) if rs.eof and rs.bof then Errmsg=Errmsg+"
"+"

没有找到相应的帖子。" Founderr=true exit sub else topic=rs("topic") con=rs("body") old_user=rs("username") if Clng(forum_setting(51))>0 and not (master or boardmaster or superboardmaster) then if Datediff("s",rs("dateandtime"),Now())>Clng(forum_setting(51))*60 then Errmsg=Errmsg+"
"+"

系统编辑帖子时限为"&forum_setting(51)&"分钟，而从您发表帖子到现在已经有"&Datediff("s",rs("dateandtime"),Now())\60&"分钟了。" founderr=true exit sub end if end if if rs("username")=membername then if Cint(GroupSetting(10))=0 then Errmsg=Errmsg+"
"+"

您没有在本论坛编辑自己帖子的权限，请登陆或者同管理员联系。" founderr=true exit sub CanEditPost=False else CanEditPost=True end if else if (master or superboardmaster or boardmaster) and Cint(GroupSetting(23))=1 then CanEditPost=True else CanEditPost=False end if if UserGroupID>3 and Cint(GroupSetting(23))=1 then CanEditPost=true end if if Cint(GroupSetting(23))=1 and FoundUserPer then CanEditPost=True elseif Cint(GroupSetting(23))=0 and FoundUserPer then CanEditPost=False end if if UserGroupID<4 and UserGroupID=rs("UserGroupID") then Errmsg=Errmsg+"
"+"

同等级用户不能修改。" Founderr=true exit sub elseif UserGroupID<4 and UserGroupID>rs("UserGroupID") then Errmsg=Errmsg+"
"+"

不能修改等级比您高的用户的帖子。" Founderr=true exit sub end if if not CanEditPost then Errmsg=Errmsg+"
"+"

您没有足够的权限编辑本帖子，请和管理员联系。" Founderr=true exit sub end if end if end if set rs=nothing if con<>"" then content=replace(con,"
",chr(13)) content=replace(content," ","") content=content+chr(13) end if %>

> ">

编辑帖子
用户名	>  >*您没有注册？
密码	>  >*忘记密码？版主编辑不需要密码
主题标题 选择话题 [原创] [转帖] [灌水] [讨论] [求助] [推荐] [公告] [注意] [贴图] [建议] [下载] [分享]	>  >*不得超过 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))=1 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 %>
选项	是否显示您的签名？ 有回复时使用邮件通知您？

method=post target=preview_page>

<% end sub %>