cls_main.asp

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

				Html = Replace(Html,"{$bokename}",BokeName)
				Html = Replace(Html,"{$cat_tid}",i)
				Html = Replace(Html,"{$bokeurl}",ModHtmlLinked)
				Response.Write Html
			End If
		Next
	End Sub
	Public Sub BokeChannelToJS()
		Dim Temp,Temp1,Temp2
		Dim Html,Node,i,ii,NodeList
		Response.Write "<script language=""JavaScript"">var BokeCat_ID = new Array();var BokeCat_Title = new Array();"
		For i = 0 To 4
			Response.Write ""
			Temp1 = "["
			Temp2 = "["
			ii=0
			Set NodeList = BokeCat.documentElement.selectNodes("rs:data/z:row[@utype='"&i&"']")
			If NodeList.length>0 Then
				For Each Node in NodeList
					ii = ii + 1
					Temp1 = Temp1 & "'" & Node.getAttribute("ucatid")&"'"
					Temp2 = Temp2 & "'" &Node.getAttribute("ucattitle") &"'"
					If ii<NodeList.length Then
						Temp1 = Temp1 & ","
						Temp2 = Temp2 & ","
					End If
				Next
			End If
			Temp1 = Temp1 & "]"
			Temp2 = Temp2 & "]"
			Response.Write "BokeCat_ID["&i&"]="&Temp1&";"&vBnewline
			Response.Write "BokeCat_Title["&i&"]="&Temp2&";"&vBnewline
		Next
		Response.Write "</script>"
	End Sub
	'------------------------------------- Left Function ------------------------------------------------------------
	Public Sub LeftMenu()
		Dim Html,i,Str1
		Html = Main_Strings(4).text
		For i=7 To 15
			Str1 = "{$"&Main_Strings(i).getAttribute("title")&"}"
			If Instr(Html,Str1) Then
				Select Case Str1
					Case "{$show_bokenote}"
						Html = Replace(Html,"{$show_bokenote}",SBokeNote)
					Case "{$show_channel}"
						Html = Replace(Html,Str1,SChannel)
					Case Else
					Html = Replace(Html,Str1,Main_Strings(i).text)
				End Select
			End If
		Next
		If Instr(Html,"{$bokelinks}") Then
			Html = Replace(Html,"{$bokelinks}",LinkStr)
		End If
		If Instr(Html,"{$bokephotos}") Then
			Html = Replace(Html,"{$bokephotos}",BokePhotos)
		End If
		If Instr(Html,"{$boketopicnews}") Then
			Html = Replace(Html,"{$boketopicnews}",BokePost)
		End If
		If Instr(Html,"{$bokecounts}") Then
			Html = Replace(Html,"{$bokecounts}",BokeCounts)
		End If
		If BokeSetting(15)<>"1" And BokeSetting(15)<>"" Then
			Html = Replace(Html,"{$ChannelPay}",BokeSetting(15))
		Else
			Html = Replace(Html,"{$ChannelPay}","")
		End If
		Html = Replace(Html,"{$bokename}",BokeName)
		Html = Replace(Html,"{$bokeurl_r}",Dvbbs.Get_ScriptNameUrl & bokeurl_r)
		Html = Replace(Html,"{$bokeurl}",ModHtmlLinked)
		Response.Write Html
	End Sub
	Public Function BokeCounts()
		Dim ShowTemp
		ShowTemp = Main_Strings(26).text
		ShowTemp = Replace(ShowTemp,"{$TodayNum}",BokeNode.getAttribute("todaynum"))
		ShowTemp = Replace(ShowTemp,"{$TopicNum}",BokeNode.getAttribute("topicnum"))
		ShowTemp = Replace(ShowTemp,"{$FavNum}",BokeNode.getAttribute("favnum"))
		ShowTemp = Replace(ShowTemp,"{$PhotoNum}",BokeNode.getAttribute("photonum"))
		ShowTemp = Replace(ShowTemp,"{$PostNum}",BokeNode.getAttribute("postnum"))
		ShowTemp = Replace(ShowTemp,"{$Trackbacks}",BokeNode.getAttribute("trackbacks"))
		ShowTemp = Replace(ShowTemp,"{$JoinBokeTime}",Formatdatetime(BokeNode.getAttribute("joinboketime"),2))
		ShowTemp = Replace(ShowTemp,"{$LastUpTime}",Formatdatetime(BokeNode.getAttribute("lastuptime"),2))
		BokeCounts = ShowTemp
	End Function
	Public Function SBokeNote()
		Dim ShowTemp
		ShowTemp = ""
		If BokeNode.getAttribute("bokenote")<>"" Then
			ShowTemp = Main_Strings(7).text
			ShowTemp = Replace(ShowTemp,"{$bokenote}",HtmlEncode(BokeNode.getAttribute("bokenote")))
		End If
		SBokeNote = ShowTemp
	End Function
	Public Function SChannel()
		Dim ShowTemp
		If BokeNode.getAttribute("xmldata")<>"" Then
			ShowTemp = Main_Strings(8).text
			ShowTemp = Replace(ShowTemp,"{$bokechannel}","")
		End If
		SChannel = ShowTemp
	End Function
	Public Function ChannelTitle(Ucatid)
		Dim Channels
		Set Channels = BokeCat.selectSingleNode("//rs:data/z:row[@ucatid='"&Ucatid&"']")
		If Channels Is Nothing Then
			ChannelTitle = ""
		Else
			ChannelTitle = Channels.getAttribute("ucattitle")
		End If
	End Function
	Public Function LinkStr()
		Dim Node,ChildNodes,LinkTemp,Temp
		Set Node = DvBoke.BokeCat.selectNodes("xml/bokelink/rs:data/z:row")
		If Node.Length=0 Then
			LinkStr = "暂未添加该信息。"
			Exit Function
		End If
		For Each ChildNodes in Node
			Temp = Main_Strings(23).text
			Temp = Replace(Temp,"{$linkurl}",ClearHtmlTages(ChildNodes.getAttribute("content")))
			Temp = Replace(Temp,"{$linkname}",ClearHtmlTages(ChildNodes.getAttribute("title")))
			LinkTemp = LinkTemp & Temp
		Next
		LinkStr = LinkTemp
	End Function

	Public Function BokePost()
		Dim Node,ChildNodes,BokePostTemp,Temp
		Set Node = DvBoke.BokeCat.selectNodes("xml/bokepost/rs:data/z:row")
		If Node.Length=0 Then
			BokePost = "暂未添加该信息。"
			Exit Function
		End If
		Dim Title
		For Each ChildNodes in Node
			Temp = Main_Strings(25).text
			Title = ChildNodes.getAttribute("title")
			If Title = "" Then
				Title = ChildNodes.getAttribute("content")
			End If
			Title = ClearHtmlTages(Title)
			If Len(Title)>16 Then
				Title = Left(Title,16)&"..."
			End If
			Temp = Replace(Temp,"{$title}",	Title)
			Temp= Replace(Temp,"{$TopicID}",ChildNodes.getAttribute("rootid"))
			Temp= Replace(Temp,"{$PostID}",ChildNodes.getAttribute("postid"))
			Temp= Replace(Temp,"{$postusername}",ChildNodes.getAttribute("username"))
			BokePostTemp = BokePostTemp & Temp
		Next
		BokePostTemp = Replace(BokePostTemp,"{$bokename}",BokeName)
		BokePost = BokePostTemp
	End Function

	Public Function BokePhotos()
		Dim Node,ChildNodes,PhotosTemp,Temp
		Set Node = DvBoke.BokeCat.selectNodes("xml/bokephoto/rs:data/z:row")
		If Node.Length=0 Then
			BokePhotos = "暂未添加该信息。"
			Exit Function
		End If
		Dim ViewFile
		For Each ChildNodes in Node
			Temp = Main_Strings(24).text
			ViewFile = ChildNodes.getAttribute("previewimage")
			If ViewFile="" or IsNull(ViewFile) Then
				ViewFile = DvBoke.System_UpSetting(19) & ChildNodes.getAttribute("filename")
			End If
			Temp = Replace(Temp,"{$ViewPhoto}",ViewFile)
			Temp = Replace(Temp,"{$topic}",HTMLEncode(ChildNodes.getAttribute("title")))
			Temp= Replace(Temp,"{$TopicID}",ChildNodes.getAttribute("topicid"))
			PhotosTemp = PhotosTemp & Temp
			Exit For
		Next
		PhotosTemp = Replace(PhotosTemp,"{$width}",Dvboke.System_UpSetting(14))
		PhotosTemp = Replace(PhotosTemp,"{$height}",Dvboke.System_UpSetting(15))
		PhotosTemp = Replace(PhotosTemp,"{$bokename}",BokeName)
		
		BokePhotos = PhotosTemp
	End Function

	'------------------------------------- Left Function ------------------------------------------------------------
	Public Function SysInfo
		Dim TempStr
		Dim Endtime
		Endtime = Timer()
		TempStr = "查询次数：("& SqlQueryNum + Dvbbs.SqlQueryNum &")"
		TempStr = TempStr & ",页面执行时间 0"&FormatNumber((Endtime-Startime),5)&" 秒"
		SysInfo = TempStr
	End Function

	Public Sub Footer()
		Dim Html
		Html = Main_Strings(1).text
		If BokeUserName = "" or ScriptName="bokeindex.asp" Then
			BokeUserName = "<a href="""&System_Node.getAttribute("s_url")&""">"&System_Node.getAttribute("s_name")&"</a>"
		End If
		Html = Replace(Html,"{$bokeuser}",BokeUserName)
		Html = Replace(Html,"{$version}",Version)
		Html = Replace(Html,"{$sysinfo}",SysInfo)
		Response.Write Html
	End Sub

	Public Sub ShowCode(Byval Code)
		If ErrCode<>"" Then  ErrCode = ErrCode & ","
		ErrCode = ErrCode & Code
	End Sub
	
	'Stype 0=显示底部及顶部信息,1=不显示顶部及底部,2=在相关页面内显示
	Public Sub ShowMsg(Stype)
		If sType = 2 Then
			If ErrCode = "" Then Exit Sub
			LoadPage("SysDescription.xslt")
			Dim Codes,ShowCodes,i,Description,Count
			Dim ShowSkins,TempStr
			ShowSkins = Page_Strings(0).text
			Count = Page_Strings.length
			Description = ""
			TempStr = Page_Strings(1).text
			Codes = ErrCode
			ShowCodes = Split(Codes,",")
			For i=0 to UBound(ShowCodes)
				If IsNumeric(ShowCodes(i)) Then
					If Clng(ShowCodes(i)) <= Count and Clng(ShowCodes(i))>1 Then
						Description = Description & Replace(TempStr,"{$msg}",Page_Strings(ShowCodes(i)).text)
					End If
				Else
					Description = Description & Replace(TempStr,"{$msg}",Server.Htmlencode(ShowCodes(i)))
				End If
			Next
			ShowSkins = Replace(ShowSkins,"{$refresh}","")
			ShowSkins = Replace(ShowSkins,"{$refreshinfro}","")
			ShowSkins = Replace(ShowSkins,"{$description}",Description)
			InputShowMsg = ShowSkins
		Else
			If ErrCode<>"" and ScriptName<>"bokedescription.asp" Then Response.Redirect Furl("BokeDescription.asp?user="&BokeName&"&ShowHead="& Stype &"&RefreshID="&RefreshID&"&Codes=" & ErrCode)
		End If
	End Sub
	'是否支持FSO
	Public Function SysObjFso()
		Dim xTestObj
		SysObjFso = False
		On Error Resume Next
		Set xTestObj = Server.CreateObject("Scripting.FileSystemObject")
		If Err = 0 Then SysObjFso = True
		Set xTestObj = Nothing
		Err = 0
	End Function
	Public Sub SysDeleteFile(PostID)
		If PostID = "" Or Not IsNumeric(PostID) Then Exit Sub
		Dim Rs
		Dim objFSO,FilePath,ViewFilepath,FileSize
		FileSize = 0
		'On Error Resume Next
		Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
		FilePath = DvBoke.System_UpSetting(19)
		Set Rs=Execute("Select ID,FileName,PreviewImage,FileSize,BokeUserID From Dv_Boke_Upfile Where PostID = " & PostID)
		Do While Not Rs.Eof
			'删除附件
			FileSize = Rs("FileSize")
			If 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
			'返还文件空间
			If FileSize>0 Then
				FileSize = Formatnumber((FileSize/1024)/1024,2)
				Response.Write "Update Dv_Boke_User Set SpaceSize = SpaceSize + "&FileSize&" where SpaceSize<>-1 and UserID="&Rs("BokeUserID")
				Execute("Update Dv_Boke_User Set SpaceSize = SpaceSize + "&FileSize&" where SpaceSize<>-1 and UserID="&Rs("BokeUserID"))
			End If
			'删除附件表记录
			Execute("Delete From Dv_Boke_Upfile Where ID = " & Rs("ID"))
		Rs.MoveNext
		Loop
		Rs.Close:Set Rs=Nothing
	End Sub
End Class

%>