[求助]急求--帮助解读动网论坛dvbbs7.1的部分代码(页 1) - Ruby论坛 - 编程论坛

cx100net 发表于 2007-2-13 15:05

[求助]急求--帮助解读动网论坛dvbbs7.1的部分代码

index.asp源码：    <% Rem 首页页面设置 Const CachePage=false '是否做页面缓存 Const CacheTime=60 '缓存失效时间 Dim XMLDom,page,TopicMode,Cmd
If Request("w") = "1" Then Passport_Main() Response.End End If
If (Not Response.IsClientConnected) and Dvbbs.userid=0 Then Session(Dvbbs.CacheName & "UserID")=empty Response.Clear Response.End Else If Request("action")="xml" Then Showxml() Else Main() End If End If Sub Showxml() Dim node Set XMLDOM=Application(Dvbbs.CacheName&"_ssboardlist").cloneNode(True) If Dvbbs.GroupSetting(37)="0" Then'去掉隐藏论坛 For each node in XMLDOM.documentElement.getElementsByTagName("board") If node.attributes.getNamedItem("hidden").text="1" Then node.parentNode.removeChild(node) End If Next End If Response.Clear Response.CharSet="gb2312" Response.ContentType="text/xml" Response.Write "<?xml version=""1.0"" encoding=""gb2312""?>"&vbNewLine Response.Write XMLDom.documentElement.XML Response.Flush Set XMLDOM=Nothing Set Dvbbs=Nothing Response.End End Sub Sub Main() Dvbbs.LoadTemplates("index") If Dvbbs.BoardID=0 Then Dvbbs.Stats=Replace(template.Strings(0),"动网先锋论坛",Dvbbs.Forum_Info(0)) Response.Write Dvbbs.mainhtml(18) Dvbbs.Nav() Dvbbs.ActiveOnline() GetForumTextAd(0) BoardList() Else Chk_List_Err() TopicMode=0 If Request("topicmode")<>"" and IsNumeric(Request("topicmode")) Then TopicMode=Cint(Request("topicmode")) If Dvbbs.Board_Setting(43)="0" Then Dvbbs.Stats=Dvbbs.LanStr(7) Else Dvbbs.Stats=Dvbbs.LanStr(8) End If Response.Write Dvbbs.mainhtml(18) Dvbbs.Nav() Dvbbs.ActiveOnline() Dvbbs.Head_var 1,Application(Dvbbs.CacheName&"_boardlist").documentElement.selectSingleNode("board[@boardid='"&Dvbbs.BoardID&"']/@depth").text,"","" GetForumTextAd(1) BoardList() Page=Request("Page") If ( Not isNumeric(Page) )or Page="" Then Page=1 Page=Clng(Page) If Page <1 Then Page=1 If Dvbbs.Board_Setting(43)="0" Then topicList() End If End If Dvbbs.Footer End Sub Sub Chk_List_Err() If Dvbbs.Board_Setting(1)="1" and Dvbbs.GroupSetting(37)="0" Then Dvbbs.AddErrCode(26) ElseIf Request("action")="batch" and Dvbbs.GroupSetting(45)<>"1"Then Dvbbs.AddErrCode(28) End If Dvbbs.showerr() End Sub Sub topicList() Dim Node,modelist,modelistimg,i,cpost,ctopic cpost=0 ctopic=0 If Application(Dvbbs.CacheName&"_boardlist").documentElement.selectSingleNode("board[@boardid='"&Dvbbs.BoardID&"']/@child").text<>"0" Then For Each Node In Application(Dvbbs.CacheName&"_boardlist").documentElement.selectNodes("board[@parentid='"&Dvbbs.BoardID&"']/@boardid") ctopic=ctopic+CLng(Application(Dvbbs.CacheName &"_information_" & node.text).documentElement.selectSingleNode("<a href='mailto:information/@topicnum").text' target="_blank" >information/@topicnum").text</A>) cpost=cpost+CLng(Application(Dvbbs.CacheName &"_information_" & node.text).documentElement.selectSingleNode("<a href='mailto:information/@postnum").text' target="_blank" >information/@postnum").text</A>) Next End If Set XMLDom=Application(Dvbbs.CacheName &"_boarddata_" & Dvbbs.boardid).cloneNode(True) XMLDom.documentElement.firstChild.attributes.removeNamedItem("boarduser") XMLDom.documentElement.firstChild.attributes.removeNamedItem("board_ads") XMLDom.documentElement.firstChild.attributes.removeNamedItem("board_user") XMLDom.documentElement.firstChild.attributes.removeNamedItem("isgroupsetting") XMLDom.documentElement.firstChild.attributes.removeNamedItem("rootid") XMLDom.documentElement.firstChild.attributes.removeNamedItem("board_setting") XMLDom.documentElement.firstChild.attributes.removeNamedItem("sid") XMLDom.documentElement.firstChild.attributes.removeNamedItem("cid") XMLDom.documentElement.firstChild.attributes.setNamedItem(XMLDom.createNode(2,"boardtype","")).text=Dvbbs.boardtype XMLDom.documentElement.firstChild.attributes.setNamedItem(XMLDom.createNode(2,"forum_online","")).text=MyBoardOnline.Forum_Online XMLDom.documentElement.firstChild.attributes.setNamedItem(XMLDom.createNode(2,"board_useronline","")).text=MyBoardOnline.Board_UserOnline XMLDom.documentElement.firstChild.attributes.setNamedItem(XMLDom.createNode(2,"board_guestonline","")).text=MyBoardOnline.Board_GuestOnline XMLDom.documentElement.firstChild.attributes.setNamedItem(XMLDom.createNode(2,"postnum","")).text=CLng(Application(Dvbbs.CacheName &"_information_" & Dvbbs.boardid).documentElement.selectSingleNode("<a href='mailto:information/@postnum").text)-cpost' target="_blank" >information/@postnum").text)-cpost</A> XMLDom.documentElement.firstChild.attributes.setNamedItem(XMLDom.createNode(2,"topicnum","")).text=CLng(Application(Dvbbs.CacheName &"_information_" & Dvbbs.boardid).documentElement.selectSingleNode("<a href='mailto:information/@topicnum").text)-ctopic' target="_blank" >information/@topicnum").text)-ctopic</A> XMLDom.documentElement.firstChild.attributes.setNamedItem(XMLDom.createNode(2,"todaynum","")).text=CLng(Application(Dvbbs.CacheName &"_information_" & Dvbbs.boardid).documentElement.selectSingleNode("<a href='mailto:information/@todaynum").text' target="_blank" >information/@todaynum").text</A>) modelist=Split(Dvbbs.Board_Setting(48),"$$") modelistimg=Split(Dvbbs.Board_Setting(49),"$$") For i= 0 to UBound(modelist) -1 Set Node = XMLDom.documentElement.firstChild.appendChild(XMLDom.createNode(1,"mode","")) Node.text=modelist(i) If i < UBound(modelistimg) Then Node.attributes.setNamedItem(XMLDom.createNode(2,"pic","")).text=modelistimg(i) Next XMLDOM.documentElement.attributes.setNamedItem(XMLDOM.createNode(2,"picurl","")).text=Dvbbs.Forum_PicUrl If Dvbbs.Forum_Setting(14)="1" Or Dvbbs.Forum_Setting(15)="1" Then XMLDom.documentElement.firstChild.attributes.setNamedItem(XMLDom.createNode(2,"showonline","")).text="1" Else XMLDom.documentElement.firstChild.attributes.setNamedItem(XMLDom.createNode(2,"showonline","")).text="0" End If XMLDom.documentElement.appendChild(Application(Dvbbs.CacheName &"_boardmaster").documentElement.selectSingleNode("boardmaster[@boardid='"& Dvbbs.boardid&"']").cloneNode(True)) Rem ===============传送论坛信息和设置数据到XML=============================================================== Set Node=XMLDom.documentElement.appendChild(XMLDom.createNode(1,"forum_setting","")) Node.attributes.setNamedItem(XMLDom.createNode(2,"logincheckcode","")).text=Dvbbs.forum_setting(79)'登录验证码设置 If Dvbbs.Forum_ChanSetting(0)=1 And Dvbbs.Forum_ChanSetting(10)=1 Then Node.attributes.setNamedItem(XMLDom.createNode(2,"loginmobile","")).text=""'手机会员登录 Node.attributes.setNamedItem(XMLDom.createNode(2,"rss","")).text=Dvbbs.Forum_ChanSetting(2)'rss订阅 Node.attributes.setNamedItem(XMLDom.createNode(2,"wap","")).text=Dvbbs.Forum_ChanSetting(1)'wap访问 Node.attributes.setNamedItem(XMLDom.createNode(2,"ishot","")).text=Dvbbs.Forum_Setting(44)'热贴最少回复 Node.attributes.setNamedItem(XMLDom.createNode(2,"pagesize","")).text=Dvbbs.Board_Setting(26)'列表分页大小 Node.attributes.setNamedItem(XMLDom.createNode(2,"postalipay","")).text=Dvbbs.Board_Setting(67) Node.attributes.setNamedItem(XMLDom.createNode(2,"dispsize","")).text=Dvbbs.Board_Setting(27) '贴子分页大小 Node.attributes.setNamedItem(XMLDom.createNode(2,"tools","")).text=Dvbbs.Forum_Setting(90)'道具中心开关 Node.attributes.setNamedItem(XMLDom.createNode(2,"newfalgpic","")).text=Dvbbs.Board_Setting(60) '显示新贴标志的设置 Node.attributes.setNamedItem(XMLDom.createNode(2,"ForumUrl","")).text=Dvbbs.Get_ScriptNameUrl() If Dvbbs.Board_Setting(3)="1" Or Dvbbs.Board_Setting(57)="1" Then Node.attributes.setNamedItem(XMLDom.createNode(2,"auditcount","")).text=auditcount End If Rem 参数传递 XMLDom.documentElement.attributes.setNamedItem(XMLDom.createNode(2,"action","")).text=Request("action") XMLDom.documentElement.attributes.setNamedItem(XMLDom.createNode(2,"page","")).text=Page XMLDom.documentElement.attributes.setNamedItem(XMLDom.createNode(2,"topicmode","")).text=topicmode If Dvbbs.Boardmaster Then XMLDom.documentElement.attributes.setNamedItem(XMLDom.createNode(2,"ismaster","")).text="1" Else XMLDom.documentElement.attributes.setNamedItem(XMLDom.createNode(2,"ismaster","")).text="0" End If If Dvbbs.Board_Setting(68)="1" Then XMLDom.documentElement.attributes.setNamedItem(XMLDom.createNode(2,"cananony","")).text="1" Else XMLDom.documentElement.attributes.setNamedItem(XMLDom.createNode(2,"cananony","")).text="0" End If XMLDom.documentElement.attributes.setNamedItem(XMLDom.createNode(2,"canlookuser","")).text=Dvbbs.GroupSetting(1) If Not IsObject(Application(Dvbbs.CacheName & "_smallpaper")) Then LoadBoardNews_Paper() For Each Node in Application(Dvbbs.CacheName & "_smallpaper").documentElement.SelectNodes("smallpaper[@s_boardid='"&Dvbbs.Boardid&"']") XMLDom.documentElement.appendChild(Node.cloneNode(True)) Next LoadTopiclist() Response.Write vbNewLine & "<script language=""javascript"" type=""text/javascript"">" & vbNewLine Response.Write LoadToolsInfo & vbNewLine Response.Write "</script>" & vbNewLine If Cint(TopicMode) <> "0" Then XMLDom.documentElement.attributes.setNamedItem(XMLDom.createNode(2,"modecount","")).text=Dvbbs.Execute("Select Count(*) From Dv_Topic Where Mode="&TopicMode&" and BoardID="&Dvbbs.BoardID&" And IsTop=0")(0) End If transform_topicList() End Sub Function auditcount() Dim Rs Set Rs=Dvbbs.Execute("select count(*) from "& Dvbbs.Nowusebbs &" where boardid=777 and locktopic="&Dvbbs.BoardID) If IsNull(Rs(0)) Then auditcount=0 Else auditcount=Rs(0) End If Set Rs=Nothing End Function Sub LoadTopiclist() If (Not Response.IsClientConnected) and Dvbbs.userid=0 Then Session(Dvbbs.CacheName & "UserID")=empty Response.Clear Response.End End If Dim Node,nodes,topidlist,Rs,Sql,lastpost,i,PostTime,limitime If Page=1 Then topidlist=Dvbbs.CacheData(28,0) If topidlist="" Then topidlist=Application(Dvbbs.CacheName &"_information_" & Dvbbs.boardid).documentElement.selectSingleNode("<a href='mailto:information/@boardtopstr").text' target="_blank" >information/@boardtopstr").text</A> ElseIf Trim(Application(Dvbbs.CacheName &"_information_" & Dvbbs.boardid).documentElement.selectSingleNode("<a href='mailto:information/@boardtopstr").text' target="_blank" >information/@boardtopstr").text</A>)<>"" Then topidlist=topidlist &","& Application(Dvbbs.CacheName &"_information_" & Dvbbs.boardid).documentElement.selectSingleNode("<a href='mailto:information/@boardtopstr").text' target="_blank" >information/@boardtopstr").text</A> End If If Trim(topidlist) <>"" Then Set Rs=Dvbbs.Execute("Select topicid,boardid,title,postusername,postuserid,dateandtime,child,hits,votetotal,lastpost,lastposttime,istop,isvote,isbest,locktopic,expression,topicmode,mode,getmoney,getmoneytype,usetools,issmstopic,hidename from dv_topic Where istop > 0 and topicid in ("& Dvbbs.Checkstr(topidlist) &") Order By istop desc, Lastposttime Desc") If Not Rs.EOF Then SQL=Rs.GetRows(-1) Set topidlist=Dvbbs.ArrayToxml(sql,rs,"row","toptopic") SQL=Empty For Each Node in topidlist.documentElement.SelectNodes("row") Node.selectSingleNode("@title").text=Dvbbs.ChkBadWords(Node.selectSingleNode("@title").text) If Not Node.selectSingleNode("@topicmode").text ="1" Then Node.selectSingleNode("@title").text=replace(Node.selectSingleNode("@title").text,"<","&lt;") End If Node.selectSingleNode("@lastpost").text=Dvbbs.ChkBadWords(Node.selectSingleNode("@lastpost").text) Node.selectSingleNode("@postusername").text=Dvbbs.ChkBadWords(Node.selectSingleNode("@postusername").text) i=0 For each lastpost in split(Node.selectSingleNode("@lastpost").text,"$") Node.attributes.setNamedItem(topidlist.createNode(2,"lastpost_"& i,"")).text=lastpost i=i+1 Next If Dvbbs.Board_Setting(60)<>"" And Dvbbs.Board_Setting(60)<>"0" Then If Dvbbs.Board_Setting(38) = "0" Then PostTime = Node.selectSingleNode("@lastpost_2").text Else PostTime = Node.selectSingleNode("@dateandtime").text End If If DateDiff("n",Posttime,Now)+Cint(Dvbbs.Forum_Setting(0)) < CLng(Dvbbs.Board_Setting(61)) Then Node.attributes.setNamedItem(topidlist.createNode(2,"datedifftime","")).text=DateDiff("n",Posttime,Now)+Cint(Dvbbs.Forum_Setting(0)) End If End If Next XMLDom.documentElement.appendChild(topidlist.documentElement) End If Set Rs=Nothing End If End If If IsSqlDataBase=1 And IsBuss=1 Then Set Cmd = Server.CreateObject("ADODB.Command") Set Cmd.ActiveConnection=conn Cmd.CommandText="dv_list" Cmd.CommandType=4 Cmd.Parameters.Append cmd.CreateParameter("@boardid",3) Cmd.Parameters.Append cmd.CreateParameter("@pagenow",3) Cmd.Parameters.Append cmd.CreateParameter("@pagesize",3) Cmd.Parameters.Append cmd.CreateParameter("@tl",3) Cmd.Parameters.Append cmd.CreateParameter("@topicmode",3) Cmd.Parameters.Append cmd.CreateParameter("@totalrec",3,2) Cmd("@boardid")=Dvbbs.BoardID Cmd("@pagenow")=page Cmd("@pagesize")=Cint(Dvbbs.Board_Setting(26)) Cmd("@topicmode")=TopicMode Cmd("@tl")=0 Set Rs=Cmd.Execute If Not Rs.EoF Then SQL=Rs.GetRows(-1) Set topidlist=Dvbbs.ArrayToxml(sql,rs,"row","topic") Else Set topidlist=Nothing End If Else Set Rs = Server.CreateObject ("adodb.recordset") If Cint(TopicMode)=0 Then Sql="Select TopicID,boardid,title,postusername,postuserid,dateandtime,child,hits,votetotal,lastpost,lastposttime,istop,isvote,isbest,locktopic,Expression,TopicMode,Mode,GetMoney,GetMoneyType,UseTools,IsSmsTopic,hidename From Dv_Topic Where BoardID="&Dvbbs.BoardID&" And IsTop=0 Order By LastPostTime Desc" Else Sql="Select TopicID,boardid,title,postusername,postuserid,dateandtime,child,hits,votetotal,lastpost,lastposttime,istop,isvote,isbest,locktopic,Expression,TopicMode,Mode,GetMoney,GetMoneyType,UseTools,IsSmsTopic,hidename From Dv_Topic Where Mode="&TopicMode&" and BoardID="&Dvbbs.BoardID&" And IsTop=0 Order By LastPostTime Desc" End If Rs.Open Sql,Conn,1,1 If Page >1 Then Rs.Move (page-1) * Clng(Dvbbs.Board_Setting(26)) End If If Not Rs.EoF Then SQL=Rs.GetRows(Dvbbs.Board_Setting(26)) Set topidlist=Dvbbs.ArrayToxml(sql,rs,"row","topic") Else Set topidlist=Nothing End If End If SQL=Empty If Not topidlist Is Nothing Then For Each Node in topidlist.documentElement.SelectNodes("row") Node.selectSingleNode("@title").text=Dvbbs.ChkBadWords(Node.selectSingleNode("@title").text) If Not Node.selectSingleNode("@topicmode").text ="1" Then Node.selectSingleNode("@title").text=replace(Node.selectSingleNode("@title").text,"<","&lt;") End If Node.selectSingleNode("@postusername").text=Dvbbs.ChkBadWords(Node.selectSingleNode("@postusername").text) i=0 For each lastpost in split(Node.selectSingleNode("@lastpost").text,"$") Node.attributes.setNamedItem(topidlist.createNode(2,"lastpost_"& i,"")).text=lastpost i=i+1 Next If Dvbbs.Board_Setting(60)<>"" And Dvbbs.Board_Setting(60)<>"0" Then If Dvbbs.Board_Setting(38) = "0" Then PostTime = Node.selectSingleNode("@lastpost_2").text Else PostTime = Node.selectSingleNode("@dateandtime").text End If If DateDiff("n",Posttime,Now)+Cint(Dvbbs.Forum_Setting(0)) < CLng(Dvbbs.Board_Setting(61)) Then Node.attributes.setNamedItem(topidlist.createNode(2,"datedifftime","")).text=DateDiff("n",Posttime,Now)+Cint(Dvbbs.Forum_Setting(0)) End If End If Next XMLDom.documentElement.appendChild(topidlist.documentElement) End If Set Rs=Nothing Dvbbs.SqlQueryNum = Dvbbs.SqlQueryNum + 1 End Sub

cx100net 发表于 2007-2-13 15:06

接上段 index.asp的下半段源码： Sub transform_topicList() If (Not Response.IsClientConnected) and Dvbbs.userid=0 Then Response.Clear Session(Dvbbs.CacheName & "UserID")=empty Response.End End If Dim proc,XMLStyle,node,cnode If Not IsObject(Application(Dvbbs.CacheName & "_listtemplate_"& Dvbbs.SkinID)) Then Set Application(Dvbbs.CacheName & "_listtemplate_"& Dvbbs.SkinID)=Server.CreateObject("Msxml2.XSLTemplate" & MsxmlVersion ) Set XMLStyle=Server.CreateObject("Msxml2.FreeThreadedDOMDocument"& MsxmlVersion ) XMLStyle.loadxml template.html(1) ' 'XMLStyle.load Server.MapPath("index_list.xslt") '插入各种图片的设置数据 Set Node=XMLStyle.createNode(1,"xsl:variable","<a href="http://www.w3.org/1999/XSL/Transform" target="_blank" >http://www.w3.org/1999/XSL/Transform</A>") Set CNode=XMLStyle.createNode(2,"name","") CNode.text="picurl" Node.attributes.setNamedItem(CNode) node.text=Dvbbs.Forum_PicUrl XMLStyle.documentElement.appendChild(node) Set Node=XMLStyle.createNode(1,"xsl:variable","<a href="http://www.w3.org/1999/XSL/Transform" target="_blank" >http://www.w3.org/1999/XSL/Transform</A>") Set CNode=XMLStyle.createNode(2,"name","") CNode.text="pic_nofollow" Node.attributes.setNamedItem(CNode) node.text=Dvbbs.mainpic(10) XMLStyle.documentElement.appendChild(node) Set Node=XMLStyle.createNode(1,"xsl:variable","<a href="http://www.w3.org/1999/XSL/Transform" target="_blank" >http://www.w3.org/1999/XSL/Transform</A>") Set CNode=XMLStyle.createNode(2,"name","") CNode.text="pic_follow" Node.attributes.setNamedItem(CNode) node.text=Dvbbs.mainpic(11) XMLStyle.documentElement.appendChild(node) Set Node=XMLStyle.createNode(1,"xsl:variable","<a href="http://www.w3.org/1999/XSL/Transform" target="_blank" >http://www.w3.org/1999/XSL/Transform</A>") Set CNode=XMLStyle.createNode(2,"name","") CNode.text="ztopic" Node.attributes.setNamedItem(CNode) node.text=Dvbbs.mainpic(0) XMLStyle.documentElement.appendChild(node) Set Node=XMLStyle.createNode(1,"xsl:variable","<a href="http://www.w3.org/1999/XSL/Transform" target="_blank" >http://www.w3.org/1999/XSL/Transform</A>") Set CNode=XMLStyle.createNode(2,"name","") CNode.text="istopic" Node.attributes.setNamedItem(CNode) node.text=Dvbbs.mainpic(1) XMLStyle.documentElement.appendChild(node) Set Node=XMLStyle.createNode(1,"xsl:variable","<a href="http://www.w3.org/1999/XSL/Transform" target="_blank" >http://www.w3.org/1999/XSL/Transform</A>") Set CNode=XMLStyle.createNode(2,"name","") CNode.text="opentopic" Node.attributes.setNamedItem(CNode) node.text=Dvbbs.mainpic(2) XMLStyle.documentElement.appendChild(node) Set Node=XMLStyle.createNode(1,"xsl:variable","<a href="http://www.w3.org/1999/XSL/Transform" target="_blank" >http://www.w3.org/1999/XSL/Transform</A>") Set CNode=XMLStyle.createNode(2,"name","") CNode.text="hottopic" Node.attributes.setNamedItem(CNode) node.text=Dvbbs.mainpic(3) XMLStyle.documentElement.appendChild(node) Set Node=XMLStyle.createNode(1,"xsl:variable","<a href="http://www.w3.org/1999/XSL/Transform" target="_blank" >http://www.w3.org/1999/XSL/Transform</A>") Set CNode=XMLStyle.createNode(2,"name","") CNode.text="ilocktopic" Node.attributes.setNamedItem(CNode) node.text=Dvbbs.mainpic(4) XMLStyle.documentElement.appendChild(node) Set Node=XMLStyle.createNode(1,"xsl:variable","<a href="http://www.w3.org/1999/XSL/Transform" target="_blank" >http://www.w3.org/1999/XSL/Transform</A>") Set CNode=XMLStyle.createNode(2,"name","") CNode.text="besttopic" Node.attributes.setNamedItem(CNode) node.text=Dvbbs.mainpic(5) XMLStyle.documentElement.appendChild(node) Set Node=XMLStyle.createNode(1,"xsl:variable","<a href="http://www.w3.org/1999/XSL/Transform" target="_blank" >http://www.w3.org/1999/XSL/Transform</A>") Set CNode=XMLStyle.createNode(2,"name","") CNode.text="votetopic" Node.attributes.setNamedItem(CNode) node.text=Dvbbs.mainpic(6) XMLStyle.documentElement.appendChild(node) Set Node=XMLStyle.createNode(1,"xsl:variable","<a href="http://www.w3.org/1999/XSL/Transform" target="_blank" >http://www.w3.org/1999/XSL/Transform</A>") Set CNode=XMLStyle.createNode(2,"name","") CNode.text="pic_toptopic1" Node.attributes.setNamedItem(CNode) node.text=Dvbbs.mainpic(19) XMLStyle.documentElement.appendChild(node) Application(Dvbbs.CacheName & "_listtemplate_"& Dvbbs.SkinID).stylesheet=XMLStyle End If Set proc = Application(Dvbbs.CacheName & "_listtemplate_"& Dvbbs.SkinID).createProcessor() proc.input = XMLDom proc.transform() Response.Write proc.output Set XMLDom=Nothing Set proc=Nothing End Sub Sub LoadBoardlistData() Dim Node,Xpath,LastPost,BoardiD,Xpath1 Set XMLDom=Application(Dvbbs.CacheName&"_boardlist").cloneNode(True) XMLDom.documentElement.attributes.setNamedItem(XMLDom.createNode(2,"boardid","")).text=Dvbbs.BoardID If Dvbbs.Boardid=0 Then Xpath="board[@depth=1]" Xpath1="board[@depth=0]" XMLDom.documentElement.appendChild(Application(Dvbbs.CacheName &"_grouppic").documentElement.cloneNode(True)) If Not IsObject(Application(Dvbbs.CacheName & "_link")) Then LoadlinkList() XMLDom.documentElement.appendChild(Application(Dvbbs.CacheName & "_link").documentElement.cloneNode(True)) Rem ===============传送论坛信息和设置数据到XML=============================================================== Set Node=XMLDom.documentElement.appendChild(XMLDom.createNode(1,"forum_info","")) Node.attributes.setNamedItem(XMLDom.createNode(2,"forum_type","")).text=Dvbbs.forum_info(0) Node.attributes.setNamedItem(XMLDom.createNode(2,"forum_maxonline","")).text=Dvbbs.CacheData(5,0) Node.attributes.setNamedItem(XMLDom.createNode(2,"forum_maxonlinedate","")).text=Dvbbs.CacheData(6,0) Node.attributes.setNamedItem(XMLDom.createNode(2,"forum_topicnum","")).text=Dvbbs.CacheData(7,0) Node.attributes.setNamedItem(XMLDom.createNode(2,"forum_postnum","")).text=Dvbbs.CacheData(8,0) Node.attributes.setNamedItem(XMLDom.createNode(2,"forum_todaynum","")).text=Dvbbs.CacheData(9,0) Node.attributes.setNamedItem(XMLDom.createNode(2,"forum_usernum","")).text=Dvbbs.CacheData(10,0) Node.attributes.setNamedItem(XMLDom.createNode(2,"forum_yesterdaynum","")).text=Dvbbs.CacheData(11,0) Node.attributes.setNamedItem(XMLDom.createNode(2,"forum_maxpostnum","")).text=Dvbbs.CacheData(12,0) Node.attributes.setNamedItem(XMLDom.createNode(2,"forum_maxpostdate","")).text=Dvbbs.CacheData(13,0) Node.attributes.setNamedItem(XMLDom.createNode(2,"forum_lastuser","")).text=Dvbbs.CacheData(14,0) Node.attributes.setNamedItem(XMLDom.createNode(2,"forum_online","")).text=MyBoardOnline.Forum_Online Node.attributes.setNamedItem(XMLDom.createNode(2,"forum_useronline","")).text=MyBoardOnline.Forum_UserOnline Node.attributes.setNamedItem(XMLDom.createNode(2,"forum_guestonline","")).text=MyBoardOnline.Forum_GuestOnline Node.attributes.setNamedItem(XMLDom.createNode(2,"forum_createtime","")).text=FormatDateTime(Dvbbs.Forum_Setting(74),1) Set Node=XMLDom.documentElement.appendChild(XMLDom.createNode(1,"forum_setting","")) Node.attributes.setNamedItem(XMLDom.createNode(2,"logincheckcode","")).text=Dvbbs.forum_setting(79)'登录验证码设置 If Dvbbs.Forum_ChanSetting(0)=1 And Dvbbs.Forum_ChanSetting(10)=1 Then Node.attributes.setNamedItem(XMLDom.createNode(2,"loginmobile","")).text=""'手机会员登录 Node.attributes.setNamedItem(XMLDom.createNode(2,"rss","")).text=Dvbbs.Forum_ChanSetting(2)'rss订阅 Node.attributes.setNamedItem(XMLDom.createNode(2,"wap","")).text=Dvbbs.Forum_ChanSetting(1)'wap访问 Node.attributes.setNamedItem(XMLDom.createNode(2,"pic_0","")).text=template.pic(0) Node.attributes.setNamedItem(XMLDom.createNode(2,"pic_1","")).text=template.pic(1) Node.attributes.setNamedItem(XMLDom.createNode(2,"pic_2","")).text=template.pic(2) Node.attributes.setNamedItem(XMLDom.createNode(2,"pic_3","")).text=template.pic(3) Node.attributes.setNamedItem(XMLDom.createNode(2,"issearch_a","")).text=0 Node.attributes.setNamedItem(XMLDom.createNode(2,"ForumUrl","")).text=Dvbbs.Get_ScriptNameUrl() If Dvbbs.Forum_setting(29)="1" Then If Not IsObject(Application(Dvbbs.CacheName & "_biruser")) Then Forum_BirUser() ElseIf Application(Dvbbs.CacheName & "_biruser").documentElement.selectSingleNode("@date").text <> CStr(Date()) Then Forum_BirUser() End If XMLDom.documentElement.appendChild(Application(Dvbbs.CacheName &"_biruser").documentElement.cloneNode(True)) End If Rem ======================================================================================================================================== Else Xpath="board[@parentid="&Dvbbs.BoardID&" and @depth="& CLng(XMLDom.documentElement.selectSingleNode("board[@boardid="& Dvbbs.boardid &"]/@depth").text)+1&"]" Xpath1="board[@boardid="& Dvbbs.Boardid&"]" End If If Dvbbs.BoardID<>0 Then Set Node=XMLDom.documentElement.appendChild(XMLDom.createNode(1,"forum_setting","")) Node.attributes.setNamedItem(XMLDom.createNode(2,"pic_0","")).text=template.pic(0) Node.attributes.setNamedItem(XMLDom.createNode(2,"pic_1","")).text=template.pic(1) Node.attributes.setNamedItem(XMLDom.createNode(2,"pic_2","")).text=template.pic(2) Node.attributes.setNamedItem(XMLDom.createNode(2,"pic_3","")).text=template.pic(3) Node.attributes.setNamedItem(XMLDom.createNode(2,"issearch_a","")).text=1 End If For Each Node In XMLDom.documentElement.selectNodes(Xpath) BoardId=Node.selectSingleNode("@boardid").text If Not IsObject(Application(Dvbbs.CacheName &"_information_" & BoardID) ) Then Dvbbs.LoadBoardinformation BoardID LastPost=Node.appendChild(Application(Dvbbs.CacheName &"_information_" & BoardID).documentElement.firstChild.cloneNode(True)).selectSingleNode("@lastpost_2").text If Not IsDate(LastPost) Then LastPost=Now() If DateDiff("h",Dvbbs.Lastlogin,LastPost)=0 Then Node.attributes.setNamedItem(XMLDom.createNode(2,"newpost","")).text="1" XMLDom.documentElement.appendChild(Application(Dvbbs.CacheName &"_boardmaster").documentElement.selectSingleNode("boardmaster[@boardid='"& boardid &"']").cloneNode(True)) Next XMLDOM.documentElement.attributes.setNamedItem(XMLDOM.createNode(2,"picurl","")).text=Dvbbs.Forum_PicUrl XMLDOM.documentElement.attributes.setNamedItem(XMLDOM.createNode(2,"lastupdate","")).text=Now() If CachePage Then Set Application(Dvbbs.CacheName & "_Pagecache_index_" & Dvbbs.BoardID)=XMLDOM.cloneNode(True) End If End Sub Sub BoardList() If Dvbbs.BoardID=0 Then ShowNews() ElseIf Application(Dvbbs.CacheName&"_boardlist").documentElement.selectSingleNode("board[@boardid="&dvbbs.boardid&"]/@nopost").text<>"1" Then ShowNews() End If Dim Node,ShowMod,Xpath1,BoardId If CachePage Then If Not IsObject(Application(Dvbbs.CacheName & "_Pagecache_index_" & Dvbbs.BoardID)) Then LoadBoardlistData() Else If DateDiff("s",Application(Dvbbs.CacheName & "_Pagecache_index_" & Dvbbs.BoardID).documentElement.selectSingleNode("@lastupdate").text,Now()) > CacheTime Then LoadBoardlistData() Else Set XmlDom=Application(Dvbbs.CacheName & "_Pagecache_index_" & Dvbbs.BoardID).cloneNode(True) End If End If Else LoadBoardlistData() End If If Dvbbs.GroupSetting(37)="0" Then For each node in XMLDOM.documentElement.selectNodes("board[@hidden=1]") XMLDom.documentElement.removeChild(node) Next End If If Dvbbs.BoardID=0 Then Xpath1="board[@depth=0]" Else Xpath1="board[@boardid="& Dvbbs.Boardid&"]" End If Set Node=XMLDom.documentElement.selectSingleNode("forum_setting") If Dvbbs.IsSearch Then Node.attributes.setNamedItem(XMLDom.createNode(2,"issearch","")).text=1 Else Node.attributes.setNamedItem(XMLDom.createNode(2,"issearch","")).text=0 End If For Each Node In XMLDom.documentElement.selectNodes(Xpath1) BoardId=Node.selectSingleNode("@boardid").text ShowMod=Request.Cookies("List")("list"&BoardId) If ShowMod<>"" And IsNumeric(ShowMod) Then Node.selectSingleNode("@mode").text=ShowMod End If Next If Dvbbs.BoardID=0 Then XMLDom.documentElement.appendChild(Dvbbs.UserSession.documentElement.firstChild.cloneNode(True)) XMLDom.documentElement.appendChild(Dvbbs.UserSession.documentElement.lastChild.cloneNode(True)) If Dvbbs.UserID <>0 Then '身份切换数据节点 If UBound(Dvbbs.UserGroupParentID) <> -1 Then For Each Node In Dvbbs.UserGroupParentID XMLDom.documentElement.appendChild(XMLDom.createNode(1,"myusergroup","")).text=Node Next ElseIf Dvbbs.IsUserPermissionOnly = 1 Then XMLDom.documentElement.appendChild(XMLDom.createNode(1,"myusergroup","")).text=Dvbbs.UserSession.documentElement.selectSingleNode("<a href='mailto:userinfo/@usergroupid2").text' target="_blank" >userinfo/@usergroupid2").text</A> End If End If End If If Dvbbs.Forum_ads(2)="1" or Dvbbs.Forum_ads(13)="1" Then Response.Write "<script language=""javascript"" src=""inc/Dv_Adv.js"" type=""text/javascript""></script>" transform_BoardList() If Dvbbs.Boardid=0 Then If Dvbbs.Forum_Setting(14)="1" Or Dvbbs.Forum_Setting(15)="1" Then Response.Write "<iframe style=""border:0px;width:0px;height:0px;"" src=""Online.asp?action=1&amp;Boardid=0"" name=""hiddenframe""></iframe>" Else Response.Write "<iframe style=""border:0px;width:0px;height:0px;"" src="""" name=""hiddenframe""></iframe>" End If End If If Dvbbs.Forum_ads(2)="1" or Dvbbs.Forum_ads(13)="1" Then Response.Write "<script language=""javascript"" type=""text/javascript"">" & vbNewLine If Dvbbs.Forum_ads(2)="1" Then Response.Write Chr(9) & "move_ad('"&Dvbbs.Forum_ads(3)&"','"&Dvbbs.Forum_ads(4)&"','"&Dvbbs.Forum_ads(5)&"','"&Dvbbs.Forum_ads(6)&"');" & vbNewLine If Dvbbs.Forum_ads(13)="1" Then Response.Write Chr(9) & "fix_up_ad('"& Dvbbs.Forum_ads(8) & "','" & Dvbbs.Forum_ads(10) & "','" & Dvbbs.Forum_ads(11) & "','" & Dvbbs.Forum_ads(9) & "');"& vbNewLine Response.Write vbNewLine&"</script>" End If End Sub Sub transform_BoardList() Dim proc,XMLStyle If (Not Response.IsClientConnected) and Dvbbs.userid=0 Then Response.Clear Session(Dvbbs.CacheName & "UserID")=empty Response.End Else If Not IsObject(Application(Dvbbs.CacheName & "_indextemplate_"& Dvbbs.SkinID)) Then Set Application(Dvbbs.CacheName & "_indextemplate_"& Dvbbs.SkinID)=Server.CreateObject("Msxml2.XSLTemplate" & MsxmlVersion) Set XMLStyle=Server.CreateObject("Msxml2.FreeThreadedDOMDocument"& MsxmlVersion) XMLStyle.loadxml template.html(0) ' Server.MapPath("index.xslt") Application(Dvbbs.CacheName & "_indextemplate_"& Dvbbs.SkinID).stylesheet=XMLStyle End If Set proc = Application(Dvbbs.CacheName & "_indextemplate_"& Dvbbs.SkinID).createProcessor() proc.input = XMLDom proc.transform() Response.Write proc.output Set XMLDom=Nothing Set proc=Nothing End If End Sub Sub ShowNews() Dim Rs,proc,NewsDom,XMLStyle If Not IsObject(Application(Dvbbs.CacheName & "_News")) Then Set Rs=Dvbbs.Execute("Select boardid,title,addtime,bgs From Dv_bbsnews order by id desc") Set Application(Dvbbs.CacheName & "_News")=Dvbbs.RecordsetToxml(rs,"news","") End If Set NewsDom=Application(Dvbbs.CacheName & "_News").cloneNode(True) NewsDom.documentElement.attributes.setNamedItem(NewsDom.createNode(2,"boardid","")).text=Dvbbs.BoardID If not IsObject(Application(Dvbbs.CacheName & "_shownews_"&Dvbbs.SkinID)) Then Set Application(Dvbbs.CacheName & "_shownews_"&Dvbbs.SkinID)=Server.CreateObject("Msxml2.XSLTemplate" & MsxmlVersion) Set XMLStyle=Server.CreateObject("Msxml2.FreeThreadedDOMDocument"& MsxmlVersion) If UBound(template.html)>3 Then XMLStyle.loadxml template.html(3) Else XMLStyle.load Server.MapPath(MyDbPath &"inc\Templates\Dv_News.xslt") End If Application(Dvbbs.CacheName & "_shownews_"&Dvbbs.SkinID).stylesheet=XMLStyle End If Set proc = Application(Dvbbs.CacheName & "_shownews_"&Dvbbs.SkinID).createProcessor() proc.input = NewsDom proc.transform() Response.Write proc.output Set NewsDom=Nothing Set proc=Nothing End Sub Sub LoadlinkList() Dim rs Set Rs=Dvbbs.Execute("select * From Dv_bbslink Order by islogo desc,id ") Set Application(Dvbbs.CacheName & "_link")=Dvbbs.RecordsetToxml(rs,"link","bbslink") Set Rs=Nothing End Sub Sub Forum_BirUser() Dim Rs,SQL,NowMonth,NowDate,todaystr0,todaystr1,node NowMonth=Month(Date()) NowDate=Day(Date()) If NowMonth< 10 Then todaystr0="0"&NowMonth Else todaystr0=CStr(NowMonth) End If If NowDate < 10 Then todaystr0=todaystr0&"-"&"0"&NowDate Else todaystr0=todaystr0&"-"&NowDate End If todaystr1=NowMonth&"-"&NowDate If todaystr0=todaystr1 Then SQL="select username,Userbirthday from [Dv_user] where Userbirthday like '%"&todaystr1&"' Order by UserID" Else SQL="select username,Userbirthday from [Dv_user] where Userbirthday like '%"&todaystr1&"' Or Userbirthday like '%"&todaystr0&"' Order by UserID" End If Set Rs=Dvbbs.Execute(SQL) Set Application(Dvbbs.CacheName & "_biruser")=Dvbbs.RecordsetToxml(rs,"user","biruser") Set Rs=Nothing For Each node In Application(Dvbbs.CacheName & "_biruser").documentElement.selectNodes("user") todaystr0=Node.selectSingleNode("@userbirthday").text If IsDate(todaystr0) Then Node.attributes.setNamedItem(Application(Dvbbs.CacheName & "_biruser").createNode(2,"age","")).text=datediff("yyyy",todaystr0,Now()) Else Application(Dvbbs.CacheName & "_biruser").documentElement.removeChild(node) End If Next Application(Dvbbs.CacheName & "_biruser").documentElement.attributes.setNamedItem(Application(Dvbbs.CacheName & "_biruser").createNode(2,"date","")).text=Date() End Sub Function LoadToolsInfo() Dim Tools_Info,i,ShowTools,TempStr Dvbbs.Name="Plus_ToolsInfo" If Dvbbs.ObjIsEmpty() Then Dim Rs,Sql Sql = "Select ID,ToolsName From Dv_Plus_Tools_Info order by ID" Set Rs = Dvbbs.Plus_Execute(Sql) If Not Rs.Eof Then Sql = Rs.GetString(,, "§§§", "@#@", "") End If Rs.Close : Set Rs = Nothing Tools_Info = Split(Sql,"@#@") TempStr = "var ShowTools = new Array();" & vbNewLine For i=0 To Ubound(Tools_Info)-1 ShowTools = Split(Tools_Info(i),"§§§") TempStr = TempStr & "ShowTools["&ShowTools(0)&"]='"&Replace(Replace(Replace(ShowTools(1),"\","<a>\\"),"'","\'"),chr(13),"")&"'</A>;" Next Dvbbs.value = TempStr & vbNewLine End If LoadToolsInfo = Dvbbs.value End Function
Sub Passport_Main() Dim UserID,ForumID,token,t,ForumMsg,toUrl,Passport UserID = Request("uid") ForumID = Request("fid") token = Request("token") Passport = Request("passport") t = Request("t") If UserID = "" Or Not IsNumeric(UserID) Then UserID = 0 UserID = cCur(UserID) If ForumID = "" Or Not IsNumeric(ForumID) Then ForumID = 0 ForumID = cCur(ForumID) If t = "" Or Not IsNumeric(t) Then t = 1 t = cCur(t) If UserID = 0 Or ForumID = 0 Or token = "" Or Passport = "" Then Response.Write "非法的参数！" Response.End End If Dim iForumUrl Select Case t Case "1" ForumMsg = "<li>您成功的注册了论坛通行证帐号，请牢记您填写的通行证帐号和密码。" toUrl = "reg.asp?action=redir" Case "2" ForumMsg = "<li>login suc。" toUrl = "login.asp?action=redir" Case Else ForumMsg = "<li>您成功的注册了论坛通行证帐号，请牢记您填写的通行证帐号和密码。" toUrl = "index.asp" End Select iForumUrl = toUrl & "&ErrorCode=1&ErrorMsg="&ForumMsg&"&passport="&Passport&"&token="&token %> <html> <head>  <script type="text/javascript" language="JavaScript">  </script> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>欢迎访问<%=Dvbbs.Forum_Info(0)%></title> </head> <frameset border=0 rows=*,79 frameborder=0 framespacing=0> <frame longdesc="" src="<%=iForumUrl%>" name="MainWin" noresize frameborder="0" marginwidth=0 marginheight=0 scrolling="auto"> <frame longdesc="" src="<a href="http://www.dvbbs.net/passport/index.asp?uid=<%=UserID% target="_blank" >&fid=<%=ForumID%>&token=<%=token%>&t=<%=t%>&s=1">http://www.dvbbs.net/passport/index.asp?uid=<%=UserID%>&fid=<%=ForumID%>&token=<%=token%>&t=<%=t%>&s=1</A>" name="top" noresize frameborder="0" marginwidth=0 marginheight=0 scrolling="no"> </frameset>
<noframes> <a href="<a href="http://www.dvbbs.net" target="_blank" >http://www.dvbbs.net</A>" target="_top">动网论坛_国内最大的免费论坛软件服务提供</a> 版权所有 2005 此 html 框架集显示多个 web 页。若要查看此框架集，请使用支持 html 4.0 及更高版本的 web 浏览器。 </noframes> </html> <% End Sub %>

cx100net 发表于 2007-2-13 15:19

以下是index.asp的模版page_index中template.html(0)的源码 <?xml version="1.0" encoding="gb2312"?> <xsl:stylesheet version="1.0" xmlns:xsl="<a href="http://www.w3.org/1999/XSL/Transform" target="_blank" >http://www.w3.org/1999/XSL/Transform</A>" > <xsl:output method="xml" omit-xml-declaration = "yes" indent="yes" version="4.0"/> 
<xsl:template match="/"> <xsl:if test="<a href='mailto:BoardList/@boardid=0" target="_blank" ><xsl:call-template'>BoardList/@boardid=0"><xsl:call-template</A> name="welcome" /></xsl:if> <xsl:call-template name="main" /> <xsl:if test="<a href='mailto:BoardList/@boardid=0" target="_blank" ><xsl:call-template'>BoardList/@boardid=0"><xsl:call-template</A> name="link" /><xsl:call-template name="index_bottom" /></xsl:if> </xsl:template> <xsl:template name="main"> <iframe style="border:0px;width:0px;height:0px;" src="" name="hiddenframe1"></iframe> <xsl:variable name="boardid" select="<a href='mailto:BoardList/@boardid"/' target="_blank" >BoardList/@boardid"/</A>> <xsl:choose> <xsl:when test="$boardid=0"> <xsl:for-each select="BoardList/board[@parentid =$boardid]"> <div class="th" style="margin-top:10px;"> <a'>titlepic_{@boardid}"><a</A> target="hiddenframe1"> <xsl:choose> <xsl:when test="@mode!='0'"><xsl:attribute name="href">cookies.asp?action=setlistmod&amp;thisvalue=0&amp;id=<xsl:value-of select="@boardid"/></xsl:attribute> <img alt="切换到列表模式" src="<a href='mailto:{/BoardList/@picurl}plus.gif"/' target="_blank" >{/BoardList/@picurl}plus.gif"/</A>> </xsl:when> <xsl:otherwise> <xsl:attribute name="href">cookies.asp?action=setlistmod&amp;thisvalue=1&amp;id=<xsl:value-of select="@boardid"/> </xsl:attribute> <img alt="切换到简洁模式" src="<a href="mailto:{/BoardList/@picurl}nofollow.gif" target="_blank" >{/BoardList/@picurl}nofollow.gif</A>" border="0"/> </xsl:otherwise> </xsl:choose></a> <a href="<a href="mailto:index.asp?boardid={@boardid" target="_blank" >index.asp?boardid={@boardid</A>}" title="进入本分类论坛<a href='mailto:" target="_blank" ><xsl:value-of select="@boardtype'>"><xsl:value-of select="@boardtype</A>" disable-output-escaping="yes" /></a> </div> <xsl:choose> <xsl:when test="@mode!='0'"> <xsl:variable name="tdcount"> <xsl:choose> <xsl:when test="@simplenesscount=0">4</xsl:when> <xsl:otherwise><xsl:value-of select="@simplenesscount" /></xsl:otherwise> </xsl:choose> </xsl:variable> <xsl:variable name="tdwidth"><xsl:value-of select="floor((99.9 div $tdcount))"/>%</xsl:variable> <xsl:call-template name="showboard2"> <xsl:with-param name="parentid" select="@boardid"/> <xsl:with-param name="tdcount" select="$tdcount"/> <xsl:with-param name="tdwidth" select="$tdwidth"/> <xsl:with-param name="positions" select="0"/> </xsl:call-template> </xsl:when> <xsl:otherwise> <xsl:call-template name="showboard1"> <xsl:with-param name="parentid" select="@boardid"/> </xsl:call-template> </xsl:otherwise> </xsl:choose> </xsl:for-each> </xsl:when> <xsl:otherwise> <xsl:for-each select="BoardList/board[@boardid =$boardid and @child !=0]"> <div class="th"> <a'>titlepic_{@boardid}"><a</A> target="hiddenframe1"> <xsl:choose> <xsl:when test="@mode!='0'"><xsl:attribute name="href">cookies.asp?action=setlistmod&amp;thisvalue=0&amp;id=<xsl:value-of select="@boardid"/></xsl:attribute> <img alt="切换到列表模式" src="<a href='mailto:{/BoardList/@picurl}plus.gif"/' target="_blank" >{/BoardList/@picurl}plus.gif"/</A>> </xsl:when> <xsl:otherwise> <xsl:attribute name="href">cookies.asp?action=setlistmod&amp;thisvalue=1&amp;id=<xsl:value-of select="@boardid"/> </xsl:attribute> <img alt="切换到简洁模式" src="<a href="mailto:{/BoardList/@picurl}nofollow.gif" target="_blank" >{/BoardList/@picurl}nofollow.gif</A>" border="0"/> </xsl:otherwise> </xsl:choose></a> <xsl:value-of select="@boardtype" disable-output-escaping="yes" />-论坛列表 </div> <xsl:choose> <xsl:when test="@mode!='0'"> <xsl:variable name="tdcount"> <xsl:choose> <xsl:when test="@simplenesscount=0">4</xsl:when> <xsl:otherwise><xsl:value-of select="@simplenesscount" /></xsl:otherwise> </xsl:choose> </xsl:variable> <xsl:variable name="tdwidth"><xsl:value-of select="floor((99.9 div $tdcount))"/>%</xsl:variable> <xsl:call-template name="showboard2"> <xsl:with-param name="parentid" select="@boardid"/> <xsl:with-param name="tdcount" select="$tdcount"/> <xsl:with-param name="tdwidth" select="$tdwidth"/> <xsl:with-param name="positions" select="0"/> </xsl:call-template> </xsl:when> <xsl:otherwise> <xsl:call-template name="showboard1"> <xsl:with-param name="parentid" select="@boardid"/> </xsl:call-template> </xsl:otherwise> </xsl:choose> </xsl:for-each> </xsl:otherwise> </xsl:choose> </xsl:template> <xsl:template name="showboard2"> <xsl:param name="parentid"/> <xsl:param name="tdwidth"/> <xsl:param name="positions"/> <xsl:param name="tdcount"/> <div class="mainbar" style="height:60px;overflow :hidden;line-height:18px;"> <xsl:for-each select="/BoardList/board[@parentid = $parentid][position() &gt; $positions and position() &lt; ($tdcount+$positions+1)]"> <xsl:variable name="boardid" select="@boardid"/> <div title="<a href="mailto:{@readme" target="_blank" >{@readme</A>}"> <xsl:if test="last()!=position()"><xsl:attribute name="class">index_left_states</xsl:attribute></xsl:if> <xsl:attribute name="style">height:60px;width:<xsl:value-of select="$tdwidth"/>;text-align :left;text-indent:5px;<xsl:if test="last()=position()">float:left;</xsl:if></xsl:attribute> <div><a href="index.asp?boardid={$boardid}"> <xsl:if test="count(../board[@parentid=$boardid]) != 0"><xsl:attribute name="title">有<xsl:value-of select="count(../board[@parentid=$boardid])"/>个下属论坛</xsl:attribute></xsl:if><xsl:value-of select="@boardtype" disable-output-escaping="yes"/></a><xsl:if test="count(../board[@parentid=$boardid]) !=0"><a><xsl:attribute name="onmouseover">showmenu(event,BoardJumpList(<xsl:value-of select="@boardid"/>,1),0);</xsl:attribute>（<xsl:value-of select="count(../board[@parentid=$boardid])"/>）</a></xsl:if></div> <div>今日贴：<xsl:value-of select="concat(' ',information/@todaynum,' ')"/>主题贴：<xsl:value-of select="concat(' ',information/@topicnum,' ')"/></div> <div>发贴总数：<xsl:value-of select="concat(' ',information/@postnum)"/></div> </div> </xsl:for-each> </div> <div class="mainbar2" style="height:25px;overflow :hidden;"> <xsl:for-each select="/BoardList/board[@parentid = $parentid][position() &gt; $positions and position() &lt; ($tdcount+$positions+1)]"> <xsl:variable name="boardid" select="@boardid"/> <div> <xsl:if test="last()!=position()"><xsl:attribute name="class">list1</xsl:attribute></xsl:if> <xsl:attribute name="style">height:25px;width:<xsl:value-of select="$tdwidth"/>;text-align :left;text-indent:5px;<xsl:if test="last()=position()">float:left;</xsl:if></xsl:attribute> <xsl:choose> <xsl:when test="/BoardList/boardmaster[@boardid=$boardid]/master">版主：<xsl:for-each select="/BoardList/boardmaster[@boardid=$boardid]/master"> <a href="dispuser.asp?name={.}" title="查看版主{.}的资料" target="_blank"><xsl:value-of select="."/></a> </xsl:for-each></xsl:when> <xsl:otherwise> 此版暂无版主 </xsl:otherwise> </xsl:choose> </div> </xsl:for-each> </div> <xsl:if test="/BoardList/board[@parentid = $parentid][position() &gt; ($tdcount+$positions)]"> <xsl:call-template name="showboard2"> <xsl:with-param name="parentid" select="$parentid"/> <xsl:with-param name="tdwidth" select="$tdwidth"/> <xsl:with-param name="positions" select="($positions+$tdcount)"/> <xsl:with-param name="tdcount" select="$tdcount"/> </xsl:call-template> </xsl:if> </xsl:template> <xsl:template name="showboard1"> <xsl:param name="parentid"/> <xsl:for-each select="/BoardList/board[@parentid = $parentid ]"> <xsl:variable name="boardid" select="@boardid"/> <div class="mainbar" style="height:60px;"> <div class="index_right" style="height:44px;line-height:normal;margin-top:8px;"> <xsl:choose> <xsl:when test="@checkout='1'"> <div style="margin-top:18px;">认证论坛，请认证用户进入浏览</div> </xsl:when> <xsl:otherwise> <div>主题：<a href="<a href='mailto:dispbbs.asp?boardid={information/@lastpost_7}&amp;ID={information/@lastpost_6}&amp;replyID={information/@lastpost_1}&amp;skin=1" target="_blank" ><xsl:value-of'>dispbbs.asp?boardid={information/@lastpost_7}&amp;ID={information/@lastpost_6}&amp;replyID={information/@lastpost_1}&amp;skin=1"><xsl:value-of</A> select="<a href="mailto:information/@lastpost_3" target="_blank" >information/@lastpost_3</A>" disable-output-escaping="yes" /></a></div> <div>发贴：<a href="<a href='mailto:dispuser.asp?id={information/@lastpost_5}" target="_blank" ><xsl:value-of'>dispuser.asp?id={information/@lastpost_5}"><xsl:value-of</A> select="</div'>information/@lastpost_0"/></a></div</A>> <div>日期：<xsl:value-of select="<a href='mailto:information/@lastpost_2"/ target="_blank" ><a'>information/@lastpost_2"/><a</A> href="<a href="mailto:Dispbbs.asp?boardid={information/@lastpost_7}&amp;ID={information/@lastpost_6}&amp;replyID={information/@lastpost_1}&amp;skin=1" target="_blank" >Dispbbs.asp?boardid={information/@lastpost_7}&amp;ID={information/@lastpost_6}&amp;replyID={information/@lastpost_1}&amp;skin=1</A>" title="主题：<a href='mailto:{information/@lastpost_3}" target="_blank" ><img'>{information/@lastpost_3}"><img</A> border="0" src="Skins/Default/lastpost.gif" alt=""/></a></div> </xsl:otherwise> </xsl:choose> </div>

[align=right][color=#000066][此贴子已经被作者于2007-2-13 15:39:46编辑过][/color][/align]

cx100net 发表于 2007-2-13 15:23

接上段源码 以下是index.asp的模版page_index中template.html(0)的（下半段的）源码 <div class="index_left_states"><img> <xsl:choose> <xsl:when test="@checkout=1"> <xsl:attribute name="title">认证论坛,<xsl:choose> <xsl:when test="@newpost=1">有新贴子</xsl:when> <xsl:otherwise>无新贴子</xsl:otherwise> </xsl:choose> </xsl:attribute> <xsl:attribute name="src"><xsl:value-of select="<A>/BoardList/forum_setting/@pic_2"/></xsl:attribute</A>> </xsl:when> <xsl:when test="@checklock=1"> <xsl:attribute name="title">锁定论坛,<xsl:choose> <xsl:when test="@newpost=1">有新贴子</xsl:when> <xsl:otherwise>无新贴子</xsl:otherwise> </xsl:choose> </xsl:attribute> <xsl:attribute name="src"><xsl:value-of select="<A>/BoardList/forum_setting/@pic_2"/></xsl:attribute</A>> </xsl:when> <xsl:otherwise> <xsl:choose> <xsl:when test="@newpost=1"><xsl:attribute name="alt">开放的论坛,有新贴子</xsl:attribute> <xsl:attribute name="src"><xsl:value-of select="<A>/BoardList/forum_setting/@pic_1"/></xsl:attribute</A>> </xsl:when> <xsl:otherwise><xsl:attribute name="alt">开放的论坛,无新贴子</xsl:attribute> <xsl:attribute name="src"><xsl:value-of select="<A>/BoardList/forum_setting/@pic_0"/></xsl:attribute</A>> </xsl:otherwise> </xsl:choose> </xsl:otherwise> </xsl:choose></img></div> <div style="text-align :left;"> <xsl:if test="@indeximg!=''"><a href="index.asp?boardid=180"><img src="<a href="mailto:{@indeximg" target="_blank" >{@indeximg</A>}" alt="" class="boardlogo"/></a></xsl:if> <div><a href="index.asp?boardid=180"> <xsl:if test="count(../board[@parentid=$boardid]) != 0"><xsl:attribute name="title">有<xsl:value-of select="count(../board[@parentid=$boardid])"/>个下属论坛</xsl:attribute></xsl:if><xsl:value-of select="@boardtype" disable-output-escaping="yes"/></a><xsl:if test="count(../board[@parentid=$boardid]) !=0"><a><xsl:attribute name="onmouseover">showmenu(event,BoardJumpList(<xsl:value-of select="@boardid"/>,1),0);</xsl:attribute>（<xsl:value-of select="count(../board[@parentid=$boardid])"/>）</a></xsl:if></div> <div style="overflow :hidden;height:38px;"><img alt="" src="Skins/Default/Forum_readme.gif" align="middle"/><xsl:value-of select="@readme" disable-output-escaping="yes"/></div> </div> </div> <div class="mainbar2" style="height:25px;overflow :hidden;"> <div class="index_right" style="height:25px;"> <img src="Skins/Default/Forum_today.gif" alt="今日发贴数" style="margin-top:8px;"/><xsl:value-of select="concat(' ',information/@todaynum,' ')"/> <img src="Skins/Default/forum_topic.gif" alt="主题贴数" /><xsl:value-of select="concat(' ',information/@topicnum,' ')"/> <img src="Skins/Default/Forum_post.gif" alt="发贴总数" /><xsl:value-of select="concat(' ',information/@postnum)"/> </div> <div class="index_left_states" style="height:25px;"></div> <div style="text-align : left; text-indent:5px;"> <xsl:choose> <xsl:when test="<A>/BoardList/forum_setting/@issearch=1</A>"> <a href="index.asp?BoardID=180&amp;Page=2" title="<a href="mailto:{@boardtype" target="_blank" >{@boardtype</A>}第二页">[2]</a> <a href="index.asp?BoardID=180&amp;Page=3" title="<a href="mailto:{@boardtype" target="_blank" >{@boardtype</A>}第三页">[3]</a> <a href="index.asp?BoardID=180&amp;Page=4" title="<a href="mailto:{@boardtype" target="_blank" >{@boardtype</A>}第四页">[4]</a> <a href="index.asp?BoardID=180&amp;Page=5" title="<a href="mailto:{@boardtype" target="_blank" >{@boardtype</A>}第五页">[5]</a> <a href="index.asp?BoardID=180&amp;Page=6" title="<a href="mailto:{@boardtype" target="_blank" >{@boardtype</A>}第六页">[6]</a> <a href="index.asp?BoardID=180&amp;Page=7" title="<a href="mailto:{@boardtype" target="_blank" >{@boardtype</A>}第七页">[7]</a> <a href="index.asp?BoardID=180&amp;Page=8" title="<a href="mailto:{@boardtype" target="_blank" >{@boardtype</A>}第八页">[8]</a> <a href="index.asp?BoardID=180&amp;Page=9" title="<a href="mailto:{@boardtype" target="_blank" >{@boardtype</A>}第九页">[9]</a> <a href="index.asp?BoardID=180&amp;Page=10" title="<a href="mailto:{@boardtype" target="_blank" >{@boardtype</A>}第十页">[10]</a> </xsl:when> <xsl:otherwise> <xsl:choose> <xsl:when test="/BoardList/boardmaster[@boardid=$boardid]/master">版主：<xsl:for-each select="/BoardList/boardmaster[@boardid=$boardid]/master"> <a href="dispuser.asp?name={.}" title="查看版主{.}的资料" target="_blank"><xsl:value-of select="."/></a> </xsl:for-each></xsl:when> <xsl:otherwise> 此版暂无版主 </xsl:otherwise> </xsl:choose> </xsl:otherwise> </xsl:choose> <xsl:if test="<A>/BoardList/forum_setting/@issearch=1</A> and <A>/BoardList/forum_setting/@issearch_a=1</A>"> <a href="index.asp?BoardID=180&amp;Page=11" title="<a href="mailto:{@boardtype" target="_blank" >{@boardtype</A>}第十一页">[11]</a> <a href="index.asp?BoardID=180&amp;Page=12" title="<a href="mailto:{@boardtype" target="_blank" >{@boardtype</A>}第十二页">[12]</a> <a href="index.asp?BoardID=180&amp;Page=13" title="<a href="mailto:{@boardtype" target="_blank" >{@boardtype</A>}第十三页">[13]</a> <a href="index.asp?BoardID=180&amp;Page=14" title="<a href="mailto:{@boardtype" target="_blank" >{@boardtype</A>}第十四页">[14]</a> <a href="index.asp?BoardID=180&amp;Page=15" title="<a href="mailto:{@boardtype" target="_blank" >{@boardtype</A>}第十五页">[15]</a> <a href="index.asp?BoardID=180&amp;Page=16" title="<a href="mailto:{@boardtype" target="_blank" >{@boardtype</A>}第十六页">[16]</a> <a href="index.asp?BoardID=180&amp;Page=17" title="<a href="mailto:{@boardtype" target="_blank" >{@boardtype</A>}第十七页">[17]</a> <a href="index.asp?BoardID=180&amp;Page=18" title="<a href="mailto:{@boardtype" target="_blank" >{@boardtype</A>}第十八页">[18]</a> <a href="index.asp?BoardID=180&amp;Page=19" title="<a href="mailto:{@boardtype" target="_blank" >{@boardtype</A>}第十九页">[19]</a> <a href="index.asp?BoardID=180&amp;Page=20" title="<a href="mailto:{@boardtype" target="_blank" >{@boardtype</A>}第二十页">[20]</a> </xsl:if> </div> </div> </xsl:for-each> </xsl:template> <xsl:template name="welcome"> <div class="th"></div> <div class="mainbar" style="height:120px;text-align :left;"> <div id="tdleft" style="height:120px; "> <div style="padding:10px;"> <xsl:choose> <xsl:when test="<a href='mailto:BoardList/userinfo/@userid=0" target="_blank" ><xsl:call-template'>BoardList/userinfo/@userid=0"><xsl:call-template</A> name="guest" /></xsl:when> <xsl:otherwise><xsl:call-template name="userinfo" /></xsl:otherwise> </xsl:choose> </div> </div> <div style="height:120px;float:left;width:320px;" > <div style="padding:10px;"> <div style="float:left;width:140px;height:20px;line-height:20px;">会员总数：<xsl:value-of select="<a href='mailto:BoardList/forum_info/@forum_usernum"/ target="_blank" ></b'>BoardList/forum_info/@forum_usernum"/></b</A>> 人</div><div style="float:left;height:20px;line-height:20px;">最新会员：[ <a href="<a href="mailto:dispuser.asp?name={BoardList/forum_info/@forum_lastuser" target="_blank" >dispuser.asp?name={BoardList/forum_info/@forum_lastuser</A>}" target="_blank"><xsl:value-of select="<a href='mailto:BoardList/forum_info/@forum_lastuser"/ target="_blank" ></a'>BoardList/forum_info/@forum_lastuser"/></a</A>> ]</div> <hr/> <div style="float:left;width:140px;height:20px;line-height:20px;">今日发帖：<xsl:value-of select="<a href='mailto:BoardList/forum_info/@forum_todaynum"/ target="_blank" ></font'>BoardList/forum_info/@forum_todaynum"/></font</A>> 篇</div> <div style="float:left;height:20px;line-height:20px;"> 主题总数：<xsl:value-of select="<a href='mailto:BoardList/forum_info/@forum_topicnum"/ target="_blank" ></b'>BoardList/forum_info/@forum_topicnum"/></b</A>> 篇</div> <div style="float:left;width:140px;height:20px;line-height:20px;">昨日发帖：<xsl:value-of select="<a href='mailto:BoardList/forum_info/@forum_yesterdaynum"/ target="_blank" ></b'>BoardList/forum_info/@forum_yesterdaynum"/></b</A>> 篇</div> <div style="float:left;height:20px;line-height:20px;"> 帖子总数：<xsl:value-of select="<a href='mailto:BoardList/forum_info/@forum_postnum"/ target="_blank" ></b'>BoardList/forum_info/@forum_postnum"/></b</A>> 篇</div> <div style="float:left;width:330px;">最高日发帖：<xsl:value-of select="<a href='mailto:BoardList/forum_info/@forum_maxpostnum"/ target="_blank" ></b'>BoardList/forum_info/@forum_maxpostnum"/></b</A>> 篇，发生时间：<xsl:value-of select="<a href='mailto:BoardList/forum_info/@forum_maxpostdate"/ target="_blank" ></div'>BoardList/forum_info/@forum_maxpostdate"/></div</A>> </div> </div> </div> <div class="mainbar1" style="text-align :left;height:36px;line-height:28px;"> <xsl:if test="<a href="mailto:BoardList/forum_setting/@rss=0" target="_blank" >BoardList/forum_setting/@rss=0</A> or <a href="mailto:BoardList/forum_setting/@wap=1" target="_blank" >BoardList/forum_setting/@wap=1</A>"> <div class="tableborder5" style="text-align :center;line-height:18px;height:20px;float:right;margin-right:2px;margin-top:6px;font-size:9px;font-family:tahoma,arial;"> <div class="tabletitle1" style="float:left;width:25px;margin : 1px; 1px; 1px; 1px;">XML</div> <xsl:if test="<a href='mailto:BoardList/forum_setting/@rss=0" target="_blank" ><div'>BoardList/forum_setting/@rss=0"><div</A> style="float:left;width:45px;margin: 1px 1px 1px 1px ;background-color : #fff;border:1px inset;line-height:16px;"><a href="<a href="http://rss.iboker.com/sub/?{BoardList/forum_setting/@ForumUrl}rssfeed.asp" target="_blank" >http://rss.iboker.com/sub/?{BoardList/forum_setting/@ForumUrl}rssfeed.asp</A>" target="_blank" title="订阅本站面最新帖子">RSS 2.0</a></div></xsl:if> <xsl:if test="<a href='mailto:BoardList/forum_setting/@wap=1" target="_blank" ><div'>BoardList/forum_setting/@wap=1"><div</A> class="tabletitle1" style="float:left;width:25px;margin :1px;"><a href="wap.asp?Action=readme" target="_blank" title="通过手机访问论坛，把论坛动起来" style="color:#fff;">WAP</a></div></xsl:if> </div> </xsl:if> <div style="float:left;padding:3px;width:49%;height:28px;" > <div style="float:left;"><a href="<a href="http://www.yisou.com/search?pid=400107_1006" target="_blank" >http://www.yisou.com/search?pid=400107_1006</A>" target="_blank"><img src="<a href="http://server.dvbbs.net/dvbbs/yisou.gif" target="_blank" >http://server.dvbbs.net/dvbbs/yisou.gif</A>" border="0" alt="一搜" style="margin-top:10px;margin-left:10px;margin-right:6px;" align="absmiddle"/></a></div> <form method="POST" action="query.asp" target="_blank"> <input type="hidden" value="2" name="isWeb"/> <input type="hidden" value="8" name="stype"/> <div style="float:left;"> <input name="keyword" size="20" value="关键字" onmouseover="this.focus()" onblur="if (this.value =='') this.value='请输入关键字' " onfocus="this.select()" onclick="if(this.value=='请输入关键字')this.value=''" style="height : 18px;border:solid 1px #D4D4D4;BACKGROUND-COLOR: #FAFAFA;COLOR: #4d4d4d;FONT-FAMILY: Arial; margin-top:3px;margin-left:0px;margin-right:5px;"/> </div> <div style="float:left;"> <input style="border:solid 1px #D4D4D4;BACKGROUND-COLOR: #FAFAFA; height : 22px;COLOR: #4d4d4d;FONT-FAMILY: Arial; FONT-SIZE:11.5px;margin-top:3px;margin-left:5px;margin-right:5px;" type="submit" value="搜一搜" name="submit"/> </div> </form> </div> <div style="float:left;padding:3px 0px;height:28px;text-indent:20px;" > <a href="query.asp?stype=3&amp;pSearch=0&amp;nSearch=0">查看新贴</a> v <a href="query.asp?stype=4&amp;pSearch=0&amp;nSearch=0">热门话题</a> v <a href="infolist.asp?t=toplist&amp;orders=1">发贴排行</a> v <a href="infolist.asp?t=toplist&amp;orders=7">用户列表</a> </div> </div> </xsl:template> <xsl:template name="userinfo"> <div style="float:left;width:80px;height:100px;overflow :hidden;"><a href="<a href="mailto:dispuser.asp?id={BoardList/userinfo/@userid" target="_blank" >dispuser.asp?id={BoardList/userinfo/@userid</A>}" title="查看我的信息"><img src="<a href="mailto:{BoardList/userinfo/@userface" target="_blank" >{BoardList/userinfo/@userface</A>}" alt="查看我的信息" height="60" style="margin-top:12px;margin-left:2px;border:0px"/></a></div> <div style="float:left;"> <div>您的帐号 <xsl:value-of select="<a href="mailto:BoardList/userinfo/@username" target="_blank" >BoardList/userinfo/@username</A>" /> <a href="usersms.asp?action=inbox">收件箱</a> <xsl:choose> <xsl:when test="<a href="mailto:BoardList/userinfo/@usermsg" target="_blank" >BoardList/userinfo/@usermsg</A> !=''"> <xsl:variable name="sendmsgnum" select="substring-before(<a href="mailto:BoardList/userinfo/@usermsg" target="_blank" >BoardList/userinfo/@usermsg</A> ,'||')"></xsl:variable> <xsl:variable name="sendmsgid" select="substring-before(substring-after(<a href="mailto:BoardList/userinfo/@usermsg" target="_blank" >BoardList/userinfo/@usermsg</A> ,'||') ,'||')"></xsl:variable> <xsl:variable name="sendmsguser" select="substring-after(substring-after(<a href="mailto:BoardList/userinfo/@usermsg" target="_blank" >BoardList/userinfo/@usermsg</A> ,'||') ,'||')"></xsl:variable> <xsl:choose> <xsl:when test="$sendmsgnum != 0 "><bgsound src="skins/default/mail.wav" />(<a href="javascript:openScript('messanger.asp?action=read&amp;id={$sendmsgid}&amp;sender={$sendmsguser}',500,400)"><xsl:value-of select="$sendmsgnum" /></a>)</xsl:when> <xsl:otherwise>(0) </xsl:otherwise> </xsl:choose> </xsl:when> <xsl:otherwise> (0) </xsl:otherwise> </xsl:choose> <xsl:value-of select="' '" /> <xsl:if test="BoardList/myusergroup"> <div class="menu_popup" id="regroup"> <div class="menuitems"> <xsl:for-each select="BoardList/myusergroup"> <xsl:variable name="groupid" select="."/> <a href="cookies.asp?action=ReGroup&amp;GroupID={.}"><xsl:value-of select="/BoardList/grouppic/usergroup[@usergroupid = $groupid]/@usertitle" /></a> </xsl:for-each> </div> </div> <a onmouseover="showmenu(event,'','regroup')" style="cursor:hand">切换用户身份</a></xsl:if></div> <hr/> <div>注册：<xsl:value-of select="substring-before(<a href="mailto:BoardList/userinfo/@joindate,'" target="_blank" >BoardList/userinfo/@joindate,'</A> ')" /> 登录 <xsl:value-of select="<a href="mailto:BoardList/userinfo/@userlogins" target="_blank" >BoardList/userinfo/@userlogins</A>" /> 次等级：<xsl:value-of select="<a href="mailto:BoardList/userinfo/@userclass" target="_blank" >BoardList/userinfo/@userclass</A>" /></div> <div>金钱：<xsl:value-of select="<a href="mailto:BoardList/userinfo/@userwealth" target="_blank" >BoardList/userinfo/@userwealth</A>" /> 积分：<xsl:value-of select="<a href="mailto:BoardList/userinfo/@userep" target="_blank" >BoardList/userinfo/@userep</A>" /> 魅力：<xsl:value-of select="<a href="mailto:BoardList/userinfo/@usercp" target="_blank" >BoardList/userinfo/@usercp</A>" /></div> <div>主题：<xsl:value-of select="<a href="mailto:BoardList/userinfo/@usertopic" target="_blank" >BoardList/userinfo/@usertopic</A>" /> 文章：<xsl:value-of select="<a href="mailto:BoardList/userinfo/@userpost" target="_blank" >BoardList/userinfo/@userpost</A>" /> 精华：<xsl:value-of select="<a href="mailto:BoardList/userinfo/@userisbest" target="_blank" >BoardList/userinfo/@userisbest</A>" /> 被删：<xsl:value-of select="translate(<a href="mailto:BoardList/userinfo/@userdel,'-',''" target="_blank" >BoardList/userinfo/@userdel,'-',''</A>)" /></div> </div> </xsl:template> <xsl:template name="guest"> <div style="float:right;margin-right:20px;"> <div>欢迎访问 <xsl:value-of select="<a href='mailto:BoardList/forum_info/@forum_type"/ target="_blank" ></b'>BoardList/forum_info/@forum_type"/></b</A>> 您还没有［<a href="reg.asp" class="cblue">注册</a>］或［<a href="login.asp" class="cblue">登录</a>］</div> <form action="login.asp?action=chk" method="post"> <div>用户帐号：<input tyep="text" name="username" size="12" /><xsl:if test="<a href="mailto:BoardList/forum_setting/@logincheckcode=1" target="_blank" >BoardList/forum_setting/@logincheckcode=1</A>"> 验证码：<input type="text" name="codestr" size="4" /><img src="DV_getcode.asp" height="18" alt="验证码,看不清楚?请点击刷新验证码" style="cursor : pointer;" onclick="this.src='DV_getcode.asp'"/></xsl:if></div> <div>用户密码：<input type="password" name="password" size="12" /> Cookie <select name="CookieDate"><option value="0" selected="selected">不保存</option><option value="1">保存一天</option><option value="2">保存一月</option><option value="3">保存一年</option></select> <input type="submit" name="submit" value="登录" /></div> </form> <div style="margin-top:10px;"> <form action="login.asp?action=chk" method="post"> <a href="<a href="http://www.dvbbs.net/passport/help.asp" target="_blank" >http://www.dvbbs.net/passport/help.asp</A>" target="_blank" title="注册论坛通行证可让您使用一个帐号通行于国内大部分的网络论坛社区，点击查看更详细帮助">通<xsl:text disable-output-escaping="yes" >&amp;nbsp;</xsl:text>行<xsl:text disable-output-escaping="yes" >&amp;nbsp;</xsl:text>证</a><xsl:text disable-output-escaping="yes" >&amp;nbsp;</xsl:text>：<input type="text" name="passport" size="12" /> <input type="submit" name="submit" value="论坛通行证登录" /> [ <a href="lostpass.asp"> 忘记密码</a> ] </form> </div> </div> </xsl:template> <xsl:template name="link"> <div class="th" style="margin-top:12px;"><xsl:text disable-output-escaping="yes" >&amp;nbsp;&amp;nbsp;</xsl:text>-=> 友情论坛</div> <div class="mainbar3"> <div style="padding:10px;line-height:20px;"> <xsl:for-each select="BoardList/bbslink/link[@islogo=0]"> <div style="float:left;width:16%;text-align : left;height:20px;"><a href="<a href="mailto:{@url" target="_blank" >{@url</A>}" title="<a href="mailto:{@readme" target="_blank" >{@readme</A>}" target="_blank" ><xsl:value-of select="@boardname"/></a></div><xsl:if test="(position() mod 6)=0 "> </xsl:if> </xsl:for-each> </div> <xsl:if test="count(BoardList/bbslink/link[@islogo=0]) mod 6 !=0"> </xsl:if> <hr style="width:98%;"/> <div style="padding:10px;line-height:40px;"> <xsl:for-each select="BoardList/bbslink/link[@islogo=1]"> <div style="float:left;width:16%;text-align : left;height:40px;" title="<a href="mailto:{@boardname" target="_blank" >{@boardname</A>} <a href="mailto:{@readme" target="_blank" >{@readme</A>}"> <a href="<a href="mailto:{@url" target="_blank" >{@url</A>}" target="_blank" ><img border="0" src="<a href="mailto:{@logo" target="_blank" >{@logo</A>}" height="31" width="88" alt="<a href="mailto:{@boardname" target="_blank" >{@boardname</A>} <a href="mailto:{@readme" target="_blank" >{@readme</A>}" /></a></div><xsl:if test="(position() mod 6)=0 "> </xsl:if> </xsl:for-each> <xsl:if test="BoardList/bbslink/link[@islogo=1]"> </xsl:if> </div> </div> <xsl:if test="BoardList/biruser"> <div class="th"><xsl:text disable-output-escaping="yes" >&amp;nbsp;&amp;nbsp;</xsl:text>≡ 今天过生日的用户（共 <xsl:value-of select="count(BoardList/biruser/user)"/> 人）≡</div> <div class="mainbar3"> <div style="padding:10px;line-height:20px;"> <xsl:for-each select="BoardList/biruser/user"><div style="float:left;width:25%;text-align : left;height:20px;"> <img src="<a href="mailto:{/BoardList/forum_setting/@pic_3" target="_blank" >{/BoardList/forum_setting/@pic_3</A>}" alt="" />〖祝 <a href="<a href="mailto:dispuser.asp?name={@username" target="_blank" >dispuser.asp?name={@username</A>}" title="祝<a href="mailto:{@age" target="_blank" >{@age</A>}岁生日快乐！" target="_blank"><xsl:value-of select="@username" /></a> 生日快乐〗 </div> <xsl:if test="(position() mod 4)=0 or position()=last()"> </xsl:if> </xsl:for-each> </div> </div> </xsl:if> </xsl:template> <xsl:template name="index_bottom"> <div class="th"><xsl:text disable-output-escaping="yes" >&amp;nbsp;&amp;nbsp;</xsl:text>-=> 论坛在线情况 [<a href="online.asp?action=1&amp;boardid=0" target="hiddenframe">显示详细列表</a>] [<a href="boardstat.asp?reaction=online">查看在线用户位置</a>]</div> <div class="mainbar3" style="height:65px;border-bottom:0px; "> <div style="padding:5px 10px 0px 10px;line-height:20px;height:60px;"> <div style="float:left;width:30%;text-align : left;"> ■ 当前在线：<xsl:value-of select="<a href='mailto:BoardList/forum_info/@forum_online"/ target="_blank" ></b'>BoardList/forum_info/@forum_online"/></b</A>> 人 ■ 在线会员：<xsl:value-of select="<a href='mailto:BoardList/forum_info/@forum_useronline"/ target="_blank" ></b'>BoardList/forum_info/@forum_useronline"/></b</A>> 人 ■ 在线访客：<xsl:value-of select="<a href='mailto:BoardList/forum_info/@forum_guestonline"/ target="_blank" ></b'>BoardList/forum_info/@forum_guestonline"/></b</A>> 人 </div> <div style="float:left;width:30%;text-align : left;"> ■ 建站时间：<xsl:value-of select="<a href='mailto:BoardList/forum_info/@forum_createtime"/ target="_blank" ><br'>BoardList/forum_info/@forum_createtime"/><br</A> /> ■ 最高在线：<xsl:value-of select="<a href='mailto:BoardList/forum_info/@forum_maxonline"/ target="_blank" ></b'>BoardList/forum_info/@forum_maxonline"/></b</A>> 人 ■ 发生时间：<xsl:value-of select="<a href='mailto:BoardList/forum_info/@forum_maxonlinedate"/ target="_blank" ></b'>BoardList/forum_info/@forum_maxonlinedate"/></b</A>> </div> <div style="float:left;width:39%;text-align : left;"> ■ 您的IP是：<xsl:value-of select="<a href='mailto:BoardList/agent/@ip"/ target="_blank" ><br'>BoardList/agent/@ip"/><br</A> /> ■ 操作系统：<xsl:value-of select="<a href='mailto:BoardList/agent/@platform"/ target="_blank" ><br'>BoardList/agent/@platform"/><br</A> /> ■ 浏览器：<xsl:value-of select="concat(<a href="mailto:BoardList/agent/@browser,'" target="_blank" >BoardList/agent/@browser,'</A> ',BoardList/agent/@version)"/> </div> </div> </div> <div class="mainbar3"> <div style="padding:0px 10px 0px 10px;line-height:18px;height:18px;text-align : left;"> ■ 在线图例：<xsl:for-each select="BoardList/grouppic/usergroup[@orders!=0]"><img src="<a href="mailto:{/BoardList/@picurl}{@titlepic" target="_blank" >{/BoardList/@picurl}{@titlepic</A>}" alt=""/><xsl:value-of select="concat(' ',@usertitle)" /><xsl:if test="position()!=last() "> ‖ </xsl:if></xsl:for-each> </div> <hr style="width:98%;"/> <div class="mainbar0" style="padding:5px 10px 5px 10px;line-height:18px;text-align : left;display:none;" id="onlinetr"></div> </div> <div class="itableborder"> <img src="<a href="mailto:{/BoardList/forum_setting/@pic_0" target="_blank" >{/BoardList/forum_setting/@pic_0</A>}" align="absmiddle" alt="没有新的帖子" /> 没有新的帖子　　<img src="<a href="mailto:{/BoardList/forum_setting/@pic_1" target="_blank" >{/BoardList/forum_setting/@pic_1</A>}" align="absmiddle" alt="有新的帖子" /> 有新的帖子　　<img src="<a href="mailto:{/BoardList/forum_setting/@pic_2" target="_blank" >{/BoardList/forum_setting/@pic_2</A>}" align="absmiddle" alt="被锁定的论坛" /> 被锁定的论坛 </div> </xsl:template> </xsl:stylesheet> 
[align=right][color=#000066][此贴子已经被作者于2007-2-13 15:49:39编辑过][/color][/align]

cx100net 发表于 2007-2-13 15:50

问题： 1、我想在登录论坛后增加个人信息显示项。 2、贵论坛好像也是用dvbbs的。 请问： 如何修改可以在这三个地方增加个人信息显示项？ 请站长、版主和高手帮帮忙！！！ 
[align=right][color=#000066][此贴子已经被作者于2007-3-2 17:54:30编辑过][/color][/align]

cx100net 发表于 2007-2-14 23:24

偌大的一个网站，怎么会没有高手和热心人呢？

sunjianyu 发表于 2007-2-16 17:21

你自己都不知道想要什么！！

cx100net 发表于 2007-2-16 21:23

怎么会呢？ 我就想增加一些个人信息的显项！！！！！！！！！！如：在线时间

页: [1]

编程论坛's Archiver

[求助]急求--帮助解读动网论坛dvbbs7.1的部分代码