24小时热门版块排行榜    

查看: 182  |  回复: 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 ]
回复此楼
做人要厚道啊!厚道啊!
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 zsglly 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +3 G6APbkg8SA6w 2026-08-29 6/300 2026-08-31 01:48 by hZiFeudZyoGR
[找工作] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +6 gy1nBQXYQJqL 2026-08-29 9/450 2026-08-31 01:16 by hZiFeudZyoGR
[基金申请] 投票:  有多少人是今天查系统知道结果的? +17 爱看书的可乐 2026-08-26 19/950 2026-08-30 22:24 by xiangy672
[基金申请] 国社科又开始会评了,不知道这次命运如何 +5 雨打竹帘 2026-08-30 9/450 2026-08-30 22:23 by 余韵清
[考博] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +3 4FFAWE8HcgUD 2026-08-29 3/150 2026-08-30 20:19 by hZiFeudZyoGR
[考研] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +3 jCd0dEvKHShX 2026-08-29 5/250 2026-08-30 19:37 by hZiFeudZyoGR
[找工作] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +3 jCd0dEvKHShX 2026-08-29 4/200 2026-08-30 19:35 by hZiFeudZyoGR
[基金申请] 我就是申请一个面上项目而已,这评审意见是按照杰青的条件评的吧? +6 gouxfjh 2026-08-28 11/550 2026-08-30 07:57 by gouxfjh
[基金申请] 国自然面上复盘~欢迎讨论 (金币+15) +15 晴天加油 2026-08-26 16/800 2026-08-29 18:28 by symmetry
[基金申请] 国自然评审意见 +13 wangmingqi 2026-08-28 19/950 2026-08-29 10:22 by Poppy1104
[基金申请] 基金系统什么内容也没有 30+4 winsaint 2026-08-27 9/450 2026-08-28 11:06 by maolC
[基金申请] 哪位高人中了,把查询到的截图贴出来让我看看,让我长长见识 +5 yuleib84 2026-08-26 6/300 2026-08-28 00:02 by yudaoqian88
[基金申请] 基金未中,这种答复是模板吗? +5 zhaosm1982 2026-08-27 6/300 2026-08-27 16:00 by lfy8008
[基金申请] 2026年8月25日国自然放榜前突然收到列入评审专家邮件,有关系吗? +25 木水思豆 2026-08-25 28/1400 2026-08-26 14:53 by draco1987
[基金申请] 出来了 +9 trojank 2026-08-26 9/450 2026-08-26 14:25 by 宝贝虫子
[基金申请] 国合里面能看到了 +7 一怀馨秋 2026-08-26 7/350 2026-08-26 11:23 by zhaosm1982
[基金申请] 项目信息和经费信息在系统里都可以看到了 +6 wittyboy 2026-08-26 14/700 2026-08-26 10:55 by wittyboy
[基金申请] 今天务委会开完了,明天出结果吗 +19 angus9576 2026-08-25 23/1150 2026-08-26 10:03 by zp519
[基金申请] 国合现在查不到了吗? +10 chengyan1220 2026-08-24 20/1000 2026-08-26 08:57 by peasantsprig
[基金申请] 如果此刻你正在为国基感到焦虑,不妨来听听这首《基金之外》 +8 scalable 2026-08-24 8/400 2026-08-25 12:52 by jnhyjjm
信息提示
请填处理意见