24小时热门版块排行榜

返回列表

当前主题已经存档。

zsglly

木虫 (著名写手)

应助: 0 (幼儿园)
贵宾: 0.15
金币: 2268.7
帖子: 1035
在线: 4.1小时
虫号: 83160
注册: 2005-07-28
性别: GG
专业: 传热传质学

[交流] 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人回复
请教限项目规定已经有3人回复
存款400万可以在学校里躺平吗已经有15人回复
Materials Today Chemistry审稿周期已经有6人回复
基金委咋了？2026年的指南还没有出来？已经有10人回复
基金申报已经有6人回复
推荐一本书已经有13人回复
国自然申请面上模板最新2026版出了吗？已经有17人回复
纳米粒子粒径的测量已经有8人回复
疑惑？已经有5人回复

做人要厚道啊！厚道啊！

1楼 2005-12-31 17:17:35

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

相关版块跳转我要订阅楼主 zsglly 的主题更新

返回列表