📄 dv_loadcache.asp

📁 现在好了
💻 ASP
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
	CNode.text="ztopic"
	Node.attributes.setNamedItem(CNode)
	node.text=mainpic(0)
	XMLStyle.documentElement.appendChild(node)
	Set Node=XMLStyle.createNode(1,"xsl:variable","http://www.w3.org/1999/XSL/Transform")
	Set CNode=XMLStyle.createNode(2,"name","")
	CNode.text="istopic"
	Node.attributes.setNamedItem(CNode)
	node.text=mainpic(1)
	XMLStyle.documentElement.appendChild(node)
	Set Node=XMLStyle.createNode(1,"xsl:variable","http://www.w3.org/1999/XSL/Transform")
	Set CNode=XMLStyle.createNode(2,"name","")
	CNode.text="opentopic"
	Node.attributes.setNamedItem(CNode)
	node.text=mainpic(2)
	XMLStyle.documentElement.appendChild(node)
	Set Node=XMLStyle.createNode(1,"xsl:variable","http://www.w3.org/1999/XSL/Transform")
	Set CNode=XMLStyle.createNode(2,"name","")
	CNode.text="hottopic"
	Node.attributes.setNamedItem(CNode)
	node.text=mainpic(3)
	XMLStyle.documentElement.appendChild(node)
	Set Node=XMLStyle.createNode(1,"xsl:variable","http://www.w3.org/1999/XSL/Transform")
	Set CNode=XMLStyle.createNode(2,"name","")
	CNode.text="ilocktopic"
	Node.attributes.setNamedItem(CNode)
	node.text=mainpic(4)
	XMLStyle.documentElement.appendChild(node)
	Set Node=XMLStyle.createNode(1,"xsl:variable","http://www.w3.org/1999/XSL/Transform")
	Set CNode=XMLStyle.createNode(2,"name","")
	CNode.text="besttopic"
	Node.attributes.setNamedItem(CNode)
	node.text=mainpic(5)
	XMLStyle.documentElement.appendChild(node)
	Set Node=XMLStyle.createNode(1,"xsl:variable","http://www.w3.org/1999/XSL/Transform")
	Set CNode=XMLStyle.createNode(2,"name","")
	CNode.text="votetopic"
	Node.attributes.setNamedItem(CNode)
	node.text=mainpic(6)
	XMLStyle.documentElement.appendChild(node)
	Set Node=XMLStyle.createNode(1,"xsl:variable","http://www.w3.org/1999/XSL/Transform")
	Set CNode=XMLStyle.createNode(2,"name","")
	CNode.text="pic_toptopic1"
	Node.attributes.setNamedItem(CNode)
	node.text=mainpic(19)
	XMLStyle.documentElement.appendChild(node)
	Set XSLT=Server.CreateObject("Msxml2.XSLTemplate")
	XSLT.stylesheet=XMLStyle
	Application.Lock
	Set Application(Dvbbs.CacheName&"_listtemplate_"&myskinid)=XSLT
	Application.unLock
	Set XSLT=Nothing
	Set XMLStyle=Nothing
	Set XMLStyle=Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
	XMLStyle.loadxml HTML(4)
	'XMLStyle.load server.mappath("index_Class.xslt")
	For i=0 to UBound(pic)-1
		Set Node=XMLStyle.createNode(1,"xsl:variable","http://www.w3.org/1999/XSL/Transform")
		Set CNode=XMLStyle.createNode(2,"name","")
		CNode.text="pic_"&i
		Node.attributes.setNamedItem(CNode)
		node.text=pic(i)
		XMLStyle.documentElement.appendChild(node)
	Next
	Set Node=XMLStyle.createNode(1,"xsl:variable","http://www.w3.org/1999/XSL/Transform")
	Set CNode=XMLStyle.createNode(2,"name","")
	CNode.text="links"
	Node.attributes.setNamedItem(CNode)
	node.text=Replace(html(5),"{$Getlink}",Getlink())
	XMLStyle.documentElement.appendChild(node)
	Set XSLT=Server.CreateObject("Msxml2.XSLTemplate")
	XSLT.stylesheet=XMLStyle
	Application.Lock
	Set Application(Dvbbs.CacheName&"_indextemplate_"&myskinid)=XSLT
	Application.unLock
	LoadTemplates "dispbbs",myskinid	
	Set XMLStyle=Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
	XMLStyle.loadxml HTML(15)
	'XMLStyle.load Server.mappath("dispbbs.xslt")
	Set XSLT=Server.CreateObject("Msxml2.XSLTemplate")
	XSLT.stylesheet=XMLStyle
	Application.Lock
	Set Application(Dvbbs.CacheName&"_dispbbsemplate_"&myskinid)=XSLT
	Application.unLock
	Set XSLT=Nothing
	Set XMLStyle=Nothing
End Sub
Function Getlink()
	Dim Rs,SQl,i,tmpstr
	SQL="select boardname,readme,url,logo,islogo from [Dv_bbslink] where islogo=0 Order by id"
	Set Rs=Dvbbs.Execute(SQL)
	If Not Rs.EOF Then
		SQL=RS.GetRows(-1)
		For i=0 to UBound(SQL,2)
			tmpstr=tmpstr & "<td width=""16%""><a href="""& SQL(2,i) &""" target=""_blank"" title="""&SQL(1,i)&""">"&SQL(0,i)&"</a></td>"
			If i>0 And (i+1) mod 6=0 And i <> UBound(SQL,2) Then tmpstr=tmpstr & "</tr><tr>"
		Next
	End If
	If tmpstr<>"" Then
		tmpstr=tmpstr &"<tr><td colspan=""6""><hr></td></tr><tr>"
	End If
	SQL="select boardname,readme,url,logo,islogo from [Dv_bbslink] where islogo=1 Order by id"
	Set Rs=Dvbbs.Execute(SQL)
	If Not Rs.EOF Then
		SQL=RS.GetRows(-1)
		For i=0 to UBound(SQL,2)
			tmpstr=tmpstr & "<td width=""16%""><a href="""& SQL(2,i) &""" target=""_blank"" title="""&SQL(1,i)&"""><img border=0 src="""&SQL(3,i)&"""  height=31 width=88></a></td>"
			If i>0 And (i+1) mod 6=0 And i <> UBound(SQL,2) Then tmpstr=tmpstr & "</tr><tr>"
		Next
	End If
	If tmpstr="" Then tmpstr="<td colSpan=6 align=left width=""100%"">&nbsp;</td>"
	Getlink=tmpstr
	Set Rs=Nothing
End Function
'更新所有用户组设置缓存
Sub LoadGroupSetting()
	Dim Rs
	Set Rs=Dvbbs.Execute("Select GroupSetting,UserGroupID,ParentGID,IsSetting,UserTitle From Dv_UserGroups")
	Do While Not Rs.Eof
		Dvbbs.Name="GroupSetting_" & Rs(1)
		Dvbbs.value=Rs(0) & "§§§" & Rs(2) & "§§§" & Rs(3) & "§§§" & Rs(4)
	Rs.MoveNext
	Loop
	Rs.Close
	Set Rs=Nothing
End Sub
'用户组图标缓存函数,在线状态列表可调用（用户组ID|||用户组图标）
Sub GetGroupTitlePic()
	Dvbbs.Name="GetGroupTitlePic"
	Dim Rs,SQl
	SQL="select UserGroupID,TitlePic from [Dv_UserGroups] Order by UserGroupID "
	Set Rs=Dvbbs.Execute(SQL)
	'空数据默认为客人
	SQL=Rs.GetString(,, "|||", "@@@", "messages2.gif")
	Rs.close:Set Rs=Nothing
	Dvbbs.Value = SQL
End Sub
'创建贴子列表使用的XML文档
Sub Maktopiclist()
	Dim XMLDOM,documentElement,ListNodeObject,Node
	Set XMLDOM=Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
	Set documentElement=XMLDOM.createElement("topiclist")
	XMLDOM.appendChild(documentElement)
	Set ListNodeObject = XMLDOM.createNode(1,"list","")
	ListNodeObject.attributes.setNamedItem(XMLDOM.createNode(2,"title",""))
	ListNodeObject.attributes.setNamedItem(XMLDOM.createNode(2,"istop",""))
	ListNodeObject.attributes.setNamedItem(XMLDOM.createNode(2,"isvote",""))
	ListNodeObject.attributes.setNamedItem(XMLDOM.createNode(2,"isbest",""))
	ListNodeObject.attributes.setNamedItem(XMLDOM.createNode(2,"locktopic",""))
	ListNodeObject.attributes.setNamedItem(XMLDOM.createNode(2,"child",""))
	ListNodeObject.attributes.setNamedItem(XMLDOM.createNode(2,"hits",""))
	ListNodeObject.attributes.setNamedItem(XMLDOM.createNode(2,"postusername",""))
	ListNodeObject.attributes.setNamedItem(XMLDOM.createNode(2,"postuserid",""))
	ListNodeObject.attributes.setNamedItem(XMLDOM.createNode(2,"boardid",""))
	ListNodeObject.attributes.setNamedItem(XMLDOM.createNode(2,"TopicID",""))
	ListNodeObject.attributes.setNamedItem(XMLDOM.createNode(2,"IsSmsTopic",""))
	ListNodeObject.attributes.setNamedItem(XMLDOM.createNode(2,"dateandtime",""))
	ListNodeObject.attributes.setNamedItem(XMLDOM.createNode(2,"Expression",""))
	ListNodeObject.attributes.setNamedItem(XMLDOM.createNode(2,"topicmagicface",""))
	ListNodeObject.attributes.setNamedItem(XMLDOM.createNode(2,"Mode",""))
	ListNodeObject.attributes.setNamedItem(XMLDOM.createNode(2,"votetotal",""))
	ListNodeObject.attributes.setNamedItem(XMLDOM.createNode(2,"DateDiffTime",""))
	ListNodeObject.attributes.setNamedItem(XMLDOM.createNode(2,"TopicMode",""))
	ListNodeObject.attributes.setNamedItem(XMLDOM.createNode(2,"LastPostUser",""))
	ListNodeObject.attributes.setNamedItem(XMLDOM.createNode(2,"LastPostID",""))
	ListNodeObject.attributes.setNamedItem(XMLDOM.createNode(2,"LastPostTime",""))
	ListNodeObject.attributes.setNamedItem(XMLDOM.createNode(2,"LastPostBody",""))
	ListNodeObject.attributes.setNamedItem(XMLDOM.createNode(2,"LastPostPic",""))
	ListNodeObject.attributes.setNamedItem(XMLDOM.createNode(2,"LastPostUserID",""))
	ListNodeObject.attributes.setNamedItem(XMLDOM.createNode(2,"GetMoney",""))
	ListNodeObject.attributes.setNamedItem(XMLDOM.createNode(2,"GetMoneyType",""))
	ListNodeObject.attributes.setNamedItem(XMLDOM.createNode(2,"UseTools",""))
	Set Node = XMLDOM.createNode(1,"DvCopy","")
	Node.appendChild(ListNodeObject)
	documentElement.appendChild(node)
	'===============settings设置节点==============
	Set Node = XMLDOM.createNode(1,"settings","")
	Node.attributes.setNamedItem(XMLDOM.createNode(2,"alertcolor",""))
	Node.attributes.setNamedItem(XMLDOM.createNode(2,"timestr",""))
	Node.attributes.setNamedItem(XMLDOM.createNode(2,"Forum_name",""))
	Node.attributes.setNamedItem(XMLDOM.createNode(2,"ShowNewPic",""))
	Node.attributes.setNamedItem(XMLDOM.createNode(2,"titleshowlen",""))
	documentElement.appendChild(node)
	'===============info版面信息节点==============
	Set Node = XMLDOM.createNode(1,"info","")
	Node.attributes.setNamedItem(XMLDOM.createNode(2,"page",""))
	Node.attributes.setNamedItem(XMLDOM.createNode(2,"dispsize",""))
	Node.attributes.setNamedItem(XMLDOM.createNode(2,"PageSize",""))
	Node.attributes.setNamedItem(XMLDOM.createNode(2,"boardid",""))
	Node.attributes.setNamedItem(XMLDOM.createNode(2,"tablewidth",""))
	Node.attributes.setNamedItem(XMLDOM.createNode(2,"action",""))
	Node.attributes.setNamedItem(XMLDOM.createNode(2,"actionstr",""))
	Node.attributes.setNamedItem(XMLDOM.createNode(2,"HotTopicChild",""))
	Node.attributes.setNamedItem(XMLDOM.createNode(2,"topicmode",""))
	Node.attributes.setNamedItem(XMLDOM.createNode(2,"topiccount",""))
	Node.attributes.setNamedItem(XMLDOM.createNode(2,"Forum_AllTopNum",""))
	Node.attributes.setNamedItem(XMLDOM.createNode(2,"SelectBoardTopic",""))
	Node.attributes.setNamedItem(XMLDOM.createNode(2,"BoardJumpList",""))
	Node.attributes.setNamedItem(XMLDOM.createNode(2,"IcoLimMinute",""))
	documentElement.appendChild(node)
	Application.Lock
	Set Application(Dvbbs.CacheName&"_topiclist")=XMLDOM.cloneNode(True)
	Application.unLock
	Set XMLDOM=Nothing
End Sub
'更新单个或多个版面的信息
Sub LoadBoardsInfo(lBoardID)
	Dim Rs,i,SQL,LastPostInfo,TempStr,Node
	If Not Isnumeric(lBoardID) Then Exit Sub
	If lBoardID > 0 Then
		lBoardID = " Where BoardID = " & lBoardID
	Else
		lBoardID = ""
	End If
	'TempStr=21=导航菜单,TempStr1=22=某类下版主版面信息,TempStr2=23=小字报和公告,TempStr3=24,cid=25
	'boardid=0,BoardType=1,ParentID=2,ParentStr=3,Depth=4,RootID=5,Child=6,readme=7,BoardMaster=8,PostNum=9,TopicNum=10,indexIMG=11,todayNum=12,boarduser=13,LastPost=14,Sid=15,Board_Setting=16,Board_Ads=17,Board_user=18,IsGroupSetting=19,BoardTopStr=20,BoardID As TempStr=21,BoardID As TempStr1=22,BoardID As TempStr2=23,BoardID As TempStr3=24,cid=25,Rules=26分版规则
	SQL="select boardid,BoardType,ParentID,ParentStr,Depth,RootID,Child,readme,BoardMaster,PostNum,TopicNum,indexIMG,todayNum,boarduser,LastPost,Sid,Board_Setting,Board_Ads,Board_user,IsGroupSetting,BoardTopStr,cid,Rules From Dv_board" & lBoardID
	If Not IsObject(Conn) Then ConnectionDatabase
	Set Rs=Server.CreateObject("ADODB.RecordSet")
	Rs.Open SQL,Conn,1,3
	Do While Not Rs.Eof
		LastPostInfo = Split(Rs(14),"$")
		'修正最后回复下标越界 2005-4-18 Dv.Yz
		If Ubound(LastPostInfo) = 6 Then LastPostInfo = Split(Rs(14)&"$","$")
		If Not IsDate(LastPostInfo(2)) Then LastPostInfo(2)=Now()
		If DateDiff("d",LastPostInfo(2),Now())<>0 Then
			Rs("LastPost")=LastPostInfo(0)&"$"&LastPostInfo(1)&"$"&LastPostInfo(2)&"$"&LastPostInfo(3)&"$"&LastPostInfo(4)&"$"&LastPostInfo(5)&"$"&LastPostInfo(6)&"$"&LastPostInfo(7)
			Rs("TodayNum")=0
			Rs.Update()

			'------------------------------------
			Set node = Dvbbs.BoardXML.selectSingleNode("//*[@boardid='"&Rs(0)&"']")
			If not (node is nothing) Then
			'------------------------------------
			'For Each Node in Dvbbs.BoardXML.documentElement.getElementsByTagName("board")
				'If Cstr(Rs(0))=Node.attributes.getNamedItem("boardid").text Then
					Node.attributes.getNamedItem("lastpost").text=Rs("LastPost")
					Node.attributes.getNamedItem("todaynum").text=0
					'Exit For
				'End If		
			'Next
			End If
		End If
		Rs.MoveNext
	Loop
	Rs.Close
	Set Rs=Nothing
End Sub
%>
上一页 1 23
💿 文件大小 3237 K
👤 上传用户 my99ab1
📂 所属分类其他
⌨️ 快捷键说明

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