用ADSI编程实现IIS中建立虚拟目录
-
conn.asp不再贴出。
这里从数据库中读出目录名
<%
'response.end '//这是做调试时用的
on error resume next
Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.ActiveConnection = MyConnection
Sql="select * from 你的表名 where 你指定的条件"
Rs.Open Sql,,1,2
If Rs.Eof Then Response.End '//如果无符合条件记录，则停止
Rs.MoveFirst
dim namestr '//定义虚拟目录名变量
Do while not rs.eof
if instr(1,namestr,server.htmlencode(Trim(Rs("SUname"))))<>0 Then Rs.MoveNext
name=name&server.htmlencode(Trim(Rs("SUname")))
%>
<%
sComputer ="localhost"
sPhyDir = "X:\test\" & server.htmlencode(Trim(Rs("SUname"))) '//这里定义虚拟目录指向的物理路径
sVirDir = server.htmlencode(Trim(Rs("Suname"))) '//这里定义虚拟目录名
set websvc = GetObject("IIS://" & sComputer & "/W3svc/1") '//获得你当前站点对象。若有多个站点，那么改动后面1为2,3...即可指向其它的
set vRoot = websvc.GetObject("IIsWebVirtualDir", "Root") '//获得当前站点虚拟ROOT
Set ClassDefinition = GetObject(vRoot.Schema) '//获得虚拟目录的类定义
asMustHaves = ClassDefinition.MandatoryProperties
asMayHaves = ClassDefinition.OptionalProperties
i=1
%>Class Must Have Property Root Virtual Directory Current value
<%
on error resume next
For Each Thing in asMustHaves
Response.Write "("& Cstr(i) & ") " &_
Thing & "" & vRoot.Get(Thing) &_
"
i = i + 1
Next
%>
Class May Have Property 当前站点
<%
i=1
For Each Thing in asMayHaves
Response.Write "("& CStr(i) & ") " &_
Thing & "" & vRoot.Get(Thing) &_
"
i = i + 1
Next
on error goto 0
'//建立虚拟目录
Response.Write svirdir & "
"
Set vDir = vRoot.Create("IIsWebVirtualDir",sVirDir)
'//设置虚拟目录的两个属性，这里设置可读属性和将虚拟目录的路径指向物理路径
vDir.AccessRead = true
vDir.Path = sPhyDir
vDir.SetInfo '//将信息写入库，指的IIS站点相关的库，不是你的用户数据表
%>
<%
Rs.Movenext
Loop
Rs.Close
Response.Write "创建虚拟目录完成!"
%>
另外，还有利用adsi进行站点设置比如建站点，删除站点，配置站点IP，主机头，默认文档的等等，这里不做下载，有兴趣的朋友可以到微软站点下载 adsiSDK 的开发文档深入。
相关视频
相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么
- 文章评论
-
热门文章 没有查询到任何记录。
最新文章
VB.NET 2005编写定时关
Jquery get/post下乱码解决方法 前台gbk gb如何使用数据绑定控件显示数据ASP脚本循环语句ASP怎么提速人气排行 轻松解决"Server Application Error"和iis"一起学习DataGridView调整列宽用ASP随机生成文件名的函数Jquery get/post下乱码解决方法 前台gbk gbODBC Drivers错误80004005的解决办法返回UPDATE SQL语句所影响的行数的方法用Javascript隐藏超级链接的真实地址两个不同数据库表的分页显示解决方案
查看所有0条评论>>