| 查看: 183 | 回复: 0 | |||
| 当前主题已经存档。 | |||
zsglly木虫 (著名写手)
|
[交流]
c++ 建立虚拟站点
|
||
|
BOOL FO_CreateVirtualSite(LPCTSTR lpszVirtualDirName,LPCTSTR lpszDiskPath,LPCTSTR lpszSitePath) { IADsContainer* iContainer; IADs* iAds; /* 获得WebSever */ if(ADsGetObject(L"IIS://localhost/",IID_IADsContainer,(void**)&iContainer)==S_OK) { // LONG g=0; // iContainer->get__NewEnum // iContainer->get_Count(&g); //此处是可以通过枚举的方式获得。此处没有具体实现所以本例只能建立一个站点。 LONG i =20; char c[10]; ZeroMemory((PVOID)c,10); itoa(i,c,10); //建立虚拟站点 if(iContainer->Create(L"IIsWebServer", _bstr_t(c),(IDispatch**)&iAds)==S_OK) { //设置虚拟站点的属性 VARIANT var; VariantInit(&var); V_BSTR(&var) = SysAllocString(_bstr_t(lpszDiskPath)); V_VT(&var) = VT_BSTR; iAds->Put(L"ServerComment", var); //设置站点名 VariantClear(&var); V_BSTR(&var) = SysAllocString(L":9999:"  ; V_VT(&var) = VT_BSTR; iAds->Put(L"Serverbindings", var); // //设置站点端口号 VariantClear(&var); V_BSTR(&var) = SysAllocString(L"default.asp,index.asp,default.htm,index.htm" ; V_VT(&var) = VT_BSTR; iAds->Put(L"DefaultDoc", var);//设置默认启动文件 VariantClear(&var); V_BSTR(&var) = SysAllocString(L"True" ; V_VT(&var) = VT_BOOL; iAds->Put(L"AccessScript", var); // 设置读取权限 iAds->Put(L"AccessRead",var); iAds->Put(L"AccessWrite",var); VariantClear(&var); V_UI4(&var) = 1; //DWORD类型 V_VT(&var) = VT_UI4; iAds->Put(L"ServerAutoStart", var);// VariantClear(&var); iAds->SetInfo(); if(ADsGetObject(L"IIS://localhost/w3svc",IID_IADsContainer,(void**)&iContainer)==S_OK) { if (iContainer->GetObject(L"IIsWebServer", _bstr_t(c),(IDispatch**)&iAds)==S_OK) { if(iAds->QueryInterface(IID_IADsContainer,(void**)&iContainer)==S_OK) { ////创建新站点root目录 if(iContainer->Create(L"IIsWebVirtualDir", L"Root",(IDispatch**)&iAds) == S_OK) { //设置新站点的根目录 V_BSTR(&var) = SysAllocString(_bstr_t(lpszSitePath)); V_VT(&var) = VT_BSTR; iAds->Put(L"AppCreate", var); iAds->Put(L"Path",var); } } } } iAds->SetInfo(); //打扫卫生 iAds->Release(); iContainer->Release(); iContainer->Release(); return TRUE; } else { //同上，不过没利索 iContainer->Release(); return FALSE; } //同同上 iContainer->Release(); } return FALSE; } [ Last edited by 幻影无痕 on 2006-11-27 at 08:17 ] |
回复此楼» 猜你喜欢
中青基了要发朋友圈吗？
已经有7人回复
-
有多少人是今天查系统知道结果的？
已经有19人回复
-
29号明天会评吗
已经有4人回复
-
国社科又开始会评了，不知道这次命运如何
已经有10人回复
-
梦想
已经有4人回复
-
基金不中，共勉
已经有12人回复
-
能否申诉？
已经有7人回复
-
面上意见出来了
已经有19人回复
-
为什么到现在没收到通知？
已经有5人回复
-
有没有仍没收到信息的
已经有8人回复
投票:
10