📄 dv_clsspace.asp

📁 公司企业网站管理系统全站源码,用于企业内部对网站的管理
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
		ChildNode.text = UserIM(1)
		Set ChildNode = Space_User.appendChild(XmlDoc.createNode(1,"icp",""))
		ChildNode.text = UserIM(2)
		Set ChildNode = Space_User.appendChild(XmlDoc.createNode(1,"msn",""))
		ChildNode.text = UserIM(3)
		Set ChildNode = Space_User.appendChild(XmlDoc.createNode(1,"aim",""))
		ChildNode.text = UserIM(4)
		Set ChildNode = Space_User.appendChild(XmlDoc.createNode(1,"yahoo",""))
		ChildNode.text = UserIM(5)
		Set ChildNode = Space_User.appendChild(XmlDoc.createNode(1,"uc",""))
		ChildNode.text = UserIM(6)
		Space_User.removeAttribute "userim"
	End If
	If Space_User.getAttribute("userinfo")<>"" Then
		UserInfo = Split(Space_User.getAttribute("userinfo"),"|||")
		If not IsArray(UserInfo) Or Ubound(UserInFo)<>14 Then ReDim UserInfo(14)
		Set ChildNode = Space_User.appendChild(XmlDoc.createNode(1,"realname",""))
		ChildNode.text = UserInfo(0)
		Set ChildNode = Space_User.appendChild(XmlDoc.createNode(1,"character",""))
		ChildNode.text = UserInfo(1)
		Set ChildNode = Space_User.appendChild(XmlDoc.createNode(1,"personal",""))
		ChildNode.text = DVbbs.htmlencode(UserInfo(2))
		Set ChildNode = Space_User.appendChild(XmlDoc.createNode(1,"contry",""))
		ChildNode.text = UserInfo(3)
		Set ChildNode = Space_User.appendChild(XmlDoc.createNode(1,"province",""))
		ChildNode.text = UserInfo(4)
		Set ChildNode = Space_User.appendChild(XmlDoc.createNode(1,"city",""))
		ChildNode.text = UserInfo(5)
		Set ChildNode = Space_User.appendChild(XmlDoc.createNode(1,"shengxiao",""))
		ChildNode.text = UserInfo(6)
		Set ChildNode = Space_User.appendChild(XmlDoc.createNode(1,"blood",""))
		ChildNode.text = UserInfo(7)
		Set ChildNode = Space_User.appendChild(XmlDoc.createNode(1,"belief",""))
		ChildNode.text = UserInfo(8)
		Set ChildNode = Space_User.appendChild(XmlDoc.createNode(1,"occupation",""))
		ChildNode.text = UserInfo(9)
		Set ChildNode = Space_User.appendChild(XmlDoc.createNode(1,"marital",""))
		ChildNode.text = UserInfo(10)
		Set ChildNode = Space_User.appendChild(XmlDoc.createNode(1,"education",""))
		ChildNode.text = UserInfo(11)
		Set ChildNode = Space_User.appendChild(XmlDoc.createNode(1,"college",""))
		ChildNode.text = UserInfo(12)
		Set ChildNode = Space_User.appendChild(XmlDoc.createNode(1,"phone",""))
		ChildNode.text = UserInfo(13)
		Set ChildNode = Space_User.appendChild(XmlDoc.createNode(1,"address",""))
		ChildNode.text = UserInfo(14)
		Space_User.removeAttribute "userinfo"
	End If
	If Space_User.getAttribute("userdel")<>"" Then
		Dim UserDel
		UserDel = Dvbbs.CheckNumeric(Space_User.getAttribute("userdel"))
		UserDel = UserDel * -1
		If Space_User.getAttribute("userpost")>0 then
		Space_User.setAttribute "userdelpercent",FormatPercent(UserDel/(Clng(Space_User.getAttribute("userpost"))+UserDel))
		End if
	Else
		Space_User.setAttribute "userdelpercent","0%"
	End If
	If Space_User.getAttribute("usersetting")<>"" Then
		Dim UserSetting
		UserSetting = Split(Space_User.getAttribute("usersetting"),"|||")
		If Ubound(UserSetting)>1 Then
			Space_User.setAttribute "set1",UserSetting(0)
			Space_User.setAttribute "set2",UserSetting(1)
			Space_User.setAttribute "set3",UserSetting(2)
			If Ubound(UserSetting)<3 Then
				Space_User.setAttribute "set4",0
			Else
				Space_User.setAttribute "set4",UserSetting(3)
			End If
		Else
			Space_User.setAttribute "set1",1
			Space_User.setAttribute "set2",0
			Space_User.setAttribute "set3",0
			Space_User.setAttribute "set4",0
		End If
		Space_User.removeAttribute "usersetting"
	End If
	If Space_User.getAttribute("userfav")<>"" Then
		Dim FriendMod
		i = 0
		For Each FriendMod in Split(Space_User.getAttribute("userfav"),",")
			Set ChildNode = Space_User.appendChild(XmlDoc.createNode(1,"userfav",""))
			ChildNode.setAttribute "m",i
			ChildNode.setAttribute "name",FriendMod
			i = i+1
		Next
		Space_User.removeAttribute "userfav"
	End If
	'fav_boards
	If Space_User.getAttribute("fav_boards")<>"" Then
		Dim FavBoardID
		i = 0
		For Each FavBoardID in Split(Space_User.getAttribute("fav_boards"),",")
			Set ChildNode = Space_User.appendChild(XmlDoc.createNode(1,"favbid",""))
			ChildNode.setAttribute "bid",FavBoardID
			i = i+1
		Next
		Space_User.removeAttribute "fav_boards"
	End If
	XmlDoc.DocumentElement.appendChild(Space_User)
End Sub

Private Sub SetupForum_Info()
	Dim Powered
	Powered = "Powered By <a href = ""http://www.dvbbs.net/"" target = ""_blank"">Dvbbs</a>  <a href = ""http://www.dvbbs.net/download.asp"" target = ""_blank"">Version " & fVersion & "</a>"
		Set Forum_info=XmlDoc.DocumentElement.appendChild(XmlDoc.createNode(1,"forum_info",""))
		Forum_info.setAttribute "type",Dvbbs.Forum_info(0)
		Forum_info.setAttribute "maxonline",Dvbbs.CacheData(5,0)
		Forum_info.setAttribute "maxonlinedate",Dvbbs.CacheData(6,0)
		Forum_info.setAttribute "topicnum",Dvbbs.CacheData(7,0)
		Forum_info.setAttribute "postnum",Dvbbs.CacheData(8,0)
		Forum_info.setAttribute "maxonline",Dvbbs.CacheData(5,0)
		Forum_info.setAttribute "maxonlinedate",Dvbbs.CacheData(6,0)
		Forum_info.setAttribute "topicnum",Dvbbs.CacheData(7,0)
		Forum_info.setAttribute "postnum",Dvbbs.CacheData(8,0)
		Forum_info.setAttribute "todaynum",Dvbbs.CacheData(9,0)
		Forum_info.setAttribute "usernum",Dvbbs.CacheData(10,0)
		Forum_info.setAttribute "yesterdaynum",Dvbbs.CacheData(11,0)
		Forum_info.setAttribute "maxpostnum",Dvbbs.CacheData(12,0)
		Forum_info.setAttribute "maxpostdate",Dvbbs.CacheData(13,0)
		Forum_info.setAttribute "lastuser",Dvbbs.CacheData(14,0)
		Forum_info.setAttribute "online",MyBoardOnline.Forum_Online
		Forum_info.setAttribute "useronline",MyBoardOnline.Forum_UserOnline
		Forum_info.setAttribute "guestonline",MyBoardOnline.Forum_GuestOnline
		Forum_info.setAttribute "createtime",FormatDateTime(Dvbbs.Forum_Setting(74),1)
		Forum_info.setAttribute "url",Dvbbs.Get_ScriptNameUrl()
		Forum_info.setAttribute "skinpath",Forum_Skinpath
		Forum_info.setAttribute "copyright",Dvbbs.Forum_Copyright
		Forum_info.setAttribute "powered",Powered
		Forum_info.setAttribute "picurl",Dvbbs.Forum_PicUrl
End Sub

'输出模板页面
Public Sub TranTemplate()
	Forum_info.setAttribute "act",Act
	Forum_info.setAttribute "querynum",Dvbbs.SqlQueryNum
	Forum_info.setAttribute "runtime","0" & FormatNumber((Timer()-Startime),5)
	Dim Xmlskin,Proc,XmlStyle
	Set Xmlskin = Server.CreateObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
	If Not (Xmlskin.load(Server.MapPath(ScriptPath &"myspace.xslt"))) Then
		Response.Write "模板数据出错，请与管理员联系！"
		Response.End
	End If
	Set XMLStyle=Server.CreateObject("msxml2.XSLTemplate" & MsxmlVersion)
	XMLStyle.stylesheet=Xmlskin
	Set Proc=XMLStyle.createProcessor()
	Proc.input = XmlDoc
  	proc.transform()
  	Response.Write proc.output
	Set XmlStyle = Nothing
	Set Xmlskin = Nothing
	SaveCache_Data()
End Sub

Public Sub head()
		Dvbbs.Stats=Replace(Dvbbs.Stats,Chr(13),"")
		Dvbbs.Stats=Dvbbs.Replacehtml(Dvbbs.stats)
		'搜索引擎优化部分
		If Request("IsSearch_a") <> "" Then Dvbbs.stats = Dvbbs.stats & "-网站地图"
		If Dvbbs.IsSearch Then
			Response.Write Replace(Replace(Replace(Dvbbs.mainhtml(1),"{$keyword}",Replace(Dvbbs.Forum_info(8),"|",",")),"{$description}",Dvbbs.Forum_info(10))&vbNewLine,"{$title}",Dvbbs.stats &"["& Dvbbs.Forum_Info(0) &"] -- Powered By Dvbbs.net," & Now())
		Else
			Response.Write Replace(Replace(Replace(Dvbbs.mainhtml(1),"{$keyword}",Replace(Dvbbs.Forum_info(8),"|",",")),"{$description}",Dvbbs.Forum_info(10))&vbNewLine,"{$title}",Dvbbs.stats &"["& Dvbbs.Forum_Info(0) &"]")
		End If
		'搜索引擎优化结束
		Response.Write Chr(10)
		Response.Write Dvbbs.mainhtml(2)
		Response.Write "<script language=""javascript"" type=""text/javascript"">"
		'Response.Write "var boardxml='<?xml version=""1.0"" encoding=""gb2312""?>"& replace(XMLDom.documentElement.XML ,"'","\'")&"';"
		Response.Write "var boardxml='',ISAPI_ReWrite = "&isUrlreWrite&",forum_picurl='"&Dvbbs.Forum_PicUrl&"';"
		Response.Write "</script>"
End Sub

Public Sub Suc(msg)
	Dvbbs.Head()
	Dvbbs.Dvbbs_Suc(msg)

End Sub

'创建用户风格目录，需要FSO支持，若不支持返回空
'目录格式：skins/myspace/users/skin_@Userid
Public Function CreatStylePath()
	Dim SkinPath,Fso
	CreatStylePath = ""
	SkinPath = Space_Skinpath&"userskins/skin_"&Sid&"/"
	On Error Resume Next
	Set Fso = Server.CreateObject("Scripting.FileSystemObject")
		If Err Then
			Err.clear
			Exit Function
		End if
		If Fso.FolderExists(Server.MapPath(SkinPath))=False Then
			Fso.CreateFolder(Server.MapPath(SkinPath))
		End If
		If Err.Number = 0 Then
			CreatStylePath = "userskins/skin_"&Sid&"/"
		Else
			Err.Clear
			Exit Function
		End If
	Set Fso = Nothing
End Function

'风格目录复制
Public Sub CopyFolder(Folder1,Folder2)
	On Error Resume Next
	Dim Fso
	Set Fso = Server.CreateObject("Scripting.FileSystemObject")
		If Err Then
			Err.clear
			Exit Sub
		End if
		Fso.CopyFolder Server.MapPath(Space_Skinpath&Folder1),Server.MapPath(Space_Skinpath&Folder2),true
		If Err Then
			Err.Clear
			Exit Sub
		End If
	Set Fso = Nothing
End Sub

Public Sub WriteFile(Filepath,Text)
	On error resume Next
	Dim FileName,Fso
	FileName = Server.MapPath(Filepath)
	Set FSO=Server.CreateObject("Scripting.FileSystemObject")
	If Err Then
		Response.Write "<br /><li>*您的服务器不支持写文件(*"&Err.Description&"),CSS文件写入失败,请手工操作或把生成文件的内容清空!</li>"
		Err.Clear
		Exit Sub
	End If
	Fso.CreateTextFile(FileName).WriteLine(Text)
	If  Err Then
		Response.Write "<br /><li>*您的服务器不支持写文件(*"&Err.Description&"),CSS文件写入失败,请手工操作或把生成文件的内容清空!</li>"
		err.Clear
		Exit Sub
	End If
	Set Fso = Nothing
End Sub
End Class


%>
上一页 12
💿 文件大小 12830 K
👤 上传用户 caim3587
📂 所属分类企业管理
🏷️ 相关标签

#企业网站 #管理系统 #源码 #网站
⌨️ 快捷键说明

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