IIS5 + ADO 2.5新先睹为快技术（一）

在IIS5(就是安装了Win2000)中自带了新的ADO 2.5版本尤其
增加了对XML技术的支持，并且带入了许多崭新的技术，这些技术可以
帮助我们实现以前必须要依靠组件或者其它技术才能够实现的功能。
我这里做一个简单的介绍让大家对这个新的Web组合有所了解。
从这可以看出，学习和掌握XML技术已经迫在眉睫了。欢迎大家到隔壁
的XML学习园地作客。。。
新技术之一：
ADO中新增加了一个Record对象（别和RecordSet对象混淆了）。。。
它可以操纵服务器上的任何文件。。。
下面是它运用的事例：

 1   
 2Dim recRoot   
 3Dim rsFiles   
 4  
 5Set recRoot = Server.CreateObject("ADODB.Record")   
 6  
 7'注意打开的URL必须是运行IIS5中或者支持WebDAV服务，   
 8'至于什么是WebDAV请到隔壁去看看把   
 9recRoot.open "", "URL=http://localhost/iis", adModeRead   
10Response.Write "

<ul>" & Chr(13) & Chr(10)
TraverseTree recRoot
Response.Write "</ul>

 1" & Chr(13) & Chr(10)   
 2recRoot.Close   
 3set recRoot = Nothing   
 4  
 5Sub TraverseTree(recNode)   
 6  
 7Dim rsChildren   
 8Dim recChildNode   
 9Set recChildNode = Server.CreateObject("ADODB.Record")   
10  
11Response.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 "</li></ul>" & Chr(13) & Chr(10)
End If
rsChildren.Close
Set rsChildren = Nothing
Set recChildNode = Nothing
End Sub

  1  
  2考虑到很多人目前没有安装Win2000，所以我把运行结果也给出来了，   
  3大家可以看到代码运行的结果。。。   
  4注意要想得到正确的结果必须要让iis目录可以Directory Browing   
  5<ul>
  6<li>iis   
  7<ul>
  8<li>sdk   
  9<ul>
 10<li>admin   
 11<ul>
 12<li>mkwebsrv.vbs   
 13<li>mkwebsrv.js   
 14<li>metabackrest.vbs   
 15<li>metabackrest.js   
 16<li>metaback.vbs   
 17<li>metaback.js   
 18<li>logenum.vbs   
 19<li>logenum.js   
 20</li></li></li></li></li></li></li></li></ul>
 21<li>asp   
 22<ul>
 23<li>applications   
 24<ul>
 25<li>Session_VBScript.asp   
 26<li>Session_Jscript.asp   
 27<li>Application_VBScript.asp   
 28<li>Application_Jscript.asp   
 29</li></li></li></li></ul>
 30<li>components   
 31<ul>
 32<li>redirect.asp   
 33<li>nts_iis.gif   
 34<li>ie.gif   
 35<li>clientcap.htm   
 36<li>BrowserCap_VBScript.asp   
 37<li>BrowserCap_Jscript.asp   
 38<li>AdRotator_VBScript.asp   
 39<li>AdRotator_Jscript.asp   
 40<li>adrot.txt   
 41</li></li></li></li></li></li></li></li></li></ul>
 42<li>database   
 43<ul>
 44<li>Update_VBScript.asp   
 45<li>Update_Jscript.asp   
 46<li>StoredProcedures_VBScript.asp   
 47<li>StoredProcedures_Jscript.asp   
 48<li>SimpleQuery_VBScript.asp   
 49<li>SimpleQuery_Jscript.asp   
 50<li>MultiScrolling_VBScript.asp   
 51<li>MultiScrolling_Jscript.asp   
 52<li>LimitRows_VBScript.asp   
 53<li>LimitRows_Jscript.asp   
 54<li>Authors.mdb   
 55<li>AddDelete_VBScript.asp   
 56<li>AddDelete_Jscript.asp   
 57</li></li></li></li></li></li></li></li></li></li></li></li></li></ul>
 58<li>docs   
 59<ul>
 60<li>toolbar.asp   
 61<li>sampfram.asp   
 62<li>libcodebrws.inc   
 63<li>ColorPicker.asp   
 64<li>CodeBrws.asp   
 65</li></li></li></li></li></ul>
 66<li>interaction   
 67<ul>
 68<li>ServerVariables_VBScript.asp   
 69<li>ServerVariables_Jscript.asp   
 70<li>Redirect_VBScript.asp   
 71<li>Redirect_Jscript.asp   
 72<li>QueryString_VBScript.asp   
 73<li>QueryString_Jscript.asp   
 74<li>PopulateForm_VBScript.asp   
 75<li>PopulateForm_Jscript.asp   
 76<li>Pics_VBScript.asp   
 77<li>Pics_Jscript.asp   
 78<li>Logon_VBScript.asp   
 79<li>Logon_Jscript.asp   
 80<li>Form_VBScript.asp   
 81<li>Form_Jscript.asp   
 82<li>FileList.txt   
 83<li>Expire_VBScript.asp   
 84<li>Expire_Jscript.asp   
 85<li>Cookie_VBScript.asp   
 86<li>Cookie_Jscript.asp   
 87<li>ClientScript_VBScript.asp   
 88<li>ClientScript_Jscript.asp   
 89</li></li></li></li></li></li></li></li></li></li></li></li></li></li></li></li></li></li></li></li></li></ul>
 90<li>simple   
 91<ul>
 92<li>Variables_VBScript.asp   
 93<li>Variables_Jscript.asp   
 94<li>Looping_VBScript.asp   
 95<li>Looping_Jscript.asp   
 96<li>Includes_VBScript.asp   
 97<li>Includes_Jscript.asp   
 98<li>HeaderInfo.asp   
 99<li>Functions_VBScript.asp   
100<li>Functions_Jscript.asp   
101<li>Conditional_VBScript.asp   
102<li>Conditional_Jscript.asp   
103<li>Arrays_VBScript.asp   
104<li>Arrays_Jscript.asp   
105</li></li></li></li></li></li></li></li></li></li></li></li></li></ul>
106<li>transactional   
107<ul>
108<li>SimpleTransaction_VBScript.asp   
109<li>SimpleTransaction_Jscript.asp   
110<li>FundTransfer_VBScript.asp   
111</li></li></li></ul>
112</li></li></li></li></li></li></li></ul>
113</li></li></ul>
114<li>homepage   
115<ul>
116<li>themes   
117<ul>
118<li>gunmetal   
119<ul>
120<li>setup.inc   
121<li>layout.inc   
122<li>layout.css   
123<li>gradient.gif   
124</li></li></li></li></ul>
125<li>journal   
126<ul>
127<li>setup.inc   
128<li>rip3.gif   
129<li>rip2_2.gif   
130<li>layout.inc   
131<li>layout.css   
132</li></li></li></li></li></ul>
133<li>looseleaf   
134<ul>
135<li>setup.inc   
136<li>layout.inc   
137<li>layout.css   
138</li></li></li></ul>
139</li></li></li></ul>
140<li>themes.inc   
141<li>theme.inc   
142<li>sub.inc   
143<li>signbook.asp   
144<li>myfiles.asp   
145<li>guestbk.asp   
146<li>global.asa   
147<li>file.gif   
148<li>default.asp   
149<li>bullet.gif   
150</li></li></li></li></li></li></li></li></li></li></li></ul>
151<li>global.asa   
152</li></li></li></ul>
153</li></ul></li>