IIS5 + ADO 2.5新先睹为快技术(一)

非晨勿扰518

非晨勿扰518

2016-01-29 17:56

IIS5 + ADO 2.5新先睹为快技术(一),IIS5 + ADO 2.5新先睹为快技术(一)
    在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
<LIiis
<UL
<LIsdk
<UL
<LIadmin
<UL
<LImkwebsrv.vbs
<LImkwebsrv.js
<LImetabackrest.vbs
<LImetabackrest.js
<LImetaback.vbs
<LImetaback.js
<LIlogenum.vbs
<LIlogenum.js
</UL
<LIasp
<UL
<LIapplications
<UL
<LISession_VBScript.asp
<LISession_Jscript.asp
<LIApplication_VBScript.asp
<LIApplication_Jscript.asp
</UL
<LIcomponents
<UL
<LIredirect.asp
<LInts_iis.gif
<LIie.gif
<LIclientcap.htm
<LIBrowserCap_VBScript.asp
<LIBrowserCap_Jscript.asp
<LIAdRotator_VBScript.asp
<LIAdRotator_Jscript.asp
<LIadrot.txt
</UL
<LIdatabase
<UL
<LIUpdate_VBScript.asp
<LIUpdate_Jscript.asp
<LIStoredProcedures_VBScript.asp
<LIStoredProcedures_Jscript.asp
<LISimpleQuery_VBScript.asp
<LISimpleQuery_Jscript.asp
<LIMultiScrolling_VBScript.asp
<LIMultiScrolling_Jscript.asp
<LILimitRows_VBScript.asp
<LILimitRows_Jscript.asp
<LIAuthors.mdb
<LIAddDelete_VBScript.asp
<LIAddDelete_Jscript.asp
</UL
<LIdocs
<UL
<LItoolbar.asp
<LIsampfram.asp
<LIlibcodebrws.inc
<LI>
展开更多 50%)
分享

猜你喜欢

IIS5 + ADO 2.5新先睹为快技术(一)

ASP
IIS5 + ADO 2.5新先睹为快技术(一)

IIS5 + ADO 2.5新先睹为快技术(二)

ASP
IIS5 + ADO 2.5新先睹为快技术(二)

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

ASP 3.0 新特色先睹为快(一)

ASP
ASP 3.0 新特色先睹为快(一)

ASP 3.0 新特色先睹为快(二)

ASP
ASP 3.0 新特色先睹为快(二)

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

Delphi2007 先睹为快!

编程语言 网络编程
Delphi2007 先睹为快!

Win10 Build 9926新UI先睹为快

电脑入门
Win10 Build 9926新UI先睹为快

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

大部分的ADO的错误码对应的含义

大部分的ADO的错误码对应的含义

组件对象开发Web应用的实例分析

组件对象开发Web应用的实例分析
下拉加载更多内容 ↓