如何建立web站点，并在执行许可中设置成“纯脚本和可执行程序”

如何建立web站点，并在执行许可中设置成“纯脚本和可执行程序”，同时属性设置成可以浏览、写入！ 问题点数：20、回复次数：5Top

1 楼XLYT（雨田）回复于 2004-09-03 17:07:37 得分 0

Windows2000的Internet信息服务里可以设置这些东西。Top

2 楼jl_ytl（龙龙）回复于 2004-09-06 08:33:00 得分 0

用vb脚本实现！Top

3 楼online（龙卷风V4.0--决战江湖(MS MVP-VB)）回复于 2004-09-06 12:42:39 得分 20

参考以下  
  Public   Function   WebVirtualDir(ByVal   strWebSite   As   String,   ByVal   strFriendlyName   As   String,   ByVal   strWebPath   As   String,   ByVal   strDefaultDoc   As   String)   As   Boolean  
  Dim   objADSI   As   Object  
  Dim   objWebVDir   As   Object  
  On   Error   GoTo   Lib_Err  
  Set   objADSI   =   GetObject("IIS://LocalHost/W3SVC/1/Root")  
  Set   objWebVDir   =   objADSI.Create("IIsWebVirtualDir",   strWebSite)  
  objWebVDir.SetInfo  
  Set   objWebVDir   =   objADSI.GetObject("IIsWebVirtualDir",   strWebSite)  
  objWebVDir.AppCreate   True  
  objWebVDir.Put   "AppFriendlyName",   strFriendlyName  
  objWebVDir.Put   "AppRoot",   "/LM/W3SVC/1/Root/"   &   strWebSite  
  objWebVDir.Put   "Path",   strWebPath  
  objWebVDir.Put   "AppIsolated",   0  
  objWebVDir.Put   "DefaultDoc",   strDefaultDoc  
  objWebVDir.Put   "AccessFlags",   535  
  objWebVDir.SetInfo  
  WebVirtualDir   =   True  
  Lib_End:  
  Set   objWebVDir   =   Nothing  
  Set   objADSI   =   Nothing  
  Exit   Function  
  Lib_Err:  
  WebVirtualDir   =   False  
  strError   =   Err.Description  
  Err.Clear  
  Resume   Lib_End  
  End   Function  
   
  Private   Sub   Command2_Click()  
  Call   WebVirtualDir("aa",   "aa",   "E:\",   "Default.asp")  
  End   Sub  
  Top

4 楼jl_ytl（龙龙）回复于 2004-09-07 08:49:56 得分 0

在执行许可中设置成“纯脚本和可执行程序”，Top

5 楼jl_ytl（龙龙）回复于 2004-09-24 09:39:13 得分 0

?Top

相关问题

• 执行
• objwebvdir
• objadsi
• strwebsite
• 设置成
• put
• byval

• 帖主：jl_ytl
• online

• Visual Basic类图书
• Visual Basic类源码下载