InstallSheild 创建网站

admin

1. prototype CreateWebSite(STRING,STRING); // 创建 IIS 站点  
   
2. prototype CreateVirtualDir(STRING); // 创建虚拟目录  
   
3.   
   
4. //////////////////////////  
   
5. // 创建IIS站点  
   
6. //////////////////////////  
   
7. function CreateWebSite(szServerIPDefault,szServerPortDefault)  
   
8. STRING szCmdLine,szWaitTxt;  
   
9. begin  
   
10. if ((szServerIPDefault = "") || (szServerPortDefault = "")) then  
    
11. MessageBox ("您没有设定/""+@PRODUCT_NAME+"/"运行的服务器IP地址或端口！！IIS信息服务设置失败！/n请自行创建IIS站点，并将主目录设为："+TARGETDIR,SEVERE);  
    
12. else  
    
13. szWaitTxt=" 正在创建IIS和设置站点....";  
    
14. SdShowMsg (szWaitTxt, TRUE);  
    
15. Delay(2);   
    
16. //CScript.Exe //H:CScript     
    
17. //LaunchAppAndWait("","CScript.Exe //H:Wscript ",WAIT);  "Wscrīpt.exe"  
    
18. szCmdLine = SUPPORTDIR ^"mkw3site.vbs"+" -r /""+TARGETDIR+"//WebSite/" -i "+szServerIPDefault+" -o "+szServerPortDefault+" -t "+@PRODUCT_NAME;  
    
19. if (LaunchAppAndWait("Wscript.exe", szCmdLine,WAIT) < 0) then     
    
20. MessageBox ("不能建立WEB 虚拟目录，没有找到 Wscrīpt.exe 或执行脚本错误.",SEVERE);  
    
21. endif;  
    
22. SdShowMsg (szWaitTxt, FALSE);  
    
23. endif;  
    
24. return 0;  
    
25. end;  
    
26.   
    
27. //////////////////////////  
    
28. // 创建虚拟目录  
    
29. //////////////////////////  
    
30. function CreateVirtualDir(VirtualFolder)  
    
31. STRING szCmdLine,szWaitTxt;  
    
32. begin  
    
33. if (VirtualFolder = "") then  
    
34. MessageBox ("没能读取到虚拟目录的名称！请联系系统供应商！"+TARGETDIR,SEVERE);  
    
35. else  
    
36. szWaitTxt=" 正在创建/""+@PRODUCT_NAME+"/"的虚拟目录....";  
    
37. SdShowMsg (szWaitTxt, TRUE);  
    
38. Delay(2);  
    
39. szCmdLine = SUPPORTDIR ^"mkwebdir.vbs "+" -w 1 -v /""+VirtualFolder+"/",/""+ TARGETDIR+"//WebSite/"" ;  
    
40. if (LaunchAppAndWait("Wscript.exe", szCmdLine,WAIT) < 0) then      
    
41. MessageBox ("不能建立WEB 虚拟目录，没有找到 Wscrīpt.exe 或执行脚本错误.",SEVERE);  
    
42. endif;  
    
43. SdShowMsg (szWaitTxt, FALSE);  
    
44. endif;  
    
45. return 0;  
    
46. end;  

复制代码

引用此方法，在OnFirstUIBefore方法的最后

1. CreateWebSite(szIp,"8080"); // 开始创建 IIS 站点  
   
2. reateVirtualDir("MyWebSite"); // 开始创建 IIS 站点  

复制代码