forumedit.asp

一套非常实用的博客源代码,功能全,界面简单易用.

<!--#include file="commond.asp" -->
<!--#include file="include/function.asp" -->
<!--#include file="include/library.asp" -->
<!--#include file="header.asp" -->
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr align="center"><td>
<%
If memName<>Empty Then
	Dim edit_Action,forum_ID,thread_ID,post_ID
	edit_Action=Trim(Request.QueryString("action"))
	forum_ID=Trim(Request.QueryString("forumID"))
	thread_ID=Trim(Request.QueryString("threadID"))
	post_ID=Trim(Request.QueryString("postID"))
	If IsInteger(forum_ID)=False OR IsInteger(thread_ID)=False Then
		Response.Write("<div class=""msg_head"">出现错误</div><div class=""msg_main""><br><br><a href=""javascript:history.go(-1);"">参数无效，请点击返回上一页！</a><br><br><br></div>")
	Else
		Dim EditThreadRS
		If edit_Action="thread" Then
			Set EditThreadRS=znwl.ExeCute("SELECT thread_ID,thread_Author,thread_PostTime,thread_Title,thread_Icon,thread_IsTop,thread_IsDigest,thread_IsClose,thread_MagicFace FROM blog_Threads WHERE thread_ID="&thread_ID&" AND thread_ForumID="&forum_ID&" AND thread_Author='"&memName&"'")
				SQLQueryNums=SQLQueryNums+1
			If EditThreadRS.EOF And EditThreadRS.BOF Then
				Response.Write("<div class=""msg_head"">出现错误</div><div class=""msg_main""><br><br><a href=""javascript:history.go(-1);"">你所编辑的主题不存在，请点击返回上一页！</a><br><br><br></div>")
			Else
				If memStatus<>"SupAdmin" And DateDiff("d",EditThreadRS("thread_PostTime"),Now())>2 Then
					Response.Write("<div class=""msg_head"">出现错误</div><div class=""msg_main""><br><br><a href=""javascript:history.go(-1);"">编辑主题超过时限，请点击返回上一页！</a><br><br><br></div>")
				Else
					If Request.Form("IsPostOK")<>Empty Then
						Call CheckPost
						Call ForumEditSave(edit_Action,forum_ID,thread_ID,0)
					Else
						Call ForumEdit(edit_Action,forum_ID,thread_ID,EditThreadRS("thread_Title"),EditThreadRS("thread_Author"),EditThreadRS("thread_Icon"),EditThreadRS("thread_IsTop"),EditThreadRS("thread_IsDigest"),EditThreadRS("thread_IsClose"),EditThreadRS("thread_MagicFace"),0)
					End If
				End If
			End If
			Set EditThreadRS=Nothing
		ElseIf edit_Action="reply" Then
			If IsInteger(post_ID)=False Then
				Response.Write("<div class=""msg_head"">出现错误</div><div class=""msg_main""><br><br><a href=""javascript:history.go(-1);"">参数无效，请点击返回上一页！</a><br><br><br></div>")
			Else
				Set EditThreadRS=znwl.ExeCute("SELECT P.post_Author,T.thread_Title,P.post_PostTime FROM blog_Posts AS P,blog_Threads AS T WHERE P.post_ID="&post_ID&" AND P.post_Author='"&memName&"' AND P.post_ThreadID="&thread_ID&" AND P.post_ForumID="&forum_ID&" AND T.thread_ID=P.post_ThreadID")
				SQLQueryNums=SQLQueryNums+1
				If EditThreadRS.Eof And EditThreadRS.Bof Then
					Response.Write("<div class=""msg_head"">出现错误</div><div class=""msg_main""><br><br><a href=""javascript:history.go(-1);"">你所编辑的回复不存在，请点击返回上一页！</a><br><br><br></div>")
				Else
					If (memStatus<>"SupAdmin" Or memStatus<>"Admin") And DateDiff("d",EditThreadRS("post_PostTime"),Now())>2 Then
						Response.Write("<div class=""msg_head"">出现错误</div><div class=""msg_main""><br><br><a href=""javascript:history.go(-1);"">编辑主题超过时限，请点击返回上一页！</a><br><br><br>")
					Else
						If Request.Form("IsPostOK")<>Empty Then
							Call ForumEditSave(edit_Action,forum_ID,thread_ID,post_ID)
						Else
							Call ForumEdit(edit_Action,forum_ID,thread_ID,EditThreadRS("thread_Title"),Empty,Empty,0,False,False,"",post_ID)
						End If
					End If
				End If
				Set EditThreadRS=Nothing
			End If
		Else
			Response.Write("<div class=""msg_head"">出现错误</div><div class=""msg_main""><br><br><a href=""javascript:history.go(-1);"">参数无效，请点击返回上一页！</a><br><br><br></div>")
		End If
	End If
Else
	Response.Write("<div class=""msg_head"">出现错误</div><div class=""msg_main""><br><br><a href=""logging.asp"">游客不能编辑帖子，请先登陆</a><br><br><br></div>")
End If

Sub ForumEdit(Action,ForumID,ThreadID,ThreadTitle,ThreadAuthor,ThreadIcon,ThreadIsTop,ThreadIsDigest,ThreadIsClose,ThreadMagicFace,PostID)
	Dim TitleContent,EditPostRS,ForumContent
	Response.Write("<table width=""97%"" border=""0"" align=""center"" cellpadding=""4"" cellspacing=""1"" bgcolor=""#CCCCCC""><tr align=""center""><td colspan=""3"" class=""msg_head""><script language=""JavaScript"" src=""include/ubbhelp.js""></script><script language=""JavaScript"" src=""include/ubbcode.js""></script>")
	If Action="thread" Then
		Set EditPostRS=znwl.ExeCute("SELECT * FROM blog_Posts WHERE post_ThreadID="&ThreadID&" AND post_ForumID="&ForumID&" AND post_IsTop=True")
		SQLQueryNums=SQLQueryNums+1
		Response.Write("编辑主题")
		If ThreadMagicFace=Empty Then ThreadMagicFace="mf_007"
		TitleContent = "<tr bgcolor=""#FFFFFF""><td width=""130"" align=""right"" nowrap><b>标题：</b></td><td width=""100%""><input name=""edit_Title"" type=""text"" id=""edit_Title"" size=""50"" value="""&EditDeHTML(UnCheckWordFilter(ThreadTitle))&""">&nbsp;|&nbsp;转移主题到： <select name=""edit_ForumID"" id=""edit_ForumID""><option value=""0"">选择论坛</option>"
		Dim thread_MoveForumNumS,thread_MoveForumNumI
		thread_MoveForumNumS=Ubound(Arr_Forums,2)
		For thread_MoveForumNumI=0 To thread_MoveForumNumS
			TitleContent = TitleContent&"<option value='"&Arr_Forums(0,thread_MoveForumNumI)&"'>"&Arr_Forums(1,thread_MoveForumNumI)&"</option>"
		Next
		TitleContent = TitleContent&"</select></td></tr></tr><tr bgcolor=""#FFFFFF""><td align=""right"" nowrap><b>图标：</b></td><td width=""100%""><input type=""radio"" name=""edit_Icon"" value="""" "
		If ThreadIcon=Empty Then TitleContent=TitleContent&"checked"
		TitleContent=TitleContent&"> 无  <input type=""radio"" name=""edit_Icon"" value=""icon1.gif"" "
		If ThreadIcon="icon1.gif" Then TitleContent=TitleContent&"checked"
		TitleContent=TitleContent&"><img src=""images/threadicon/icon1.gif"" align=""absmiddle""> <input type=""radio"" name=""edit_Icon"" value=""icon2.gif"" "
		If ThreadIcon="icon2.gif" Then TitleContent=TitleContent&"checked"
		TitleContent=TitleContent&"><img src=""images/threadicon/icon2.gif"" align=""absmiddle""> <input type=""radio"" name=""edit_Icon"" value=""icon3.gif"" "
		If ThreadIcon="icon3.gif" Then TitleContent=TitleContent&"checked"
		TitleContent=TitleContent&"><img src=""images/threadicon/icon3.gif"" align=""absmiddle""> <input type=""radio"" name=""edit_Icon"" value=""icon4.gif"" "
		If ThreadIcon="icon4.gif" Then TitleContent=TitleContent&"checked"
		TitleContent=TitleContent&"><img src=""images/threadicon/icon4.gif""> <input type=""radio"" name=""edit_Icon"" value=""icon5.gif"" "
		If ThreadIcon="icon5.gif" Then TitleContent=TitleContent&"checked"
		TitleContent=TitleContent&"><img src=""images/threadicon/icon5.gif"" align=""absmiddle""> <input type=""radio"" name=""edit_Icon"" value=""icon6.gif"" "
		If ThreadIcon="icon6.gif" Then TitleContent=TitleContent&"checked"
		TitleContent=TitleContent&"><img src=""images/threadicon/icon6.gif"" align=""absmiddle""> <input type=""radio"" name=""edit_Icon"" value=""icon7.gif"" "
		If ThreadIcon="icon7.gif" Then TitleContent=TitleContent&"checked"
		TitleContent=TitleContent&"><img src=""images/threadicon/icon7.gif"" align=""absmiddle""> <input type=""radio"" name=""edit_Icon"" value=""icon8.gif"" "
		If ThreadIcon="icon8.gif" Then TitleContent=TitleContent&"checked"
		TitleContent=TitleContent&"><img src=""images/threadicon/icon8.gif"" align=""absmiddle""> <input type=""radio"" name=""edit_Icon"" value=""icon9.gif"" "
		If ThreadIcon="icon9.gif" Then TitleContent=TitleContent&"checked"
		TitleContent=TitleContent&"><img src=""images/threadicon/icon9.gif"" align=""absmiddle""></td></tr>"
		If memStatus="SupAdmin" Or memStatus="Admin" Then 
			TitleContent=TitleContent&"<tr bgcolor=""#FFFFFF""><td align=""right""><strong>属性：</strong></td><td colspan=""2""><input name=""edit_IsTop"" type=""checkbox"" id=""edit_IsTop"" value=""1"" "
			If ThreadIsTop=1 Then TitleContent=TitleContent&"checked"
			TitleContent=TitleContent&"> 置顶主题&nbsp;&nbsp;<input name=""edit_IsDigest"" type=""checkbox"" id=""edit_IsDigest"" value=""1"" "
			If ThreadIsDigest=True Then TitleContent=TitleContent&"checked"
			TitleContent=TitleContent&"> 精华主题&nbsp;&nbsp;<input name=""edit_IsClose"" type=""checkbox"" id=""edit_IsClose"" value=""1"" "
			If ThreadIsClose=True Then TitleContent=TitleContent&"checked"
			TitleContent=TitleContent&"> 锁定主题</td></tr>"
		End If
	ElseIf Action="reply" Then
		Set EditPostRS=znwl.ExeCute("SELECT * FROM blog_Posts WHERE post_ThreadID="&ThreadID&" AND post_ForumID="&ForumID&" AND post_ID="&PostID&"")
		SQLQueryNums=SQLQueryNums+1
		Response.Write("编辑回复")
		TitleContent="<tr bgcolor=""#FFFFFF""><td width=""112"" align=""right"" nowrap><b>主题：</b></td><td width=""100%"" colspan=""2"">"&EditDeHTML(ThreadTitle)&"</td></tr>"