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

姓名：(无权查看)
城市：(无权查看)
院校：(无权查看)

[求助]请帮解读动网论坛中的代码

我百思不得其解，找不到几个<xsl:value-of select=的位置，如："substring-before(BoardList/userinfo/@joindate，不知赖于何处？找不到BoardList与userinfo的关系，@joindate是在那里给它付值了？请哪位高手帮解读动网dvbbs7.1中以下的代码：
<xsl:template name="userinfo">
<div style="float:left;width:80px;height:100px;overflow :hidden;"><a href="dispuser.asp?id={BoardList/userinfo/@userid}" title="查看我的信息"><img src="{BoardList/userinfo/@userface}" alt="查看我的信息" height="60" style="margin-top:12px;margin-left:2px;border:0px"/></a></div>
<div style="float:left;">
<div>您的帐号 <b><xsl:value-of select="BoardList/userinfo/@username" /></b>  <a href="usersms.asp?action=inbox">收件箱</a>
<xsl:choose>
  <xsl:when test="BoardList/userinfo/@usermsg !=''">
  <xsl:variable name="sendmsgnum" select="substring-before(BoardList/userinfo/@usermsg ,'||')"></xsl:variable>
  <xsl:variable name="sendmsgid" select="substring-before(substring-after(BoardList/userinfo/@usermsg ,'||') ,'||')"></xsl:variable>
  <xsl:variable name="sendmsguser" select="substring-after(substring-after(BoardList/userinfo/@usermsg ,'||') ,'||')"></xsl:variable>
  <xsl:choose>
  <xsl:when test="$sendmsgnum != 0 "><bgsound src="skins/default/mail.wav" />(<a href="javascript:openScript('messanger.asp?action=read&id={$sendmsgid}&sender={$sendmsguser}',500,400)"><font class="redfont"><xsl:value-of select="$sendmsgnum" /></font></a>)</xsl:when>
  <xsl:otherwise>(<font color="gray">0</font>) </xsl:otherwise>
  </xsl:choose>
  </xsl:when>
  <xsl:otherwise>
(<font color="gray">0</font>)
  </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&GroupID={.}"><xsl:value-of select="/BoardList/grouppic/usergroup[@usergroupid = $groupid]/@usertitle" /></a><br />
  </xsl:for-each>
</div>
</div>
<a onmouseover="showmenu(event,'','regroup')" style="cursor:hand">切换用户身份</a></xsl:if></div>
<hr/>
<div>注册：<b><xsl:value-of select="substring-before(BoardList/userinfo/@joindate,' ')" /></b> 登录 <b><xsl:value-of select="BoardList/userinfo/@userlogins" /></b> 次等级：<b><xsl:value-of select="BoardList/userinfo/@userclass" /></b></div>
<div>金钱：<b><xsl:value-of select="BoardList/userinfo/@userwealth" /></b> 积分：<b><xsl:value-of select="BoardList/userinfo/@userep" /></b> 魅力：<b><xsl:value-of select="BoardList/userinfo/@usercp" /></b></div>
<div>主题：<b><xsl:value-of select="BoardList/userinfo/@usertopic" /></b> 文章：<b><xsl:value-of select="BoardList/userinfo/@userpost" /></b> 精华：<font class="redfont"><b><xsl:value-of select="BoardList/userinfo/@userisbest" /></b></font> 被删：<b><xsl:value-of select="translate(BoardList/userinfo/@userdel,'-','')" /></b></div>
</div>
</xsl:template>
谢谢！

姓名：(无权查看)
城市：(无权查看)
院校：(无权查看)

这论坛怎么没有高手呢？也没热心人吗？

姓名：(无权查看)
城市：(无权查看)
院校：(无权查看)

1、"substring-before(BoardList/userinfo/@joindate，不知赖于何处？
什么意思？

2、找不到BoardList与userinfo的关系，
BoardList与userinfo是父节点与子节点的关系

3、@joindate是在那里给它付值了？
joindate是属性，其值就在XML文档中，还用付值吗？

姓名：(无权查看)
城市：(无权查看)
院校：(无权查看)

我觉得应该有很多热心的人吧＾，是否这个问题别人已经问过啦？？我是初来乍到，不过看到很多高人共享资料以及分享学习研究经验，感觉很不错呢！

姓名：(无权查看)
城市：(无权查看)
院校：(无权查看)

谢谢！我还以为。。。。。。，还是有热心人的！不好意思！我没有把问题说清楚。这是动网DVBBS7.1中index.asp的page_index的template.html(0)的部分代码。

姓名：(无权查看)
城市：(无权查看)
院校：(无权查看)

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("information/@topicnum").text)
   cpost=cpost+CLng(Application(Dvbbs.CacheName &"_information_" & node.text).documentElement.selectSingleNode("information/@postnum").text)
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("information/@postnum").text)-cpost
XMLDom.documentElement.firstChild.attributes.setNamedItem(XMLDom.createNode(2,"topicnum","")).text=CLng(Application(Dvbbs.CacheName &"_information_" & Dvbbs.boardid).documentElement.selectSingleNode("information/@topicnum").text)-ctopic
XMLDom.documentElement.firstChild.attributes.setNamedItem(XMLDom.createNode(2,"todaynum","")).text=CLng(Application(Dvbbs.CacheName &"_information_" & Dvbbs.boardid).documentElement.selectSingleNode("information/@todaynum").text)
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("information/@boardtopstr").text
  ElseIf Trim(Application(Dvbbs.CacheName &"_information_" & Dvbbs.boardid).documentElement.selectSingleNode("information/@boardtopstr").text)<>"" Then
   topidlist=topidlist &","& Application(Dvbbs.CacheName &"_information_" & Dvbbs.boardid).documentElement.selectSingleNode("information/@boardtopstr").text
  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,"<","<")
     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,"<","<")
    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

姓名：(无权查看)
城市：(无权查看)
院校：(无权查看)

接上段
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","http://www.w3.org/1999/XSL/Transform")
  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","http://www.w3.org/1999/XSL/Transform")
  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","http://www.w3.org/1999/XSL/Transform")
  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","http://www.w3.org/1999/XSL/Transform")
  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","http://www.w3.org/1999/XSL/Transform")
  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","http://www.w3.org/1999/XSL/Transform")
  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","http://www.w3.org/1999/XSL/Transform")
  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","http://www.w3.org/1999/XSL/Transform")
  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","http://www.w3.org/1999/XSL/Transform")
  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","http://www.w3.org/1999/XSL/Transform")
  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","http://www.w3.org/1999/XSL/Transform")
  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("userinfo/@usergroupid2").text
   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&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),"\","\\"),"'","\'"),chr(13),"")&"';"
  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="http://www.dvbbs.net/passport/index.asp?uid=<%=UserID%>&fid=<%=ForumID%>&token=<%=token%>&t=<%=t%>&s=1" name="top"  noresize frameborder="0" marginwidth=0  marginheight=0 scrolling="no">
</frameset>

[此贴子已经被作者于2007-2-12 22:03:52编辑过]

姓名：(无权查看)
城市：(无权查看)
院校：(无权查看)

以下是index.asp的page_index中template.html(0)的源码
<?xml version="1.0" encoding="gb2312"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" >
<xsl:output method="xml" omit-xml-declaration = "yes" indent="yes" version="4.0"/>

<xsl:template  match="/">
<xsl:if test="BoardList/@boardid=0"><xsl:call-template name="welcome" /></xsl:if>
<xsl:call-template name="main" />
<xsl:if test="BoardList/@boardid=0"><xsl:call-template 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="BoardList/@boardid"/>
<xsl:choose>
<xsl:when test="$boardid=0">
<xsl:for-each select="BoardList/board[@parentid =$boardid]">
<div class="th" style="margin-top:10px;">
<span id="titlepic_{@boardid}"><a target="hiddenframe1">
<xsl:choose>
<xsl:when test="@mode!='0'"><xsl:attribute name="href">cookies.asp?action=setlistmod&thisvalue=0&id=<xsl:value-of select="@boardid"/></xsl:attribute>
<img alt="切换到列表模式" src="{/BoardList/@picurl}plus.gif"/>
</xsl:when>
<xsl:otherwise>
<xsl:attribute name="href">cookies.asp?action=setlistmod&thisvalue=1&id=<xsl:value-of select="@boardid"/>
</xsl:attribute>
<img alt="切换到简洁模式" src="{/BoardList/@picurl}nofollow.gif" border="0"/>
</xsl:otherwise>
</xsl:choose></a></span>
<a href="index.asp?boardid={@boardid}" title="进入本分类论坛"><xsl:value-of select="@boardtype" 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">
<span id="titlepic_{@boardid}"><a target="hiddenframe1">
<xsl:choose>
<xsl:when test="@mode!='0'"><xsl:attribute name="href">cookies.asp?action=setlistmod&thisvalue=0&id=<xsl:value-of select="@boardid"/></xsl:attribute>
<img alt="切换到列表模式" src="{/BoardList/@picurl}plus.gif"/>
</xsl:when>
<xsl:otherwise>
<xsl:attribute name="href">cookies.asp?action=setlistmod&thisvalue=1&id=<xsl:value-of select="@boardid"/>
</xsl:attribute>
<img alt="切换到简洁模式" src="{/BoardList/@picurl}nofollow.gif" border="0"/>
</xsl:otherwise>
</xsl:choose></a></span>
<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>
<br />
</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() > $positions and position() < ($tdcount+$positions+1)]">
<xsl:variable name="boardid" select="@boardid"/>
<div title="{@readme}">
<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>今日贴：<font color="red"><xsl:value-of select="concat(' ',information/@todaynum,' ')"/></font>主题贴：<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() > $positions and position() < ($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() > ($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="dispbbs.asp?boardid={information/@lastpost_7}&ID={information/@lastpost_6}&replyID={information/@lastpost_1}&skin=1"><xsl:value-of select="information/@lastpost_3" disable-output-escaping="yes" /></a></div>
    <div>发贴：<a href="dispuser.asp?id={information/@lastpost_5}"><xsl:value-of select="information/@lastpost_0"/></a></div>
    <div>日期：<xsl:value-of select="information/@lastpost_2"/><a href="Dispbbs.asp?boardid={information/@lastpost_7}&ID={information/@lastpost_6}&replyID={information/@lastpost_1}&skin=1" title="主题：{information/@lastpost_3}"><img border="0" src="Skins/Default/lastpost.gif" alt=""/></a></div>
   </xsl:otherwise>
    </xsl:choose>
</div>
<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="/BoardList/forum_setting/@pic_2"/></xsl:attribute>
        </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="/BoardList/forum_setting/@pic_2"/></xsl:attribute>
        </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="/BoardList/forum_setting/@pic_1"/></xsl:attribute>
         </xsl:when>
         <xsl:otherwise><xsl:attribute name="alt">开放的论坛,无新贴子</xsl:attribute>
         <xsl:attribute name="src"><xsl:value-of select="/BoardList/forum_setting/@pic_0"/></xsl:attribute>
         </xsl:otherwise>
         </xsl:choose>
        </xsl:otherwise>
        </xsl:choose></img></div>
<div style="text-align :left;">
  <xsl:if test="@indeximg!=''"><a href="index.asp?boardid={$boardid}"><img src="{@indeximg}" alt="" class="boardlogo"/></a></xsl:if>
  <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 style="overflow :hidden;height:38px;"><font face="Arial"><img alt="" src="Skins/Default/Forum_readme.gif" align="middle"/><xsl:value-of select="@readme" disable-output-escaping="yes"/></font></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;"/><font color="red"><xsl:value-of select="concat(' ',information/@todaynum,' ')"/></font>
<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="/BoardList/forum_setting/@issearch=1">
<a href="index.asp?BoardID={$boardid}&Page=2" title="{@boardtype}第二页">[2]</a>
<a href="index.asp?BoardID={$boardid}&Page=3" title="{@boardtype}第三页">[3]</a>
<a href="index.asp?BoardID={$boardid}&Page=4" title="{@boardtype}第四页">[4]</a>
<a href="index.asp?BoardID={$boardid}&Page=5" title="{@boardtype}第五页">[5]</a>
<a href="index.asp?BoardID={$boardid}&Page=6" title="{@boardtype}第六页">[6]</a>
<a href="index.asp?BoardID={$boardid}&Page=7" title="{@boardtype}第七页">[7]</a>
<a href="index.asp?BoardID={$boardid}&Page=8" title="{@boardtype}第八页">[8]</a>
<a href="index.asp?BoardID={$boardid}&Page=9" title="{@boardtype}第九页">[9]</a>
<a href="index.asp?BoardID={$boardid}&Page=10" title="{@boardtype}第十页">[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="/BoardList/forum_setting/@issearch=1 and /BoardList/forum_setting/@issearch_a=1">
<a href="index.asp?BoardID={$boardid}&Page=11" title="{@boardtype}第十一页">[11]</a>
<a href="index.asp?BoardID={$boardid}&Page=12" title="{@boardtype}第十二页">[12]</a>
<a href="index.asp?BoardID={$boardid}&Page=13" title="{@boardtype}第十三页">[13]</a>
<a href="index.asp?BoardID={$boardid}&Page=14" title="{@boardtype}第十四页">[14]</a>
<a href="index.asp?BoardID={$boardid}&Page=15" title="{@boardtype}第十五页">[15]</a>
<a href="index.asp?BoardID={$boardid}&Page=16" title="{@boardtype}第十六页">[16]</a>
<a href="index.asp?BoardID={$boardid}&Page=17" title="{@boardtype}第十七页">[17]</a>
<a href="index.asp?BoardID={$boardid}&Page=18" title="{@boardtype}第十八页">[18]</a>
<a href="index.asp?BoardID={$boardid}&Page=19" title="{@boardtype}第十九页">[19]</a>
<a href="index.asp?BoardID={$boardid}&Page=20" title="{@boardtype}第二十页">[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="BoardList/userinfo/@userid=0"><xsl:call-template 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;">会员总数：<b><xsl:value-of select="BoardList/forum_info/@forum_usernum"/></b> 人</div><div style="float:left;height:20px;line-height:20px;">最新会员：[ <a href="dispuser.asp?name={BoardList/forum_info/@forum_lastuser}" target="_blank"><b><xsl:value-of select="BoardList/forum_info/@forum_lastuser"/></b></a> ]</div>
<br /><hr/>
<div style="float:left;width:140px;height:20px;line-height:20px;">今日发帖：<font class="redfont"><b><xsl:value-of select="BoardList/forum_info/@forum_todaynum"/></b></font> 篇</div>
<div style="float:left;height:20px;line-height:20px;"> 主题总数：<b><xsl:value-of select="BoardList/forum_info/@forum_topicnum"/></b> 篇</div>
<div style="float:left;width:140px;height:20px;line-height:20px;">昨日发帖：<b><xsl:value-of select="BoardList/forum_info/@forum_yesterdaynum"/></b> 篇</div>
<div style="float:left;height:20px;line-height:20px;"> 帖子总数：<b><xsl:value-of select="BoardList/forum_info/@forum_postnum"/></b> 篇</div>
<div style="float:left;width:330px;">最高日发帖：<b><xsl:value-of select="BoardList/forum_info/@forum_maxpostnum"/></b> 篇，发生时间：<xsl:value-of select="BoardList/forum_info/@forum_maxpostdate"/></div>
</div>
</div>
</div>
<div class="mainbar1" style="text-align :left;height:36px;line-height:28px;">
<xsl:if test="BoardList/forum_setting/@rss=0 or BoardList/forum_setting/@wap=1">
<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="BoardList/forum_setting/@rss=0"><div style="float:left;width:45px;margin: 1px 1px 1px 1px ;background-color : #fff;border:1px inset;line-height:16px;"><a href="http://rss.iboker.com/sub/?{BoardList/forum_setting/@ForumUrl}rssfeed.asp" target="_blank" title="订阅本站面最新帖子">RSS 2.0</a></div></xsl:if>
<xsl:if test="BoardList/forum_setting/@wap=1"><div 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="http://www.yisou.com/search?pid=400107_1006" target="_blank"><img src="http://server.dvbbs.net/dvbbs/yisou.gif" 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&pSearch=0&nSearch=0">查看新贴</a>
<font face="Wingdings" color="666666">v</font>
<a href="query.asp?stype=4&pSearch=0&nSearch=0">热门话题</a>
<font face="Wingdings" color="666666">v</font>
<a href="infolist.asp?t=toplist&orders=1">发贴排行</a>
<font face="Wingdings" color="666666">v</font>
<a href="infolist.asp?t=toplist&orders=7">用户列表</a>
</div>
</div>
</xsl:template>
<xsl:template name="userinfo">
<div style="float:left;width:80px;height:100px;overflow :hidden;"><a href="dispuser.asp?id={BoardList/userinfo/@userid}" title="查看我的信息"><img src="{BoardList/userinfo/@userface}" alt="查看我的信息" height="60" style="margin-top:12px;margin-left:2px;border:0px"/></a></div>
<div style="float:left;">
<div>您的帐号 <b><xsl:value-of select="BoardList/userinfo/@username" /></b>  <a href="usersms.asp?action=inbox">收件箱</a>
<xsl:choose>
  <xsl:when test="BoardList/userinfo/@usermsg !=''">
  <xsl:variable name="sendmsgnum" select="substring-before(BoardList/userinfo/@usermsg ,'||')"></xsl:variable>
  <xsl:variable name="sendmsgid" select="substring-before(substring-after(BoardList/userinfo/@usermsg ,'||') ,'||')"></xsl:variable>
  <xsl:variable name="sendmsguser" select="substring-after(substring-after(BoardList/userinfo/@usermsg ,'||') ,'||')"></xsl:variable>
  <xsl:choose>
  <xsl:when test="$sendmsgnum != 0 "><bgsound src="skins/default/mail.wav" />(<a href="javascript:openScript('messanger.asp?action=read&id={$sendmsgid}&sender={$sendmsguser}',500,400)"><font class="redfont"><xsl:value-of select="$sendmsgnum" /></font></a>)</xsl:when>
  <xsl:otherwise>(<font color="gray">0</font>) </xsl:otherwise>
  </xsl:choose>
  </xsl:when>
  <xsl:otherwise>
(<font color="gray">0</font>)
  </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&GroupID={.}"><xsl:value-of select="/BoardList/grouppic/usergroup[@usergroupid = $groupid]/@usertitle" /></a><br />
  </xsl:for-each>
</div>
</div>
<a onmouseover="showmenu(event,'','regroup')" style="cursor:hand">切换用户身份</a></xsl:if></div>
<hr/>
<div>注册：<b><xsl:value-of select="substring-before(BoardList/userinfo/@joindate,' ')" /></b> 登录 <b><xsl:value-of select="BoardList/userinfo/@userlogins" /></b> 次等级：<b><xsl:value-of select="BoardList/userinfo/@userclass" /></b></div>
<div>金钱：<b><xsl:value-of select="BoardList/userinfo/@userwealth" /></b> 积分：<b><xsl:value-of select="BoardList/userinfo/@userep" /></b> 魅力：<b><xsl:value-of select="BoardList/userinfo/@usercp" /></b></div>
<div>主题：<b><xsl:value-of select="BoardList/userinfo/@usertopic" /></b> 文章：<b><xsl:value-of select="BoardList/userinfo/@userpost" /></b> 精华：<font class="redfont"><b><xsl:value-of select="BoardList/userinfo/@userisbest" /></b></font> 被删：<b><xsl:value-of select="translate(BoardList/userinfo/@userdel,'-','')" /></b></div>
</div>
</xsl:template>
<xsl:template name="guest">
<div style="float:right;margin-right:20px;">
<div>欢迎访问 <b><xsl:value-of select="BoardList/forum_info/@forum_type"/></b> 您还没有［<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="BoardList/forum_setting/@logincheckcode=1"> 验证码：<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="http://www.dvbbs.net/passport/help.asp" target="_blank" title="注册论坛通行证可让您使用一个帐号通行于国内大部分的网络论坛社区，点击查看更详细帮助">通<xsl:text disable-output-escaping="yes" >&nbsp;</xsl:text>行<xsl:text disable-output-escaping="yes" >&nbsp;</xsl:text>证</a><xsl:text disable-output-escaping="yes" >&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" >&nbsp;&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="{@url}" title="{@readme}" target="_blank" ><xsl:value-of select="@boardname"/></a></div><xsl:if test="(position() mod 6)=0 "><br /></xsl:if>
</xsl:for-each>
</div>
<xsl:if test="count(BoardList/bbslink/link[@islogo=0]) mod 6 !=0"><br /></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="{@boardname}
{@readme}"> <a href="{@url}"  target="_blank" ><img border="0" src="{@logo}"  height="31" width="88" alt="{@boardname}
{@readme}" /></a></div><xsl:if test="(position() mod 6)=0 "><br /></xsl:if>
</xsl:for-each>
<xsl:if test="BoardList/bbslink/link[@islogo=1]"><br /></xsl:if>
</div>
</div>
<xsl:if test="BoardList/biruser">
<br />
<div class="th"><xsl:text disable-output-escaping="yes" >&nbsp;&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="{/BoardList/forum_setting/@pic_3}" alt="" />〖祝 <a href="dispuser.asp?name={@username}" title="祝{@age}岁生日快乐！" target="_blank"><xsl:value-of select="@username" /></a> 生日快乐〗
</div>
<xsl:if test="(position() mod 4)=0 or position()=last()"><br /></xsl:if>
</xsl:for-each>
</div>
</div>
</xsl:if>
</xsl:template>
<xsl:template name="index_bottom">
<br />
<div class="th"><xsl:text disable-output-escaping="yes" >&nbsp;&nbsp;</xsl:text>-=> 论坛在线情况 [<span id="showstr"><a href="online.asp?action=1&boardid=0" target="hiddenframe"><font id="ifOnlineStr">显示详细列表</font></a></span>] [<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;">
<font class="bluefont">■</font> 当前在线：<b><xsl:value-of select="BoardList/forum_info/@forum_online"/></b> 人<br />
<font class="bluefont">■</font> 在线会员：<b><xsl:value-of select="BoardList/forum_info/@forum_useronline"/></b> 人<br />
<font class="bluefont">■</font> 在线访客：<b><xsl:value-of select="BoardList/forum_info/@forum_guestonline"/></b> 人
</div>
<div style="float:left;width:30%;text-align : left;">
<font class="bluefont">■</font> 建站时间：<b><xsl:value-of select="BoardList/forum_info/@forum_createtime"/></b><br />
<font class="bluefont">■</font> 最高在线：<b><xsl:value-of select="BoardList/forum_info/@forum_maxonline"/></b> 人<br />
<font class="bluefont">■</font> 发生时间：<b><xsl:value-of select="BoardList/forum_info/@forum_maxonlinedate"/></b>
</div>
<div style="float:left;width:39%;text-align : left;">
<font class="bluefont">■</font> 您的IP是：<b><xsl:value-of select="BoardList/agent/@ip"/></b><br />
<font class="bluefont">■</font> 操作系统：<b><xsl:value-of select="BoardList/agent/@platform"/></b><br />
<font class="bluefont">■</font> 浏览器：<b><xsl:value-of select="concat(BoardList/agent/@browser,' ',BoardList/agent/@version)"/></b>
</div>
</div>
</div>
<div class="mainbar3">
<div style="padding:0px 10px 0px 10px;line-height:18px;height:18px;text-align : left;">
<font class="redfont">■ 在线图例</font>：<xsl:for-each select="BoardList/grouppic/usergroup[@orders!=0]"><img src="{/BoardList/@picurl}{@titlepic}" 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>
<br />
<div class="itableborder">
<img src="{/BoardList/forum_setting/@pic_0}" align="absmiddle" alt="没有新的帖子" /> 没有新的帖子　　<img src="{/BoardList/forum_setting/@pic_1}" align="absmiddle" alt="有新的帖子" /> 有新的帖子　　<img src="{/BoardList/forum_setting/@pic_2}"  align="absmiddle" alt="被锁定的论坛" /> 被锁定的论坛
</div>
</xsl:template>
</xsl:stylesheet>

姓名：(无权查看)
城市：(无权查看)
院校：(无权查看)

问题：
1、我想在登录论坛后增加个人信息显示项，如：在线时间。我在page_index的template.html(0)中<div>注册：<b><xsl:value-of select="substring-before(BoardList/userinfo/@joindate,' ')" /></b> 登录 <b><xsl:value-of select="BoardList/userinfo/@userlogins" /></b> 次等级：<b><xsl:value-of select="BoardList/userinfo/@userclass" /></b></div>后增加：
<div>在线时间：<b><xsl:value-of select="BoardList/userinfo/@onlinetime" /></b> </div>
在主页显示不出来，我想应该要在index.asp找到节点------BoardList/userinfo/位置，但找不到。
只看到一个装在语句： XMLStyle.loadxml template.html(0) ' Server.MapPath("index.xslt")
就搞不清楚他怎么产生节点------BoardList/userinfo.?
2、贵论坛好像也是用dvbbs的。我想增加个人信息的显项

在Dvbbs7.1版登录论坛后首页的《论坛和用户信息》那里与《注册：、登录  次、等级......》一起显示《在线时间》等一些我想增加的显项。并也在〈用户控制面板〉的〈基本信息〉中和发帖中与个人信息一起显示这些显项。

    请问：
           如何修改可以在这三个地方增加个人信息显示项？
      请站长、版主和高手帮帮忙！！！
我的QQ号是704480326，电子信箱：WWW.CX100NET@163.COM


	W 3 C h i n a ( since 2003 ) 旗下站点苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》	289.063ms