<%
dim announceid
dim UserName
dim userPassword
dim useremail
dim Topic
dim body
dim ip
dim Expression
dim rootid
dim signflag
dim mailflag
dim char_changed
dim addbody
dim totalusetable
Dim FoundTable
FoundTable=false
addbody=checkStr(request("Content"))
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="\[align=right\]\[color=#000066\](.*)\[\/color\]\[\/align\]"
addbody=re.Replace(addbody,"")
set re=Nothing
if membername<>request("username") then
if Cint(forum_setting(49))=1 then
char_changed = "[align=right][color=#000066][此贴子已经被"&membername&"于"&Now()&"编辑过][/color][/align]"
end if
else
if Cint(forum_setting(48))=1 then
char_changed = "[align=right][color=#000066][此贴子已经被作者于"&Now()&"编辑过][/color][/align]"
end if
end if
UserName=trim(checkStr(request("username")))
UserPassWord=trim(checkStr(request("passwd")))
IP=replace(Request.ServerVariables("REMOTE_ADDR"),"'","")
Expression=checkStr(Request.Form("Expression"))
BoardID=checkStr(Request("boardID"))
rootID=Cstr(checkStr(Request("ID")))
AnnounceID=checkStr(request("replyID"))
Topic=trim(checkStr(request("subject")))
signflag=trim(checkStr(request("signflag")))
mailflag=trim(checkStr(request("Forum_Setting(2)")))
foundErr=false
TotalUseTable=Checkstr(request.Form("TotalUseTable"))
For i=0 to ubound(AllPostTable)
if AllPostTable(i)=TotalUseTable then
FoundTable=true
Exit For
end if
Next
if Not FoundTable then
ErrMsg=ErrMsg+" "+"
您指定了非法的数据表名，请确认您是从有效的表单提交。"
FoundErr=True
end if
if not founduser then
ErrMsg=ErrMsg+" "+"
请登陆后进行修改。"
foundErr=True
end if
if signflag="yes" then
signflag=1
else
signflag=0
end if
if mailflag="yes" then
mailflag=1
else
mailflag=0
end if
if instr(Expression,"face")=0 then
Expression="face1.gif"
end if
if chkpost=false then
ErrMsg=ErrMsg+" "+"
您提交的数据不合法，请不要从外部提交发言。"
FoundErr=True
end if
if AnnounceID="" then
founderr=true
Errmsg=Errmsg+" "+"
请指定相关贴子。"
elseif not isInteger(AnnounceID) then
founderr=true
Errmsg=Errmsg+" "+"
非法的贴子参数。"
end if
if BoardID="" then
founderr=true
Errmsg=Errmsg+" "+"
请指定相关贴子。"
elseif not isInteger(BoardID) then
founderr=true
Errmsg=Errmsg+" "+"
非法的贴子参数。"
end if
if rootID="" then
founderr=true
Errmsg=Errmsg+" "+"
请指定相关贴子。"
elseif not isInteger(rootID) then
founderr=true
Errmsg=Errmsg+" "+"
非法的贴子参数。"
end if
if UserName="" then
ErrMsg=ErrMsg+" "+"
请输入姓名(长度不能大于20)"
foundErr=True
elseif Trim(UserPassWord)="" then
ErrMsg=ErrMsg+" "+"
请输入密码(长度不能大于16)"
foundErr=True
end if
''''''''''''''''''''''''''''''''''
'判断主题是否为空.
set rs=conn.execute("select announceid from "&TotalUseTable&" where ParentID=0 and rootid="&rootid&" ")
if clng(announceid)=clng(rs(0)) then
if Topic="" then
foundErr=True
ErrMsg=ErrMsg+" "+"
主题不应为空"
elseif strLength(topic)>50 then
foundErr=True
ErrMsg=ErrMsg+" "+"
主题长度不能超过50"
end if
end if
rs.close:set rs=nothing
'''''''''''''''''''''''''''''''''''
if request("content")="" then
ErrMsg=ErrMsg+" "+"
内容不能为空"
foundErr=True
end if
if strLength(body)>Clng(Board_Setting(16)) then
ErrMsg=ErrMsg+" "+"
发言内容不得大于" & CSTR(Board_Setting(16)) & "bytes"
foundErr=true
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
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
stats="编辑帖子成功"
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()
end if
call activeonline()
call footer()
sub main()
if cint(lockboard)=2 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
dim LastBoard
dim LastTopic
dim LastPost
dim caneditpost
caneditpost=false
sql="select b.username,b.dateandtime,u.usergroupID from "&TotalUseTable&" b,[user] u where b.postuserid=u.userid and b.AnnounceID="&AnnounceID
set rs=conn.execute(sql)
if rs.eof and rs.bof then
Errmsg=Errmsg+" "+"
没有找到相应的帖子。"
Founderr=true
exit sub
else
if Clng(forum_setting(50))>0 then
if Datediff("s",rs("dateandtime"),Now())>Clng(forum_setting(50))*60 then
Body=addbody+chr(13)+chr(10)+char_changed+chr(13)
else
Body=addbody
end if
else
Body=addbody+chr(13)+chr(10)+char_changed+chr(13)
end if
if rs("username")=membername then
if Cint(GroupSetting(10))=0 then
Errmsg=Errmsg+" "+"
您没有在本论坛编辑自己帖子的权限，请登陆或者同管理员联系。"
founderr=true
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
'取出当前版面最后回复id,如果本帖为最后回复则更新相应数据
sql="select LastPost from board where boardid="&boardid
set rs=conn.execute(sql)
if not (rs.eof and rs.bof) then
if not isnull(rs(0)) and rs(0)<>"" then
LastBoard=split(rs(0),"$")
if ubound(LastBoard)=7 then
if Clng(LastBoard(6))=Clng(AnnounceID) then
LastPost=LastBoard(0) & "$" & LastBoard(1) & "$" & Now() & "$" & replace(cutStr(Topic,20),"$","") & "$" & LastBoard(4) & "$" & LastBoard(5) & "$" & LastBoard(6) & "$" & boardid
conn.execute("update board set LastPost='"&reubbcode(replace(LastPost,"'",""))&"' where boardid="&boardid)
end if
end if
end if
end if
'取得当前主题最后回复id,如果本帖为最后回复则更新相应数据
sql="select LastPost from topic where topicid="&rootid
set rs=conn.execute(sql)
if not (rs.eof and rs.bof) then
if not isnull(rs(0)) and rs(0)<>"" then
LastTopic=split(rs(0),"$")
if ubound(LastTopic)=7 then
if Clng(LastTopic(1))=Clng(Announceid) then
LastPost=LastTopic(0) & "$" & LastTopic(1) & "$" & Now() & "$" & replace(cutStr(body,20),"$","") & "$" & LastTopic(4) & "$" & LastTopic(5) & "$" & LastTopic(6) & "$" & boardid
conn.execute("update topic set LastPost='"&reubbcode(replace(LastPost,"'",""))&"' where topicid="&rootid)
end if
end if
end if
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM "&TotalUseTable&" where username='"&trim(username)&"' and AnnounceID="&Announceid
rs.Open sql,conn,1,3
if rs.eof and rs.bof then
foundErr=True
ErrMsg=ErrMsg+" "+"
您不是本帖子的作者，无权修改！"
rs.close:set rs=nothing
exit sub
elseif not master and rs("locktopic")=1 then
Errmsg=ErrMsg+" "+"
本主题已经锁定，不能编辑。"
foundErr=true
rs.close:set rs=nothing
exit sub
else
if rs("parentid")=0 then
conn.execute("update topic set title='"&topic&"',LastPostTime=Now() where topicid="&rootid)
end if
rs("Topic") =replace(Topic,"''","'")
rs("Body") =replace(Body,"''","'")
rs("length")=strlength(body)
rs("ip")=ip
rs("Expression")=Expression
rs("signflag")=signflag
rs("emailflag")=mailflag
rs.Update
dim PostRetrunName
select case Board_Setting(17)
case 1
response.write ""
PostRetrunName="首页"
case 2
response.write ""
PostRetrunName="您所发布的论坛"
case 3
response.write ""
PostRetrunName="您所修改的帖子"
end select
rs.close:set rs=nothing
%>