search.asp

服务器目录索引工具源代码

<%response.buffer = true%>
<style>
a{text-decoration:none}
a:hover{text-decoration:underline}
</style>
<%
'xmlDom object
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.async = False
'load the xml menu file
objXML.Load(Server.MapPath("data/mysites.xml"))
Dim strSearch, objXML, rootNode, childNode, match
strSearch = Request.querystring("topic")
Set objLst = objXML.getElementsByTagName("site")
 'how many items
 intNoOfHeadlines = objLst.length
 'looping over the items -1 because it's starts from 0
 Response.Write "<table  border=0 >"
	response.write "<tr align=center bgcolor=Aqua><td><B>Topic</B></td><td><B>Name</b></td><td><B>Url</B></td></tr>"
 for i = 0 to intNoOfHeadlines-1
 	Set objHdl = objLst.item(i)
	'if the topic childnode is = to the search criteria then print it
	if objHdl.childNodes(0).text = strSearch then
	response.write "<tr bgcolor=silver><td>" & objHdl.childNodes(0).text & "</td>"
	response.write "<td>" & "<a href='"& objHdl.childNodes(2).text &"'>" & objHdl.childNodes(1).text & "</a></td>"
	response.write "<td>" & objHdl.childNodes(2).text & "</td></tr>"
	end if
 Next
 response.write "</table>"
 	response.write "<br><a href='add.asp'>Add Site</a>"

%>