bokemanage.asp

公司企业网站管理系统全站源码,用于企业内部对网站的管理

	If iTopic <> 0 Then
		DvBoke.ShowCode(9)
		DvBoke.ShowMsg(2)
		Page_UserInput_mPost_Del = DvBoke.InputShowMsg
		Exit Function
	End If
	TopicID = Replace(TopicID," ","")
	TopicID = Split(TopicID,",")
	
	For i = 0 To Ubound(TopicID)
		If IsNumeric(TopicID(i)) Then
			'删除评论
			Set Rs=DvBoke.Execute("Select * From Dv_Boke_Post Where PostID = " & TopicID(i))
			tPostNum = 0
			If Not (Rs.Eof And Rs.Bof) Then
				If DateDiff("d",Rs("JoinTime"),Now()) = 0 Then tPostNum = 1
				'更新系统数据
				DvBoke.Execute("Update [Dv_Boke_SysCat] Set PostNum = PostNum - 1,TodayNum = TodayNum - "&tPostNum&" Where sCatID in ("&Rs("sCatID")&","&DvBoke.BokeNode.getAttribute("syscatid")&")")


				DvBoke.Execute("Update [Dv_Boke_System] Set S_PostNum = S_PostNum - 1,S_TodayNum = S_TodayNum - "&tPostNum)
				'更新用户总数据
				DvBoke.Execute("Update [Dv_Boke_User] Set PostNum = PostNum - 1,TodayNum=TodayNum - "&tPostNum&" Where UserID="&DvBoke.BokeUserID)
				'更新用户栏目数据
				DvBoke.Execute("Update [Dv_Boke_UserCat] Set PostNum = PostNum - 1,TodayNum=TodayNum - "&tPostNum&" Where uCatID="&Rs("CatID"))
				'上传文件清理
				If Rs("IsUpfile")=1 Then DvBoke.SysDeleteFile(Rs("PostID"))
				'更新主题数据
				DvBoke.Execute("UpDate [Dv_Boke_Topic] Set Child=Child-1 Where TopicID = " & Rs("RootID"))
				DvBoke.Execute("Delete From Dv_Boke_Post Where PostID = " & TopicID(i))
			End If
			Rs.Close:Set Rs=Nothing
		End If
	Next
	'更新用户首页数据
	Update_TopicToXml()
	DvBoke.LoadSetup(1)
	'更新系统缓存数据
	DvBoke.ShowCode(50)
	DvBoke.ShowMsg(0)
	'Page_UserInput_mPost_Del = DvBoke.InputShowMsg
End Function

Sub Page_UserSetting()
	Dim PageHtml,UserPageHtml
	PageHtml = DvBoke.Page_Strings(6).text
	Select Case t
	Case "1"
		If Request.QueryString("Action") = "Save" Then
			Page_UserSetting_Info_Save()
		Else
			UserPageHtml = Page_UserSetting_Info()
		End If
	Case "2"
		If Request.QueryString("Action") = "Save" Then
			Page_UserSetting_Pass_Save()
		Else
			UserPageHtml = Page_UserSetting_Pass()
		End If
	Case "3"
		If Request.QueryString("Action") = "Save" Then
			Page_UserSetting_Set_Save()
		Else
			UserPageHtml = Page_UserSetting_Set()
		End If
	Case "4"
		If Request.QueryString("Action") = "Save" Then
			Page_UserSetting_Key_Save()
		ElseIf Request.QueryString("Action") = "Del" Then
			Page_UserSetting_Key_Del()
		Else
			UserPageHtml = Page_UserSetting_Key()
		End If
	Case Else
		If Request.QueryString("Action") = "Save" Then
			Page_UserSetting_Info_Save()
		Else
			UserPageHtml = Page_UserSetting_Info()
		End If
	End Select
	PageHtml = Replace(PageHtml,"{$UserSettingInfo}",UserPageHtml)
	Response.Write PageHtml
End Sub

Function Page_UserSetting_Info()
	Dim PageHtml
	PageHtml = DvBoke.Page_Strings(7).text
	PageHtml = Replace(PageHtml,"{$BokeName}",Server.HtmlEncode(DvBoke.BokeNode.getAttribute("bokename")&""))
	PageHtml = Replace(PageHtml,"{$NickName}",Server.HtmlEncode(DvBoke.BokeNode.getAttribute("nickname")&""))
	PageHtml = Replace(PageHtml,"{$BokeTitle}",Server.HtmlEncode(DvBoke.BokeNode.getAttribute("boketitle")&""))
	PageHtml = Replace(PageHtml,"{$BokeCTitle}",Server.HtmlEncode(DvBoke.BokeNode.getAttribute("bokechildtitle")&""))
	PageHtml = Replace(PageHtml,"{$BokeNote}",Server.HtmlEncode(DvBoke.BokeNode.getAttribute("bokenote")&""))
	Page_UserSetting_Info = PageHtml
End Function

Sub Page_UserSetting_Info_Save()
	Dim NickName,BokeTitle,BokeCTitle,BokeNote
	If Not DvBoke.ChkPost() Then DvBoke.ShowCode(2):DvBoke.ShowMsg(0)
	NickName = Request.Form("NickName")
	BokeTitle = Request.Form("BokeTitle")
	BokeCTitle = Request.Form("BokeCTitle")
	BokeNote = Request.Form("BokeNote")

	If NickName = "" or strLength(NickName)>50 or strLength(NickName)<1 Then
		DvBoke.ShowCode(8)
	Else
		NickName = Server.Htmlencode(NickName)
	End If
	If BokeTitle = "" or strLength(BokeTitle)>150 or strLength(BokeTitle)<1 Then
		DvBoke.ShowCode(12)
	Else
		BokeTitle = Server.Htmlencode(BokeTitle)
	End If
	If BokeCTitle = "" or strLength(BokeCTitle)>250 or strLength(BokeCTitle)<1 Then
		DvBoke.ShowCode(12)
	Else
		BokeCTitle = Server.Htmlencode(BokeCTitle)
	End If
	If BokeNote <> "" Then
		If CheckText(BokeNote) = False Then
			DvBoke.ShowCode(9)
		Else
			BokeNote = Server.Htmlencode(BokeNote)
		End If
	End If
	If CheckText(NickName) = False Then DvBoke.ShowCode(9)
	DvBoke.ShowMsg(0)

	Dim Rs,SQL
	Sql  = "Select * From [Dv_Boke_User] Where UserID = " & DvBoke.BokeUserID
	If Not IsObject(Boke_Conn) Then Boke_ConnectionDatabase
	Set Rs=Server.CreateObject("Adodb.RecordSet")
	Rs.Open Sql,Boke_Conn,1,3
	If Lcase(Rs("NickName")) <> Lcase(NickName) Then
		'更新主题表
		DvBoke.Execute("Update Dv_Boke_Topic Set UserName = '"&DvBoke.CheckStr(NickName)&"' Where UserID = " & DvBoke.BokeUserID)
		'更新帖子表
		DvBoke.Execute("Update Dv_Boke_Post Set UserName = '"&DvBoke.CheckStr(NickName)&"' Where UserID = " & DvBoke.BokeUserID)
		'更新上传表
		DvBoke.Execute("Update Dv_Boke_Upfile Set UserName = '"&DvBoke.CheckStr(NickName)&"' Where UserID = " & DvBoke.BokeUserID)
	End If
	Rs("NickName") = NickName
	Rs("BokeTitle") = BokeTitle
	Rs("BokeChildTitle") = BokeCTitle
	Rs("BokeNote") = BokeNote
	Rs.Update
	Rs.Close
	Set Rs=Nothing
	'更新用户首页数据
	Update_TopicToXml()
	DvBoke.LoadSetup(1)
	DvBoke.ShowCode(16)
	DvBoke.ShowMsg(0)
End Sub

Function Page_UserSetting_Pass()
	Page_UserSetting_Pass = DvBoke.Page_Strings(8).text
End Function

Sub Page_UserSetting_Pass_Save()
	Dim PassWord,nPassWord,rnPassWord
	If Not DvBoke.ChkPost() Then DvBoke.ShowCode(2):DvBoke.ShowMsg(0)
	PassWord = Request.Form("PassWord")
	nPassWord = Request.Form("nPass")
	rnPassWord = Request.Form("rnPass")

	If PassWord = "" Or nPassWord = "" Or rnPassWord = "" Then
		DvBoke.ShowCode(11)
	End If
	If nPassWord <> rnPassWord Then
		DvBoke.ShowCode(17)
	End If
	nPassWord = MD5(nPassWord,16)
	PassWord = MD5(PassWord,16)
	DvBoke.ShowMsg(0)

	Dim Rs
	Set Rs = DvBoke.Execute("Select PassWord From Dv_Boke_User Where UserID = " & DvBoke.UserID)
	If PassWord <> Rs(0) Then
		DvBoke.ShowCode(15)
		DvBoke.ShowMsg(0)
	End If
	Rs.Close : Set Rs = Nothing
	DvBoke.Execute("Update Dv_Boke_User Set [PassWord]='"&nPassWord&"' Where UserID = " & DvBoke.UserID)
	DvBoke.ShowCode(18)
	DvBoke.ShowMsg(0)
End Sub

Function Page_UserSetting_Set()
	Dim PageHtml,i,Rs,PageHtml_Str
	PageHtml = DvBoke.Page_Strings(9).text
	For i = 0 To 50
		PageHtml = Replace(PageHtml,"{$Setting"&i&"}",DvBoke.BokeSetting(i))
	Next
	Set Rs = DvBoke.Execute("Select * From Dv_Boke_SysCat Where sType = 0 Order By sCatID")
	Do While Not Rs.Eof
		PageHtml_Str = PageHtml_Str & "<Option value="""&Rs("sCatID")&""" "
		If Cint(DvBoke.BokeNode.getAttribute("syscatid")) = Rs("sCatID") Then PageHtml_Str = PageHtml_Str & "selected"
		PageHtml_Str = PageHtml_Str & ">"&Rs("sCatTitle")&"</Option>"
	Rs.MoveNext
	Loop
	Rs.Close
	Set Rs=Nothing
	PageHtml = Replace(PageHtml,"{$CatList}",PageHtml_Str)
	Page_UserSetting_Set = PageHtml
End Function

Sub Page_UserSetting_Set_Save()
	Dim iSetting,BokeSetting,i
	Dim SysCatID
	SysCatID = Request.Form("SysCatID")
	If SysCatID = "" Or Not IsNumeric(SysCatID) Then SysCatID = 1
	SysCatID = Clng(SysCatID)
	For i = 0 To 50
		If Trim(Request.Form("Setting"&i)) = "" Then
			iSetting= 1
		Else
			iSetting = Replace(Trim(Request.Form("Setting"&i)),",","")
		End If
		If i < 12 Then
			If Not IsNumeric(iSetting) Then
				DvBoke.ShowCode(9)
				Exit For
			End If
		End If
		If i = 0 Then
			BokeSetting = iSetting
		Else
			BokeSetting = BokeSetting & "," & iSetting
		End If
	Next
	DvBoke.ShowMsg(0)
	BokeSetting = DvBoke.CheckStr(BokeSetting)
	BokeSetting = Server.HtmlEncode(BokeSetting)
	BokeSetting = Dv_FilterJS(BokeSetting)
	
	'当用户所选系统分类改变时相应更新分类用户数
	If DvBoke.BokeNode.getAttribute("syscatid")<>SysCatID Then
		DvBoke.Execute("Update Dv_Boke_SysCat Set ucatnum = ucatnum - 1 Where scatid = " & DvBoke.BokeNode.getAttribute("syscatid"))
		DvBoke.Execute("Update Dv_Boke_SysCat Set ucatnum = ucatnum + 1 Where scatid = " & SysCatID)

		DvBoke.Update_SysCat DvBoke.BokeNode.getAttribute("syscatid"),-1,0,0,0,Null
		DvBoke.Update_SysCat SysCatID,1,0,0,0,Null
		DvBoke.SaveSystemCache()
	End If

	DvBoke.Execute("Update Dv_Boke_User Set BokeSetting = '"&BokeSetting&"',SysCatID = "&SysCatID&" Where UserID = " & DvBoke.BokeUserID)

	DvBoke.ShowCode(19)
	DvBoke.ShowMsg(0)
End Sub

Function Page_UserSetting_Key()
	Dim PageHtml,PageHtml_Str,Rs
	PageHtml = DvBoke.Page_Strings(10).text
	If Request("KeyID")<>"" And IsNumeric(Request("KeyID")) Then
		Set Rs = DvBoke.Execute("Select * From Dv_Boke_KeyWord Where KeyID = " & Request("KeyID") & " And UserID = " & DvBoke.UserID)
		If Not (Rs.Eof And Rs.Bof) Then
			PageHtml = Replace(PageHtml,"{$KeyID}",Rs("KeyID"))
			PageHtml = Replace(PageHtml,"{$KeyWord}",Rs("KeyWord"))
			PageHtml = Replace(PageHtml,"{$nKeyWord}",Rs("nKeyWord"))
			PageHtml = Replace(PageHtml,"{$LinkUrl}",Rs("LinkUrl") & "")
			If Rs("NewWindows")=1 Then
				PageHtml = Replace(PageHtml,"{$NewWindows}","checked")
			Else
				PageHtml = Replace(PageHtml,"{$NewWindows}","")
			End If
			PageHtml = Replace(PageHtml,"{$LinkTitle}",Rs("LinkTitle") & "")
		End If
		Rs.Close
		Set Rs = Nothing
	End If
	PageHtml = Replace(PageHtml,"{$KeyID}","0")
	PageHtml = Replace(PageHtml,"{$KeyWord}","")
	PageHtml = Replace(PageHtml,"{$nKeyWord}","")
	PageHtml = Replace(PageHtml,"{$LinkUrl}","")
	PageHtml = Replace(PageHtml,"{$NewWindows}","checked")
	PageHtml = Replace(PageHtml,"{$LinkTitle}","")
	Set Rs = DvBoke.Execute("Select * From Dv_Boke_KeyWord Where UserID = " & DvBoke.UserID & " Order By KeyID")
	If Not (Rs.Eof And Rs.Bof) Then
		Do While Not Rs.Eof
			PageHtml_Str = PageHtml_Str & "<ul>"
			PageHtml_Str = PageHtml_Str & "<li class=""Set33"">"&Rs("KeyWord")&"</li>"
			PageHtml_Str = PageHtml_Str & "<li class=""Set33"">"&Rs("nKeyWord")&"</li>"
			PageHtml_Str = PageHtml_Str & "<li class=""Set44""><a href="""&Rs("LinkUrl")&""" target=""_blank"" title="""&Server.HtmlEncode(Rs("LinkTitle")&"")&""">"&Left(Rs("LinkUrl"),25)&"</a></li>"
			PageHtml_Str = PageHtml_Str & "<li class=""Set55""><a href=""?s=5&t=4&KeyID="&Rs("KeyID")&""">编辑</a>&nbsp;&nbsp;<a href=""#"" onclick=""alertreadme('您确定删除关键字 "&Rs("KeyWord")&" 吗?','?s=5&t=4&Action=Del&KeyID="&Rs("KeyID")&"')"">删除</a></li>"
			PageHtml_Str = PageHtml_Str & "</ul>"
		Rs.MoveNext
		Loop
	End If
	Rs.Close
	Set Rs=Nothing
	PageHtml = Replace(PageHtml,"{$KeyWordList}",PageHtml_Str)
	Page_UserSetting_Key = PageHtml
End Function

Sub Page_UserSetting_Key_Save()
	Dim KeyID,KeyWord,nKeyWord,LinkUrl,LinkTitle,NewWindows
	Dim Rs
	KeyID = Request.Form("KeyID")
	KeyWord = Replace(DvBoke.CheckStr(Request.Form("KeyWord")),"|","")
	nKeyWord = Replace(DvBoke.CheckStr(Request.Form("nKeyWord")),"|","")
	LinkUrl = DvBoke.CheckStr(Request.Form("LinkUrl"))
	LinkTitle = DvBoke.CheckStr(Request.Form("LinkTitle"))
	NewWindows = Request.Form("NewWindows")

	If KeyID = "" Or Not IsNumeric(KeyID) Then KeyID = 0
	KeyID = cCur(KeyID)
	If NewWindows = "" Or Not IsNumeric(NewWindows) Then NewWindows = 0
	NewWindows = Cint(NewWindows)
	If KeyWord = "" Or nKeyWord = "" Then
		DvBoke.ShowCode(20)
	Else
		KeyWord = Server.HtmlEncode(KeyWord)
		nKeyWord = Server.HtmlEncode(nKeyWord)
	End If
	If LinkUrl <> "" Then LinkUrl = Server.HtmlEncode(Dv_FilterJS(LinkUrl))
	If LinkTitle <> "" Then LinkTitle = Server.HtmlEncode(Dv_FilterJS(LinkTitle))
	DvBoke.ShowMsg(0)
	If KeyID > 0 Then
		Set Rs = DvBoke.Execute("Select KeyID From Dv_Boke_KeyWord Where (Not KeyID = "&KeyID&") And UserID = "&DvBoke.UserID&" And KeyWord = '"&KeyWord&"'")
		If Not (Rs.Eof And Rs.Bof) Then
			DvBoke.ShowCode(22)
			DvBoke.ShowMsg(0)
		End If
		Rs.Close
		Set Rs = Nothing
		DvBoke.Execute("Update Dv_Boke_KeyWord Set KeyWord = '"&KeyWord&"',nKeyWord = '"&nKeyWord&"',LinkUrl = '"&LinkUrl&"',LinkTitle = '"&LinkTitle&"',NewWindows = "&NewWindows&" Where KeyID = " & KeyID & " And UserID = " & DvBoke.UserID)
	Else
		Set Rs = DvBoke.Execute("Select KeyID From Dv_Boke_KeyWord Where UserID = "&DvBoke.UserID&" And KeyWord = '"&KeyWord&"'")
		If Not (Rs.Eof And Rs.Bof) Then
			DvBoke.ShowCode(22)
			DvBoke.ShowMsg(0)
		End If
		Rs.Close
		Set Rs = Nothing
		DvBoke.Execute("Insert Into Dv_Boke_KeyWord (KeyWord,nKeyWord,LinkUrl,LinkTitle,NewWindows,UserID) Values ('"&KeyWord&"','"&nKeyWord&"','"&LinkUrl&"','"&LinkTitle&"',"&NewWindows&","&DvBoke.UserID&")")
	End If
	DvBoke.ShowCode(21)
	DvBoke.ShowMsg(0)
End Sub

Sub Page_UserSetting_Key_Del()
	Dim KeyID
	KeyID = Request("KeyID")
	If KeyID = "" Or Not IsNumeric(KeyID) Then KeyID = 0
	KeyID = cCur(KeyID)
	DvBoke.Execute("Delete From Dv_Boke_KeyWord Where KeyID = "&KeyID&" And UserID = " & DvBoke.UserID)
	DvBoke.ShowCode(23)
	DvBoke.ShowMsg(0)
End Sub

'风格模板列表
Sub Page_SkinSetting()
	Dim Rs,Sql
	Dim Page,MaxRows,Endpage,CountNum,PageSearch
	Dim PageHtml
		
	PageHtml = DvBoke.Page_Strings(18).text
	Endpage = 0
	MaxRows = 9
	Page = Request("Page")
	If IsNumeric(Page) = 0 or Page="" Then Page=1
	Page = Clng(Page)