<%
Function xieTag(who)
Dim s
s=who
rs.Open "mgtag",Conn
do while not rs.eof
If instr(s,""+rs("tagname")+"")=0 then
s=replace(s,rs("tagname"),""+rs("tagname")+"")
End if
rs.movenext
loop
rs.close
xieTag=s
End Function
if Request.Cookies("username")=empty then error("您还未登录社区")
id=int(Request("id"))
top
sql="Select * From forum where ID="&ID&""
rs.Open sql,Conn,1
forumid=rs("forumid")
ReList=rs("ReList")
rs.close
'##翔宇特殊贴V2.0 #######################
TopicType=Request("TopicType")
NeedValue=Request("NeedValue")
'##翔宇特殊贴V2.0 #######################
if membercode>3 or instr("|"&Conn.Execute("Select moderated From bbsconfig where id="&forumid&"")(0)&"|","|"&Request.Cookies("username")&"|")>0 then
UserPopedomPass=1
end if
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
if Request.ServerVariables("request_method") = "POST" then
topic=HTMLEncode(Request.Form("idtopic"))
if membercode<5 then
content=ContentEncode(Request.Form("content"))
else
content=Request.Form("content")
end If
content=xieTag(content)
if badwords<>empty then
filtrate=split(badwords,"|")
for i = 0 to ubound(filtrate)
topic=ReplaceText(topic,""&filtrate(i)&"",string(len(filtrate(i)),"*"))
next
end if
if content=empty then message=message&"内容没有填写"
if message<>"" then error(""&message&"")
content=""&content&"［此帖子已被 "&Request.Cookies("username")&" 在 "&now()&" 编辑过］"
if Not isnumeric(""&Request("retopicid")&"") Then
sql="select * from forum where ID="&ID&" and forumid="&forumid&""
rs.Open sql,Conn,1,3
if rs("username")<>Request.Cookies("username") and UserPopedomPass<>1 then error("
对不起，您的权限不够！")
if topic<>empty then
FormerTopic=ReplaceText(rs("topic"),"<[^>]*>","")
Topic=replace(rs("topic"),FormerTopic,Topic)
rs("topic")=""&topic&""
end if
rs("content")=content
'####翔宇特殊贴V2.0 此部分孤风修改#################
if not isnumeric(Request("retopicid")) then
rs("TopicType")=TopicType
rs("NeedValue")=NeedValue
if rs("TopicType")>4 and rs("NeedValue")=emty then error("对不起，填入数值不能为零或空！")
end if
'####翔宇特殊贴V2.0 此部分孤风修改###################
rs.update
rs.close
else
sql="update reforum"&ReList&" set content='" & content & "' where ID="& Request("retopicid")&""
Conn.Execute(sql)
end if
message="修改帖子成功返回主题返回论坛返回社区首页"
succeed(""&message&"")
end if
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sql="select * from bbsconfig where id="&forumid&""
Set Rs=Conn.Execute(sql)
bbsname=rs("bbsname")
logo=rs("logo")
followid=rs("followid")
rs.close
if isnumeric(Request("retopicid")) then
sql="select * from reforum"&ReList&" where id="&Request("retopicid")&""
else
sql="select * from forum where ID="&id&" and forumid="&forumid&""
end if
Set Rs=Conn.Execute(sql)
if rs.eof then error("数据库中不存在此帖子的数据")
if rs("username")<>Request.Cookies("username") and UserPopedomPass<>1 then error("对不起，您的权限不够！")
content =rs("content")
rs.close
content=replace(content,"'","&h39;")
%>
border=0 class=a2 align="center">
<%
htmlend
%> 
<%ClubTree%> → <%ForumTree(followid)%><%=ForumTreeList%> ><%=bbsname%> → <%=Request("topic")%> → 编辑帖子