index.asp

多多

<%
' Use of this software is permitted, provided that the code is NOT 
' modified without written permission of Yansa Inc. (http://www.yasna.com)

' THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
' WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
' OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
' DISCLAIMED.  IN NO EVENT SHALL THE APACHE SOFTWARE FOUNDATION OR
' ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
' SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
' LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
' USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
' ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
' OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
' OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
' SUCH DAMAGE.

Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1 

 'declaring variables
 Dim objXML
 Dim node,cnode,newnode
 Dim counter
 Dim objNode
 Dim root
 Dim strXMLFile
 Dim nodeid,maxid
 'informing the XML file name  
 strXMLFile = server.MapPath("xml/intranet.xml")
 'starting XMLDOM
 set objXML = Server.CreateObject("Msxml2.DOMDocument")
 'turning off asynchronous loading
 objXML.async = false
 'loading the XML file
 objXML.load(strXMLFile)
%>
<!-- #include file="header.html" -->

<%
 Set root = objXML.documentElement
 Set objNode = root.childNodes 
 nodeid = "0"
 maxid = 0
 nodeid = Request.QueryString("id")
 if nodeid = "" then
 	nodeid="0"
end if
 For Each node In objNode
 	if node.attributes.item(0).value > maxid then
		maxid = node.attributes.item(0).value
	end if
 	if node.attributes.item(0).value = nodeid then
%>
<div class="whereyouare">You are here: <span class="whereyouaretext"><%=node.childNodes.item(0).Text%></span></div>
<table width="100%" border="0" cellspacing="0" cellpadding="5">
  <tr><td><br></td></tr>

<%
		For Each cnode In node.childNodes.item(1).childNodes
%>
  <tr valign="top" align="left"> 
    <td width="207" bgcolor="#FFFFFF" height="0"><font SIZE="2" color="#0000FF" face="Arial">

<%
		if cnode.childNodes.item(1).attributes.item(0).value = 0 then
			Response.write "<a href=""index.asp?id="& cnode.childNodes.item(1).Text &""">"&cnode.childNodes.item(0).Text &"</a></font></td></tr>" &vbCRLF 
		else
			Response.write "<a href=""docs/"& cnode.childNodes.item(1).Text &""">"&cnode.childNodes.item(0).Text &"</a></font></td></tr>" &vbCRLF 
		end if
		Next
%>
	</table>
<%

	end if
 Next

response.write "<p style=""font-family : Arial, Helvetica, sans-serif;font-size : 10px;font-weight : bold;color : 666666;"">This site is powered by <a href=""http://www.yasna.com"">Yasna Inc.</a></p>"
%>
<!-- #include file="footer.html" -->