as.Text)); //建立虚拟目录，别名为edtAlias.Text
except
Application.MessageBox('这个别名已经存在，请选择另外的别名！','警告');
Exit;
end; //try except
ADs.Put('AccessRead', cbRead.Checked); //设定各参数
ADs.Put('AccessWrite', cbWrite.Checked);
ADs.put('AccessScript',cbScript.Checked);
ADs.Put('AccessExecute',cbExecute.Checked);
ADs.put('EnableDirBrowsing',cbBrowse.Checked);
ADs.Put('Path', edtPath.text);
ADs.Put('DefaultDoc','Default.asp, Default.html, Default.htm, ndex.asp, Index.html, Index.htm, Home.asp, Home.Html, Home.htm');
ADs.Put('EnableDefaultDoc',True);//允许打开默认页码：[1] [2] [3] [4] [5] [6] 第5页、共6页 |
