📄 bokepostings.asp

📁 公司企业网站管理系统全站源码,用于企业内部对网站的管理
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include FILE="conn.asp"-->
<!--#include file="inc/const.asp" -->
<!--#include file="boke/config.asp"-->
<!--#include file="boke/PostCls.asp"-->
<!--#include file="boke/checkinput.asp"-->
<%
Dim Action,ActMsg
ActMsg = ""
Action = Request.QueryString("Action")

Select Case Lcase(Action)
Case "isbest"
	DvBoke.Stats = "帖子精华管理"
	DvBoke.Nav(0)
	Admin_isbest()
Case "delete"
	DvBoke.Stats = "帖子删除管理"
	DvBoke.Nav(0)
	Admin_delete()
Case "edit"
	DvBoke.Stats = "帖子编辑"
	DvBoke.Nav(0)
	Admin_Edit()
Case "reply"
	DvBoke.Stats = "回复帖子"
	DvBoke.Nav(0)
	Admin_reply()
Case "save_edit"
	DvBoke.Stats = "保存帖子编辑"
	DvBoke.Nav(0)
	Admin_SaveEdit()
Case "save_reply"
	DvBoke.Stats = "保存回复"
	DvBoke.Nav(0)
	Admin_SaveReply()
Case "visit"
	DvBoke.Stats = "添加印记"
	DvBoke.Nav(0)
	VisitMart()
Case "bokestats"
	DvBoke.Stats = "更改博客状态"
	DvBoke.Nav(0)
	BokeStats()
Case Else
	DvBoke.ShowCode(4)
	DvBoke.ShowMsg(0)
End Select
DvBoke.Footer

'更改博客状态
Sub BokeStats()
	If Not DvBoke.IsMaster Then
		DvBoke.ShowCode(43)
	End If
	DvBoke.ShowMsg(0)
	Dim Stats
	If DvBoke.BokeNode.getAttribute("stats")="0" Then
		Stats = 2
	Else
		Stats = 0
	End If
	DvBoke.Execute("Update [Dv_Boke_User] Set Stats="&Stats&" where UserID="&DvBoke.BokeUserID)
	DvBoke.ShowCode("博客的状态更改成功！")
	DvBoke.ShowMsg(0)
End Sub

Sub VisitMart()
	If DvBoke.UserID = 0 Then
		DvBoke.ShowCode(14)
	End If
	Dim Rootid
	Rootid = DvBoke.CheckNumeric(Request.QueryString("Rootid"))
	If Rootid = 0 Then
		DvBoke.ShowCode(4)
	End If
	DvBoke.ShowMsg(0)
	Dim Rs,Sql
	Dim VisitXml,VisitDoc,Node,attributes
	Sql = "Select VisitUser From [Dv_Boke_Topic] Where Topicid="&RootID

	Set Rs = Server.CreateObject ("adodb.recordset")
	If Dv_Boke_InDvbbsData = 1 Then
		Rs.Open Sql,Boke_Conn,1,3
	Else
		Rs.Open Sql,Conn,1,3
	End If
	DvBoke.SqlQueryNum = DvBoke.SqlQueryNum + 1
	If Rs.Eof Then
		DvBoke.ShowCode(36)
		DvBoke.ShowMsg(0)
		Exit Sub
	Else
		VisitDoc = Rs(0)
		Set VisitXml=Server.CreateObject("Msxml2.FreeThreadedDOMDocument")
		If Not VisitXml.Loadxml(VisitDoc&"") Then
			VisitXml.loadxml "<Visit/>"
		Else
			Set Node = VisitXml.DocumentElement.selectSingleNode("UserList[@uid='"&Dvboke.UserID&"']")
			If Not (Node is nothing) Then
				DvBoke.ShowCode("请不要重复添加印记")
				DvBoke.ShowMsg(0)
				Response.Redirect Request.ServerVariables("HTTP_REFERER")
				Exit Sub
			End If
		End If
		Set Node=VisitXml.createNode(1,"UserList","")
		Set attributes=VisitXml.createAttribute("uid")
		attributes.text = Dvboke.UserID
		node.attributes.setNamedItem(attributes)
		Set attributes=VisitXml.createAttribute("uname")
		attributes.text = Dvboke.UserName
		node.attributes.setNamedItem(attributes)
		Set attributes=VisitXml.createAttribute("uip")
		attributes.text = Dvboke.UserIP
		node.attributes.setNamedItem(attributes)
		Set attributes=VisitXml.createAttribute("usex")
		attributes.text = Dvboke.UserSex
		node.attributes.setNamedItem(attributes)
		Set attributes=VisitXml.createAttribute("utime")
		attributes.text = Now()
		node.attributes.setNamedItem(attributes)
		VisitXml.documentElement.appendChild(node)
		Rs(0) = VisitXml.documentElement.xml
		Rs.Update
		'Response.Write VisitXml.documentElement.xml
	End If
	Rs.Close
	Response.Redirect Request.ServerVariables("HTTP_REFERER")
End Sub

Sub Admin_Edit()
	If DvBoke.UserID = 0 Then
		DvBoke.ShowCode(14)
	End If
	Dim Rootid,PostID
	Rootid = DvBoke.CheckNumeric(Request.QueryString("Rootid"))
	PostID = DvBoke.CheckNumeric(Request.QueryString("Postid"))
	If Rootid = 0 or PostID=0 Then
		DvBoke.ShowCode(4)
	End If
	DvBoke.ShowMsg(0)
	Dim Rs,Sql
	Dim CatID,sCatID,PostUserID,Title,Content,JoinTime,sType,ParentID
	Dim PostUserName,TitleNote,IsLock,IsBest,S_Key,Weather
	Sql = "Select PostID,CatID,sCatID,ParentID,RootID,UserID,UserName,Title,Content,JoinTime,IP,sType From [Dv_Boke_Post] Where PostID="&PostID
	Set Rs = DvBoke.Execute(Sql)
	If Rs.Eof Then
		DvBoke.ShowCode(4)
		DvBoke.ShowMsg(0)
		Exit Sub
	End If
	If Rs(5)<>DvBoke.UserID and Not DvBoke.IsMaster Then
		DvBoke.ShowCode(36)
		DvBoke.ShowMsg(0)
	End If
	ParentID = Rs("ParentID")
	PostID = Rs("PostID")
	RootID = Rs("RootID") 
	CatID = Rs("CatID")
	sCatID = Rs("sCatID")
	PostUserID = Rs("UserID")
	Title = Rs("Title")
	Content = Rs("Content")
	JoinTime = Rs("JoinTime")
	sType = Rs("sType")
	PostUserName = Rs("UserName")
	Rs.Close
	If ParentID = 0 Then
		Set Rs =  DvBoke.Execute("Select TitleNote,IsLock,IsBest,S_Key,Weather From Dv_Boke_Topic Where Topicid = "&RootID)
		If Not Rs.Eof Then
			TitleNote = Rs(0)
			IsLock= Rs(1)
			IsBest= Rs(2)
			S_Key= Rs(3)
			Weather= Rs(4)
		End If
		Rs.Close
	End If
	Set Rs = Nothing
	'-------------------------------------
	Dim DvCode
	Set DvCode = New DvBoke_UbbCode
		Content = DvCode.FormatPostCode(Content)
	Set DvCode = Nothing
	'-------------------------------------
	Dim DvBokePost
	Set DvBokePost = New Cls_DvBoke_Post
	DvBokePost.Action = "Bokepostings.asp?user="&DvBoke.BokeName&"&action=save_edit"
	DvBokePost.EditMode = "Default"
	DvBokePost.Show_Upload = 1
	If ParentID = 0 Then
		DvBokePost.IsTopic = 1
		DvBokePost.IsBest = IsBest
		DvBokePost.IsLock = IsLock
		DvBokePost.Weather = Weather
		DvBokePost.SearchKey = S_Key
		DvBokePost.PostTitleNote = TitleNote
	End If
	DvBokePost.PostID = PostID
	DvBokePost.RootID = RootID
	DvBokePost.sType = sType
	DvBokePost.CatID = CatID
	DvBokePost.sCatID = sCatID
	DvBokePost.Title = Title
	DvBokePost.Content = Content
	DvBokePost.PostUserName = PostUserName
	DvBokePost.JoinTime = JoinTime
	DvBokePost.LoadForm()
	DvBokePost.ShowForm
	Set DvBokePost = Nothing
End Sub

Sub Admin_reply()
	If DvBoke.System_Setting(2)<>"1" and DvBoke.UserID=0 Then
		DvBoke.ShowCode(4)
	End If
	If Not DvBoke.IsBokeOwner and Dvboke.BokeSetting(4)="0" Then
		DvBoke.ShowCode(4)
	End If
	DvBoke.ShowMsg(0)
	Dim Rootid,PostID,P_PostUserName
	Rootid = DvBoke.CheckNumeric(Request.QueryString("Rootid"))
	PostID = DvBoke.CheckNumeric(Request.QueryString("Postid"))
	If Rootid = 0 or PostID=0 Then
		DvBoke.ShowCode(4)
	End If
	DvBoke.ShowMsg(0)
	If DvBoke.UserID=DvBoke.BokeUserID and DvBoke.UserID>0 Then
		P_PostUserName = DvBoke.BokeUserName
	Else
		P_PostUserName = DvBoke.UserName
	End If
	
	Dim DvBokePost
	Set DvBokePost = New Cls_DvBoke_Post
	DvBokePost.Action = "Bokepostings.asp?user="&DvBoke.BokeName&"&action=save_reply"
	If DvBoke.IsBokeOwner or DvBoke.IsMaster Then
		DvBokePost.EditMode = "Default"
		DvBokePost.Show_Upload = 1
	Else
		DvBokePost.EditMode = "Basic"
	End If
	DvBokePost.PostID = PostID
	DvBokePost.RootID = RootID
	DvBokePost.PostUserName = P_PostUserName
	DvBokePost.LoadForm()
	DvBokePost.ShowForm
	Set DvBokePost = Nothing
End Sub

Sub Admin_SaveEdit()
	If DvBoke.UserID = 0 Then
		DvBoke.ShowCode(14)
	End If
	Dim P_Title,P_SearchKey,P_DDateTime,P_sType,P_sCatID,P_Catid,P_Lock,P_Best,P_PostContent,P_PostTitleNote,P_Weather
	Dim PostID,RootID
	Dim P_UpFileID,HaveUpFile,IsTopic
	'-----------------------------------------------------------------------------
	'获取表单数据 ----------------------------------------------------------------
	'-----------------------------------------------------------------------------
	P_Title = DvBoke.Checkstr(Trim(Request.Form("Title")))
	P_SearchKey = DvBoke.Checkstr(Trim(Request.Form("SearchKey")))
	P_DDateTime = Trim(Request.Form("DDateTime"))
	P_sType = DvBoke.CheckNumeric(Request.Form("sType"))
	P_sCatID =  DvBoke.CheckNumeric(Request.Form("sCatID"))
	P_Catid =  Request.Form("Catid")
	P_Lock =  DvBoke.CheckNumeric(Request.Form("Lock"))
	P_Best =  DvBoke.CheckNumeric(Request.Form("Best"))
	P_PostContent = CheckAlipay()
	If P_PostContent = "" Then P_PostContent = DvBoke.Checkstr(Request.Form("PostContent"))
	P_PostTitleNote = DvBoke.Checkstr(Request.Form("PostTitleNote"))
	PostID =  DvBoke.CheckNumeric(Request.Form("PostID"))
	RootID =  DvBoke.CheckNumeric(Request.Form("RootID"))
	P_Weather = DvBoke.CheckNumeric(Request.Form("Weather"))
	P_UpFileID = Request.Form("upfilerename")

	If P_UpFileID <>"" Then
		HaveUpFile = 1
		P_UpFileID = Replace(P_UpFileID,"'","")
		P_UpFileID=Replace(P_UpFileID,";","")
		P_UpFileID=Replace(P_UpFileID,"--","")
		P_UpFileID=Replace(P_UpFileID,")","")
		Dim fixid
		fixid=Replace(P_UpFileID," ","")
		fixid=Replace(fixid,",","")
		If Not IsNumeric(fixid) or fixid="" Then HaveUpFile=0
		P_UpFileID=left(P_UpFileID,Len(P_UpFileID)-1)
	Else
		HaveUpFile=0
	End If
	'-----------------------------------------------------------------------------
	'数据验证 --------------------------------------------------------------------
	'-----------------------------------------------------------------------------
	If Not DvBoke.ChkPost() Then DvBoke.ShowCode(2):DvBoke.ShowMsg(0)
	If StrLength(P_Title)>250 or StrLength(P_Title)="" Then
		DvBoke.ShowCode(30)
	End If
	If StrLength(P_PostTitleNote)>250 Then
		DvBoke.ShowCode(30)
	End If
	If StrLength(P_SearchKey)>250 Then
		DvBoke.ShowCode(31)
	End If

	If P_DDateTime<>"" and IsDate(P_DDateTime) Then
		P_DDateTime = Cdate(FormatDateTime(P_DDateTime,1)&FormatDateTime(Now(),3))
	Else
		P_DDateTime = Cdate(FormatDateTime(Now(),1)&FormatDateTime(Now(),3))
	End If

	If StrLength(P_PostContent)="" Then
		DvBoke.ShowCode(35)
	Else
		P_PostContent = Replace(P_PostContent,vbNewLine,"")
	End If

	'-------------------------------------
	Dim DvCode,FoundCode
	FoundCode = Dvbbs.CodeIsTrue()
	Set DvCode = New DvBoke_UbbCode
		P_PostContent = DvCode.FormatCode(P_PostContent)
	'-------------------------------------

	' PostID,CatID,sCatID,ParentID,RootID,UserID,UserName,Title,Content,JoinTime,IP,sType
	Dim Sql,Rs,ParentID
	Sql = "Select * From [Dv_Boke_Post] Where PostID="&PostID
	Set Rs = server.CreateObject ("adodb.recordset")
	If Dv_Boke_InDvbbsData = 1 Then
		Rs.Open Sql,Boke_Conn,1,3
	Else
		Rs.Open Sql,Conn,1,3
	End If
	DvBoke.SqlQueryNum = DvBoke.SqlQueryNum + 1
	If Rs.Eof Then
		DvBoke.ShowCode(36)
		DvBoke.ShowMsg(0)
		Exit Sub
	Else
		If Rs("UserID")<>DvBoke.UserID and Not DvBoke.IsMaster Then
			DvBoke.ShowCode(36)
			DvBoke.ShowMsg(0)
		End If
		ParentID = Rs("ParentID")
		If (Not FoundCode) And ParentID = 0 And DvBoke.System_Setting(4) = "1" Then
			DvBoke.ShowCode(7)
		End If
		If (Not FoundCode) And ParentID <> 0 And DvBoke.System_Setting(5) = "1" Then
			DvBoke.ShowCode(7)
		End If
		DvBoke.ShowMsg(0)
		Rs("Title") = P_Title
		Rs("Content") = P_PostContent
		If ParentID = 0 Then
			If P_sType < 0 or P_sType > 4 Then
				DvBoke.ShowCode(32)
			End If
			If P_sCatID = -1 Then
				DvBoke.ShowCode(33)
			End If
			If P_Catid = "-1" or P_Catid ="" or not Isnumeric(P_Catid) Then
				DvBoke.ShowCode(34)
			Else
				P_Catid = DvBoke.CheckNumeric(P_Catid)
			End If
			DvBoke.ShowMsg(0)
			Rs("CatID") = P_Catid
			Rs("sCatID") = P_sCatID
			Rs("sType") = P_sType
			Rs("JoinTime") = P_DDateTime
			Rs("IsUpfile") = HaveUpFile
		End If
		Rs.Update
	End If
	Rs.Close

	If ParentID = 0 Then
		IsTopic = 0
		Sql = "Select * From [Dv_Boke_Topic] Where Topicid="&Rootid
		Set Rs = server.CreateObject ("adodb.recordset")
		If Dv_Boke_InDvbbsData = 1 Then
			Rs.Open Sql,Boke_Conn,1,3
		Else
			Rs.Open Sql,Conn,1,3
		End If
		DvBoke.SqlQueryNum = DvBoke.SqlQueryNum + 1
		If Rs.Eof Then
			DvBoke.ShowCode(36)
			DvBoke.ShowMsg(0)
			Exit Sub
		Else
			Rs("CatID") = P_Catid
			Rs("sCatID") = P_sCatID
			Rs("Title") = P_Title
			Rs("TitleNote") = P_PostTitleNote
			Rs("IsLock") = P_Lock
			Rs("sType") = P_sType
			Rs("IsBest") = P_Best
			Rs("S_Key") = P_SearchKey
			Rs("Weather") = P_Weather
			Rs("PostTime") = P_DDateTime	'
			Rs.Update
		End If
		Rs.Close
		Sql = "Update [Dv_Boke_Post] Set CatID = "&P_Catid&",sCatID = "&P_sCatID&",sType = "&P_sType&",IsLock="&P_Lock&" Where RootID="&Rootid
		DvBoke.Execute Sql
		ActMsg = "主题《"&P_Title&"》编辑成功！"
	Else
		IsTopic = 1
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -