conn.asp不再贴出。
这里从数据库中读出目录名
处理 SSI 文件时出错
0 Then Rs.MoveNext
name=name server.htmlencode(Trim(Rs("SUname")))
%>
Class Must Have Property
Root Virtual Directory Current value
(" Cstr(i) ") " _
Thing "" vRoot.Get(Thing) _
""
i = i + 1
Next
%>
Class May Have Property
当前站点
(" 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站点相关的库，不是你的用户数据表
%>
另外，还有利用adsi进行站点设置比如建站点，删除站点，配置站点IP，主机头，默认文档的等等，这里不做下载，有兴趣的朋友可以到微软站点下载 adsiSDK 的开发文档深入。
http://m.hzclsc.cn/ruanjianzixun/28281.html
推荐访问:
