bokemanage.asp

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

	'S_ID=0 ,S_SkinName=1 ,S_Path=2 ,S_ViewPic=3 ,S_Info=4 ,S_Builder=5
	Sql = "Select S_ID,S_SkinName,S_Path,S_ViewPic,S_Info,S_Builder From [Dv_Boke_Skins] "
	'Set Rs = DvBoke.Execute(Sql)
	Set Rs = server.CreateObject ("adodb.recordset")
	If Dv_Boke_InDvbbsData = 1 Then
		Rs.Open Sql,Boke_Conn,1,1
	Else
		Rs.Open Sql,Conn,1,1
	End If
	DvBoke.SqlQueryNum = DvBoke.SqlQueryNum + 1
	If Not Rs.eof Then
		CountNum = Rs.RecordCount
		If CountNum Mod MaxRows=0 Then
			Endpage = CountNum \ MaxRows
		Else
			Endpage = CountNum \ MaxRows+1
		End If
		Rs.MoveFirst
		If Page > Endpage Then Page = Endpage
		If Page < 1 Then Page = 1
		If Page >1 Then 				
			Rs.Move (Page-1) * MaxRows
		End if
		SQL=Rs.GetRows(MaxRows)
	Else
		DvBoke.ShowCode(28)
		DvBoke.ShowMsg(0)
		Exit Sub
	End If
	Rs.close:Set Rs = Nothing
	Dim i,ii,Temp1,Temp2,TempHtml,ViewLogo
	PageSearch = "s=4"

	Temp2 = DvBoke.Page_Strings(20).text

	For i=0 To Ubound(SQL,2)
		Temp1 = DvBoke.Page_Strings(19).text
		If SQL(3,i)<>"" or not IsNull(SQL(3,i)) Then
			ViewLogo = SQL(3,i)
		Else
			ViewLogo = "boke/images/viewskins.png"
		End If
		Temp1 = Replace(Temp1,"{$ViewLogo}",ViewLogo)
		Temp1 = Replace(Temp1,"{$S_Name}",SQL(1,i))
		Temp1 = Replace(Temp1,"{$S_id}",SQL(0,i))

		TempHtml = TempHtml & Temp1

		If ii=3 Then
			TempHtml = TempHtml & Temp2
			ii=0
		Else
			ii=ii+1
		End If
	Next

	PageHtml = Replace(PageHtml,"{$skin_list}",TempHtml)
	PageHtml = Replace(PageHtml,"{$S_id}",DvBoke.BokeNode.getAttribute("skinid"))
	PageHtml = Replace(PageHtml,"{$Page}",Page)
	PageHtml = Replace(PageHtml,"{$MaxRows}",MaxRows)
	PageHtml = Replace(PageHtml,"{$CountNum}",CountNum)
	PageHtml = Replace(PageHtml,"{$PageSearch}",PageSearch)
	Response.Write PageHtml
End Sub

'保存模板风格设置
Sub Page_SaveSkins()
	Dim Skinid
	Skinid = Request.Form("Skinid")
	If Not DvBoke.ChkPost() Then DvBoke.ShowCode(2)
	If DvBoke.CheckNumeric(Skinid) = 0 Then
		DvBoke.ShowCode(4)
	End If
	DvBoke.ShowMsg(0)
	Dim Rs,Sql
	Set Rs = DvBoke.Execute("Select S_ID From Dv_Boke_Skins Where S_ID="&Skinid)
	If Not Rs.Eof Then
		DvBoke.Execute("Update Dv_Boke_User Set Skinid="&Skinid&" where UserID="&DvBoke.UserID)
		DvBoke.ShowCode(29)
	Else
		DvBoke.ShowCode(4)
	End If
	DvBoke.ShowMsg(0)
End Sub

Sub Page_UserFile()
	Dim PageHtml,mStr,KeyWord,iKeyWord,iFileType
	Dim Sql,Rs,TopicHtml,i,Title,ii
	Dim Page,MaxRows,Endpage,CountNum,PageSearch
	Endpage = 0
	MaxRows = Cint(DvBoke.BokeSetting(7))
	'MaxRows = 2
	Page = Request("Page")
	If IsNumeric(Page) = 0 or Page="" Then Page=1
	Page = Clng(Page)
	PageHtml = DvBoke.Page_Strings(24).text
	KeyWord = DvBoke.CheckStr(Request("keyword"))
	If KeyWord <> "" Then iKeyWord = " And (Title Like '%"&KeyWord&"%' Or sFileName Like '%"&KeyWord&"%')"
	Select Case m
	Case "1"
		mStr = "所有"
	Case "2"
		mStr = "图片"
		iFileType = " And FileType = 1"
	Case "3"
		mStr = "压缩"
		iFileType = " And FileType = 5"
	Case "4"
		mStr = "文档"
		iFileType = " And FileType = 6"
	Case "5"
		mStr = "媒体"
		iFileType = " And FileType In (2,3,4)"
	Case Else
		mStr = "所有"
	End Select
	Sql = "Select ID,BokeUserID,UserName,CatID,sType,TopicID,PostID,IsTopic,Title,FileName,FileType,FileSize,FileNote,DownNum,ViewNum,DateAndTime,PreviewImage,IsLock,sFileName From Dv_Boke_Upfile where Userid="&DvBoke.BokeUserID&" "&iFileType&" "&iKeyWord&" order by DateAndTime Desc"
	'Response.Write sql
	PageHtml = Replace(PageHtml,"{$ActionInfo}",mStr)
	PageHtml = Replace(PageHtml,"{$KeyWord}",KeyWord)
	If Request("Action")="Del" Then
		PageHtml = Replace(PageHtml,"{$topiclist}",Page_UserFile_Del())
		Response.Write PageHtml
		Exit Sub
	End If

	Set Rs = server.CreateObject ("adodb.recordset")
	If Dv_Boke_InDvbbsData = 1 Then
		Rs.Open Sql,Boke_Conn,1,1
	Else
		Rs.Open Sql,Conn,1,1
	End If
	DvBoke.SqlQueryNum = DvBoke.SqlQueryNum + 1
	If Not Rs.eof Then
		CountNum = Rs.RecordCount
		If CountNum Mod MaxRows=0 Then
			Endpage = CountNum \ MaxRows
		Else
			Endpage = CountNum \ MaxRows+1
		End If
		Rs.MoveFirst
		If Page > Endpage Then Page = Endpage
		If Page < 1 Then Page = 1
		If Page >1 Then 				
			Rs.Move (Page-1) * MaxRows
		End if
		SQL=Rs.GetRows(MaxRows)
	Else
		DvBoke.ShowCode(48)
		DvBoke.ShowMsg(2)
		TopicHtml = DvBoke.InputShowMsg
	End If
	Rs.close:Set Rs = Nothing

	If TopicHtml = "" Then
		Dim Temp,Temp2
		Temp2 = DvBoke.Page_Strings(27).text
		Dim ViewFile
		If Not IsNumeric(DvBoke.System_Setting(9)) Then
			DvBoke.System_Setting(9) = 3
		Else
			DvBoke.System_Setting(9) = Cint(DvBoke.System_Setting(9))
		End If
		For i=0 To Ubound(SQL,2)
			TopicHtml = DvBoke.Page_Strings(26).text
			Title = Sql(8,i)
			If Len(Title)>150 Then
				Title = Left(Title,150) &"......"
			End If
			If Title = "" Or IsNull(Title) Then
				If Sql(18,i)<>"" Then
					Title = Sql(18,i)
				Else
					Title = Split(Sql(9,i),"/")(2)
				End If
			End If

			ViewFile = Sql(16,i)
			If ViewFile="" or IsNull(ViewFile) Then
				ViewFile = Sql(9,i)
			End If
			ViewFile = DvBoke.System_UpSetting(19) & ViewFile
			If Sql(10,i) <> 1 Then
				ViewFile = "boke/images/info.gif"
			End If
			TopicHtml = Replace(TopicHtml,"{$ViewPhoto}",ViewFile)
			If Sql(17,i) = 4 Then
				Title = "未曾使用"
				TopicHtml = Replace(TopicHtml,"{$topic}",DvBoke.HTMLEncode(Title))
			Else
				If Sql(7,i)=0 Then
					TopicHtml = Replace(TopicHtml,"{$topic}","<a href="""&DvBoke.ModHtmlLinked&DvBoke.BokeName&".showtopic."&Sql(5,i)&".html"" target=""_blank"">" & DvBoke.HTMLEncode(Title) & "</a>")
				ElseIf Sql(7,i)=1 Then
					TopicHtml = Replace(TopicHtml,"{$topic}","<a href="""&DvBoke.ModHtmlLinked&DvBoke.BokeName&".showtopic."&Sql(5,i)&"."&Sql(6,i)&".html"" target=""_blank"">" & DvBoke.HTMLEncode(Title) & "</a>")
				Else
					TopicHtml = Replace(TopicHtml,"{$topic}",DvBoke.HTMLEncode(Title))
				End If
			End If
			TopicHtml = Replace(TopicHtml,"{$PostDate}",FormatDateTime(Sql(15,i),1))
			TopicHtml = Replace(TopicHtml,"{$PostUserName}",Sql(2,i))
			TopicHtml = Replace(TopicHtml,"{$TopicID}",Sql(5,i))
			TopicHtml = Replace(TopicHtml,"{$fileid}",Sql(0,i))
			Temp = Temp & TopicHtml
			If ii >= Cint(DvBoke.System_Setting(9))-1 Then
				Temp = Temp & Temp2
				ii = 0
			Else
				ii = ii+1
			End If
		Next
		Temp = Replace(Temp,"{$width}",Dvboke.System_UpSetting(14))
		Temp = Replace(Temp,"{$height}",Dvboke.System_UpSetting(15))
		PageHtml = Replace(PageHtml,"{$topiclist}",DvBoke.Page_Strings(25).text)
		PageHtml = Replace(PageHtml,"{$photo_list}",Temp)
	Else
		PageHtml = Replace(PageHtml,"{$topiclist}",TopicHtml)
	End If
	PageSearch = "s=3&m="&m&"&keyword="&keyword
	PageHtml = Replace(PageHtml,"{$Page}",Page)
	PageHtml = Replace(PageHtml,"{$MaxRows}",MaxRows)
	PageHtml = Replace(PageHtml,"{$CountNum}",CountNum)
	PageHtml = Replace(PageHtml,"{$PageSearch}",PageSearch)
	PageHtml = Replace(PageHtml,"{$bokename}",DvBoke.BokeName)
	PageHtml = Replace(PageHtml,"{$bokeurl}",DvBoke.ModHtmlLinked)

	Response.Write PageHtml
End Sub

Function Page_UserFile_Del()
	Dim FileID,iTopic,i,Rs,tRs
	Dim PostContent,objFSO,FilePath,ViewFilepath,IsUpfile
	'On Error Resume Next
	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
	FilePath = DvBoke.System_UpSetting(19)
	FileID = Request("fileid")
	iTopic = Request("iTopic")
	If FileID = "" Or iTopic = "" Then
		DvBoke.ShowCode(9)
		DvBoke.ShowMsg(2)
		Page_UserFile_Del = DvBoke.InputShowMsg
		Exit Function
	End If
	If Not IsNumeric(iTopic) Then
		DvBoke.ShowCode(9)
		DvBoke.ShowMsg(2)
		Page_UserFile_Del = DvBoke.InputShowMsg
		Exit Function
	End If
	iTopic = Cint(iTopic)
	If iTopic <> 0 Then
		DvBoke.ShowCode(9)
		DvBoke.ShowMsg(2)
		Page_UserFile_Del = DvBoke.InputShowMsg
		Exit Function
	End If
	FileID = Replace(FileID," ","")
	FileID = Split(FileID,",")
	
	For i = 0 To Ubound(FileID)
		If IsNumeric(FileID(i)) Then
			Set Rs=DvBoke.Execute("Select * From Dv_Boke_Upfile Where BokeUserID = " & DvBoke.BokeUserID & " And ID = " & FileID(i))
			If Not (Rs.Eof And Rs.Bof) Then
				'如关联帖子,则更新相应数据
				If (Rs("IsTopic")=0 Or Rs("IsTopic")=1) And Rs("PostID")>0 Then
					Set tRs=DvBoke.Execute("Select * From Dv_Boke_Post Where PostID=" & Rs("PostID"))
					If Not (tRs.Eof And tRs.Bof) Then
						IsUpfile = 0
						PostContent = tRs("Content")
						PostContent = Replace(PostContent,"[upload="&Split(Rs("FileName"),".")(1)&"]"&Rs("FileName")&"[/upload]","")
						PostContent = DvBoke.CheckStr(PostContent)
						If InStr(PostContent,"[/upload]") > 0 Then IsUpfile = 1
						DvBoke.Execute("Update Dv_Boke_Post Set Content = '" & PostContent & "',IsUpfile="&IsUpfile&" Where PostID = " & Rs("PostID"))
					End If
					tRs.Close:Set tRs=Nothing
				End If
				'删除附件
				If DvBoke.SysObjFso=True Then
					If objFSO.FileExists(Server.MapPath(FilePath & Rs("FileName"))) Then
						objFSO.DeleteFile(Server.MapPath(FilePath & Rs("FileName")))
					End If
					ViewFilepath = Rs("PreviewImage")
					IF Not IsNull(ViewFilepath) And ViewFilepath<>"" Then
						ViewFilepath=Replace(ViewFilepath,"..","")
						If objFSO.FileExists(Server.MapPath(ViewFilepath)) Then
							objFSO.DeleteFile(Server.MapPath(ViewFilepath))
						End If
					End IF
				End If
				'删除附件表记录
				DvBoke.Execute("Delete From Dv_Boke_Upfile Where ID = " & Rs("ID"))
			End If
			Rs.Close:Set Rs=Nothing
		End If
	Next
	DvBoke.ShowCode(51)
	DvBoke.ShowMsg(2)
	Page_UserFile_Del = DvBoke.InputShowMsg
End Function

'个人博客数据更新或统计
Sub Page_Count()
	Dim PageHtml
	PageHtml = DvBoke.Page_Strings(28).text
	Select Case t
		Case "1"
			Update_UserNickName()
		Case "2"
			Update_UserCatData()
		Case "3"
			Update_UserBokeData()
	Case Else
	End Select
	Response.Write PageHtml
End Sub

'更新用户笔名
Sub Update_UserNickName()
	Dim Sql
	'[Dv_Boke_Topic]
	Sql = "Update [Dv_Boke_Topic] Set UserName = '"&DvBoke.CheckStr(DvBoke.BokeUserName)&"' Where UserID="&DvBoke.BokeUserID
	DvBoke.Execute Sql
	DvBoke.ShowCode("主题信息更新完成！")
	'[Dv_Boke_Upfile]
	Sql = "Update [Dv_Boke_Upfile] Set UserName = '"&DvBoke.CheckStr(DvBoke.BokeUserName)&"' Where UserID="&DvBoke.BokeUserID
	DvBoke.Execute Sql
	DvBoke.ShowCode("上传文件信息更新完成！")
	'[Dv_Boke_Post]
	Sql = "Update [Dv_Boke_Post] Set UserName = '"&DvBoke.CheckStr(DvBoke.BokeUserName)&"' Where UserID="&DvBoke.BokeUserID
	DvBoke.Execute Sql
	DvBoke.ShowCode("回复信息更新完成！")
	DvBoke.ShowMsg(0)
End Sub
'更新栏目数据
Sub Update_UserCatData()
	Dim Rs,Sql,DayStr
	Dim ChildNode,uCatID
	Dim TopicNum,PostNum,TodayNum,LastUpTime
	If Dv_Boke_DataBase = 1 Then
		DayStr = "d"
	Else
		DayStr = "'d'"
	End If
	If DvBoke.BokeCatNode.length>0 Then
		For Each ChildNode In DvBoke.BokeCatNode
			uCatID = DvBoke.CheckNumeric(ChildNode.getAttribute("ucatid"))
			If uCatID>0 Then
				TopicNum = DvBoke.Execute("Select Count(*) From [Dv_Boke_Topic] Where CatID = "&uCatID)(0)
				PostNum = DvBoke.Execute("Select Count(*) From [Dv_Boke_Post] Where ParentID>0 and CatID = "&uCatID)(0)
				TodayNum = DvBoke.Execute("Select Count(*) From [Dv_Boke_Post] Where CatID = "&uCatID&" and DateDiff("&DayStr&",JoinTime,"&bSqlNowString&") = 0")(0)
				
				'Response.Write "Select Top 1 JoinTime From [Dv_Boke_Post] Where CatID = "&uCatID&" order by JoinTime,postid desc"

				Set Rs = DvBoke.Execute("Select Top 1 JoinTime From [Dv_Boke_Post] Where CatID = "&uCatID&" order by JoinTime desc")
				If Rs.Eof Then
					LastUpTime = Now()
				Else
					LastUpTime = Rs(0)
				End If
				Rs.Close
				ChildNode.attributes.getNamedItem("topicnum").text = TopicNum
				ChildNode.attributes.getN