高份收购，比较有挑战行（300）（要被抄了，救我啊）

xzm2000 2001-12-17 02:04:08

以下是在iis中建虚拟目录的代码
var
WebSite, WebServer, WebRoot, VDir: Variant;
begin
WebSite := CreateOleObject('IISNamespace');
WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc');
WebServer := WebSite.GetObject('IIsWebServer', '1');
WebRoot := WebServer.GetObject('IIsWebVirtualDir', 'Root');
VDir := WebRoot.Create('IIsWebVirtualDir', 'xzm1');
VDir.AccessRead := True;
VDir.Path := 'd:\';
VDir.SetInfo;

现在要做的是在iis中建一个web站点，请给我提供资料，谢谢

...全文

67 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

gxgxfish0813 2001-12-17

打赏
举报

UPUUP

xzm2000 2001-12-17

打赏
举报

完玩了

38 2001-12-17

打赏
举报

38 2001-12-17

打赏
举报

u p

抱朴守拙 2001-12-17

打赏
举报

U P

cobi 2001-12-17

打赏
举报

procedure TForm3.BitBtn4Click(Sender: TObject);
var
Disp: IDispatch;
begin
Disp := IISNamespace1.GetObject('IIsWebService', 'localhost/w3svc');
Disp := (Disp as IADsContainer).GetObject('IIsWebServer', '1');
Disp := (Disp as IADsContainer).GetObject('IIsWebVirtualDir', 'Root');
Disp := (Disp as IADsContainer).Create('IIsWebVirtualDir', 'DelphiADSITest');
(Disp as IADs).Put('AccessRead', 'True');
(Disp as IADs).Put('Path', 'c:\ADSITest');
(Disp as IADs).SetInfo;
end;

2、使用Variant(就是类似VB和ASP的方法)
procedure TForm2.BitBtn1Click(Sender: TObject);
var
WebSite, WebServer, WebRoot, VDir: Variant;
begin
WebSite := CreateOleObject('IISNamespace');
WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc');
WebServer := WebSite.GetObject('IIsWebServer', '1');
WebRoot := WebServer.GetObject('IIsWebVirtualDir', 'Root');
VDir := WebRoot.Create('IIsWebVirtualDir', 'VariantTest');
VDir.AccessRead := True;
VDir.Path := 'C:\Test';
VDir.SetInfo;
end;

详细内容请看
http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=468148