knowledge.XML文件

<?xml version="1.0" encoding="gb2312"?>
<?xml:stylesheet type="text/xsl" href="knowledge.xsl"?>
<Ebaihe name="Ebaihe" type="gs" id="gs000">
<知识管理 name="知识管理" type="rt" id="rt000">
  <目录 name="vc++" type="ml" id="ml003"/>
  <目录 name="asp" type="ml" id="ml001">
     <知识 name="什么是ASP 1" type="zs" id="zs001">
        <title>什么是ASP</title>
        <author>cxx</author>
        <adddate>2001-02-20</adddate>
        <content>ASP:Active Server Page</content>
     </知识>
     <知识 name="什么是ASP 2" type="zs" id="zs002">
        <title>什么是ASP</title>
        <author>cxx</author>
        <adddate>2001-02-20</adddate>
        <content>ASP:Active Server Page</content>
     </知识>
  </目录>
  <目录 name="vbs" type="ml" id="ml002">
     <知识 name="什么是vbs 1" type="zs" id="zs003">
        <title>什么是ASP</title>
        <author>cxx</author>
        <adddate>2001-02-20</adddate>
        <content>ASP:Active Server Page</content>
     </知识>
     <知识 name="什么是vbs 2" type="zs" id="zs004">
        <title>什么是ASP</title>
        <author>cxx</author>
        <adddate>2001-02-20</adddate>
        <content>ASP:Active Server Page</content>
     </知识>
  </目录>
</知识管理>
<留言簿 name="留言簿" type="ly" id="ly000">
  <单元 name="你好" type="dy" id="dy001">
     <留言 name="Who are you" type="zs" id="zs005">
        <title>什么是ASP</title>
        <author>cxx</author>
        <adddate>2001-02-20</adddate>
        <content>ASP:Active Server Page</content>
     </留言>
     <留言 name="你好" type="zs" id="zs006">
        <title>什么是ASP</title>
        <author>cxx</author>
        <adddate>2001-02-20</adddate>
        <content>ASP:Active Server Page</content>
     </留言>
  </单元>
  <单元 name="我的留言" type="dy" id="dy003"/>
</留言簿>
<留言簿 name="留言簿" type="ly" id="ly001"/>
</Ebaihe>

bianli.asp文件

<% @LANGUAGE=VBScript%>
<%
function getimgstr(ttid,ttname,ttlvl,tttype,ttlf,ttlstr)
   dim ttstr1
   if ttlvl=0 then
         ttstr1=ttstr1 & "<a href=" & chr(34) & "#" & chr(34)
         ttstr1=ttstr1 & " onclick=" & chr(34) & "call OnClickDiv('" & ttid & "','" & "2" & "')"
         ttstr1=ttstr1 & chr(34) & ">"
         ttstr1= ttstr1 & "<img border=" & chr(34) & "0" & chr(34) & " src=" & chr(34)
         ttstr1= ttstr1 & "image/Computer.gif" & chr(34) & " height=16>" & "</a>"
         ttstr1=ttstr1 & "<a href=" & chr(34) & "#" & chr(34)
         ttstr1=ttstr1 & " onclick=" & chr(34) & "call OnClickDiv('" & ttid & "','" & "2" & "')"
         ttstr1=ttstr1 & chr(34) & ">"
         ttstr1=ttstr1 & ttname & "</a><br>" & vbcrlf
         ttstr1=ttstr1 & "<div id=" & chr(34) & ttid & chr(34) & " style=display:none>" & vbcrlf
   else
      for i= 2 to len(ttlstr)-1
         if mid(ttlstr,i,1)="1" then
            ttstr1 = ttstr1 & "<img border=" & chr(34) & "0" & chr(34) & " src=" & chr(34)
            ttstr1 = ttstr1 & "image/I-line.gif" & chr(34) & " height=16>"
         end if
         if mid(ttlstr,i,1)="0" then
            ttstr1 = ttstr1 & "<img border=" & chr(34) & "0" & chr(34) & " src=" & chr(34)
            ttstr1 = ttstr1 & "image/none.gif" & chr(34) & " height=16>"
         end if
      next
      if tttype=1 then
         ttstr1= ttstr1 & "<a href=" & chr(34) & "#" & chr(34)
         ttstr1=ttstr1 & " onclick=" & chr(34) & "call OnClickDiv('" & ttid & "','" & ttlf & "')"
         ttstr1=ttstr1 & chr(34) & ">"
         ttstr1=ttstr1 & "<img border=" & chr(34) & "0" & chr(34) & " src=" & chr(34)
         if ttlf=0 then
            ttstr1= ttstr1 & "image/T-plus.gif" & chr(34) & " id=" & chr(34) & "l-" & ttid & chr(34) & "
height=16></a>"
         else
            ttstr1= ttstr1 & "image/l-plus.gif" & chr(34) & " id=" & chr(34) & "l-" & ttid & chr(34) & "
height=16></a>"
         end if
         ttstr1= ttstr1 & "<a href=" & chr(34) & "#" & chr(34)
         ttstr1=ttstr1 & " onclick=" & chr(34) & "call OnClickDiv('" & ttid & "','" & ttlf & "')"
         ttstr1=ttstr1 & chr(34) & ">"
         ttstr1=ttstr1 & "<img border=" & chr(34) & "0" & chr(34) & " src=" & chr(34)
         ttstr1= ttstr1 & "image/c-fold.bmp" & chr(34) & " id=" & chr(34) & "p-" & ttid & chr(34) & "
height=16></a>"
         ttstr1= ttstr1 & "<a href=" & chr(34) & "#" & chr(34)
         ttstr1=ttstr1 & " onclick=" &chr(34) & "call OnClickDiv('" & ttid & "','"

[1] [2] 下一页

	输入您的搜索字词 提交搜索表单
	军旅同心论坛 军旅同心博客 军旅同心网