|
在IIS5(就是安装了Win2000)中自带了新的ADO 2.5版本尤其 增加了对XML技术的支持，并且带入了许多崭新的技术，这些技术可以 帮助我们实现以前必须要依靠组件或者其它技术才能够实现的功能。 我这里做一个简单的介绍让大家对这个新的Web组合有所了解。 从这可以看出，学习和掌握XML技术已经迫在眉睫了。欢迎大家到隔壁 的XML学习园地作客。。。 新技术之一： ADO中新增加了一个Record对象（别和RecordSet对象混淆了）。。。 它可以操纵服务器上的任何文件。。。 下面是它运用的事例： <% Dim recRoot Dim rsFiles Set recRoot = Server.CreateObject("ADODB.Record") '注意打开的URL必须是运行IIS5中或者支持WebDAV服务， '至于什么是WebDAV请到隔壁去看看把 recRoot.open "", "URL=http://localhost/iis", adModeRead Response.Write "<UL>" & Chr(13) & Chr(10) TraverseTree recRoot Response.Write "</ul>" & Chr(13) & Chr(10) recRoot.Close set recRoot = Nothing Sub TraverseTree(recNode) Dim rsChildren Dim recChildNode Set recChildNode = Server.CreateObject("ADODB.Record") Response.Write "<LI>" & recNode("RESOURCE_PARSENAME") & Chr(13) & Chr(10) Set rsChildren = recNode.GetChildren If Not rsChildren.EOF Then Response.Write "<UL>" & Chr(13) & Chr(10) While Not rsChildren.EOF If rsChildren("RESOURCE_ISCOLLECTION") Then recChildNode.Open rsChildren TraverseTree recChildNode recChildNode.Close Else Response.Write "<LI>" & rsChildren("RESOURCE_PARSENAME") & Chr(13) & Chr(10) End If rsChildren.MoveNext Wend Response.Write "</UL>" & Chr(13) & Chr(10) End If rsChildren.Close Set rsChildren = Nothing Set recChildNode = Nothing End Sub %> 考虑到很多人目前没有安装Win2000，所以我把运行结果也给出来了， 大家可以看到代码运行的结果。。。 注意要想得到正确的结果必须要让iis目录可以Directory Browing <UL> |