用installshield 进行 asp 软件的打包和自动安装.htm

较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.

      "请选择软件运行的方式，极力推荐使用独立站点方式运行";<BR>szField1="独立站点方式运行(自动创建新站点)"; 
      <BR>szField2="虚拟目录方式运行(自动创建虚拟目录)";<BR>svEdit1=TRUE;<BR>svEdit2=FALSE;<BR>SetDialogTitle(DLG_ASK_TEXT,szTitle); 
      <BR>//DialogSetInfo ( DLG_INFO_CHECKSELECTION, "", 1); <BR>nOpt = 
      EXCLUSIVE ;<BR>nResult = AskOptions 
      (nOpt,szMsg,szField1,svEdit1,szField2,svEdit2);<BR>if (nResult = BACK) 
      goto Dlg_SdSelectFolder;<BR>if (svEdit1=FALSE) goto 
      Dlg_SdStartCopy;<BR><BR>Dlg_AskText ://设置数据库服务器 对话框<BR>szTitle = 
      "设置IIS信息服务及数据库服务器";<BR>szMsg = "现在开始设置IIS系统";<BR>szQuestion=" 
      请输入本服务器的主机名或IP地址,安装程序将按照您提供的资料设置IIS信息服务。如果您没有填写，安装程序将自动跳过站点的创建！";<BR>szServerIP="地址：";<BR>szServerPort="端口："; 
      <BR>szServerIPDefault="192.168.0.1";<BR>szServerPortDefault="80";<BR>SetDialogTitle(DLG_ASK_TEXT,szTitle);<BR>nResult=SdShowDlgEdit2 
      (szTitle, 
      szQuestion,szServerIP,szServerPort,szServerIPDefault,szServerPortDefault);<BR>if 
      (nResult = BACK) goto Dlg_SelMode;<BR><BR>Dlg_AskSQL ://设置数据库服务器 
      对话框<BR>szTitle = "设置数据库";<BR>szMsg = "现在开始设置Microsoft SQL 
      Server数据库系统";<BR>szQuestion=" 请输入SQL 
      SERVER数据库服务器的用户名和密码,安装程序将按照您上步提供的IP地址和下面的用户名和密码创建和优化数据库系统。如果您提供的用户名和密码是错误的，安装程序将自动跳过数据的设置！";<BR>szSQLsvr="主机名：";<BR>szSQLusr="用户名：";<BR>szSQLpwd="密码："; 
      <BR>svSQLsvr="localhost";<BR>svSQLusr="sa";<BR>szSQLpwd="";<BR>SetDialogTitle(DLG_ASK_TEXT,szTitle);<BR>nResult=SdShowDlgEdit3 
      (szTitle, 
      szQuestion,szSQLsvr,szSQLusr,szSQLpwd,svSQLsvr,svSQLusr,svSQLpwd);<BR>if 
      (nResult = BACK) goto Dlg_SelMode;<BR><BR>Dlg_SdStartCopy://开始复制文件 
      对话框<BR>szTitle = "开始复制文件";<BR>szMsg = "点击下一步开始复制文件";<BR>listStartCopy = 
      ListCreate( STRINGLIST 
      );<BR>ListAddString(listStartCopy,"用户名："+svName,AFTER);<BR>ListAddString(listStartCopy,"公司名称："+svCompany,AFTER);<BR>ListAddString(listStartCopy,"序列号："+svSerial,AFTER);<BR>ListAddString(listStartCopy,"目标目录："+szDir,AFTER);<BR>if 
      (svEdit1=TRUE) 
      then<BR>ListAddString(listStartCopy,"IP地址："+szServerIPDefault,AFTER);<BR>ListAddString(listStartCopy,"端口号："+szServerPortDefault,AFTER);<BR>endif;<BR>ListAddString(listStartCopy,"请确认您填写的信息，按下一步开始复制文件",AFTER);<BR>nResult 
      = SdStartCopy( szTitle, szMsg, listStartCopy ); 
      <BR>ListDestroy(listStartCopy);<BR>if (nResult = BACK) goto 
      Dlg_AskText;<BR>// setup default status<BR>SetStatusWindow(0, 
      "");<BR>Enable(STATUSEX);<BR>StatusUpdate(ON, 100);<BR>if (svEdit1=TRUE) 
      then <BR>CreateWebSite(szServerIPDefault,szServerPortDefault); // 开始创建 IIS 
      站点<BR>endif;<BR>if (svEdit2=TRUE) then <BR>CreateVirtualDir("NetOA"); // 
      开始创建 IIS 站点<BR>endif;<BR>CreateDataBase(svSQLsvr,svSQLusr,svSQLpwd); // 
      创建和优化数据库<BR><BR>return 
      0;<BR>end;<BR>//////////////////////////////////////////////////////////////////////////////<BR>//<BR>// 
      函数: OnFirstUIAfter<BR>//<BR>// 事件: FirstUIAfter event is sent after file 
      transfer, when installation <BR>// is run for the first time on given 
      machine. In this event handler <BR>// installation usually displays UI 
      that will inform end user that<BR>// installation has been completed 
      successfully.<BR>//<BR>///////////////////////////////////////////////////////////////////////////////<BR>function 
      OnFirstUIAfter()<BR>STRING szTitle,szMsg1, szMsg2, szOption1, 
      szOption2,szCmdLine;<BR>NUMBER bOpt1, 
      bOpt2;<BR><BR>begin<BR>//set_vod_liveaddress();<BR><BR>szCmdLine = 
      SUPPORTDIR ^"SCE10CHS.EXE";<BR>if (LaunchAppAndWait(szCmdLine, " /q",WAIT) 
      &lt; 0) then<BR>MessageBox 
      ("不能安装解码程序，请联系供应商.",SEVERE);<BR>endif;<BR><BR>Disable(STATUSEX);<BR>bOpt1 
      = FALSE;<BR>bOpt2 = FALSE;<BR>szMsg1 = 
      SdLoadString(IFX_SDFINISH_MSG1);<BR>szMsg2 = "请浏览本主机WEB服务器上的 
      "+@PRODUCT_NAME+" 虚拟目录\n\n 例：\n http://Localhost/";<BR>szOption1 = 
      "";<BR>szOption2 = "";<BR>szTitle = 
      @PRODUCT_NAME+"安装完成";<BR>SdFinishEx(szTitle,szMsg1,szMsg2,szOption1,szOption2,bOpt1,bOpt2);<BR><BR>szCmdLine 
      = "http://LocalHost";<BR>//if (LaunchApp(PROGRAMFILES ^"Internet 
      Explorer"^"IEXPLORE.EXE", szCmdLine) &lt; 0) then<BR>//MessageBox 
      ("不能打开浏览器.",SEVERE);<BR>//endif;<BR><BR>return 
      0;<BR>end;<BR><BR><BR>//////////////////////////<BR>// 
      创建IIS站点<BR>//////////////////////////<BR>function 
      CreateWebSite(szServerIPDefault,szServerPortDefault)<BR>STRING 
      szCmdLine,szWaitTxt;<BR>begin<BR>if ((szServerIPDefault = "") || 
      (szServerPortDefault = "")) then <BR>MessageBox 
      ("您没有设定"+@PRODUCT_NAME+"运行的服务器IP地址或端口！！IIS信息服务设置失败！\n请自行创建IIS站点，并将主目录设为："+TARGETDIR,SEVERE);<BR>else<BR>szWaitTxt=" 
      正在创建IIS和设置站点....";<BR>SdShowMsg (szWaitTxt, 
      TRUE);<BR>Delay(2);<BR>szCmdLine = SUPPORTDIR ^"mkw3site.vbs"+" -r 
      "+TARGETDIR+" -i "+szServerIPDefault+" -o "+szServerPortDefault+" -t 
      "+@PRODUCT_NAME; <BR>if (LaunchAppAndWait("WScript.exe", szCmdLine,WAIT) 
      &lt; 0) then<BR>MessageBox ("不能建立WEB 虚拟目录，没有找到 WScript.exe 
      或执行脚本错误.",SEVERE);<BR>endif;<BR>SdShowMsg (szWaitTxt, 
      FALSE);<BR>endif;<BR>return 
      0;<BR>end;<BR><BR>//////////////////////////<BR>// 
      创建虚拟目录<BR>//////////////////////////<BR>function 
      CreateVirtualDir(VirtualFolder)<BR>STRING 
      szCmdLine,szWaitTxt;<BR>begin<BR>if (VirtualFolder = "") then 
      <BR>MessageBox 
      ("没能读取到虚拟目录的名称！请联系系统供应商！"+TARGETDIR,SEVERE);<BR>else<BR>szWaitTxt=" 
      正在创建"+@PRODUCT_NAME+"的虚拟目录....";<BR>SdShowMsg (szWaitTxt, 
      TRUE);<BR>Delay(2);<BR>szCmdLine = SUPPORTDIR ^"mkwebdir.vbs "+" -w 1 -v 
      \""+VirtualFolder+"\",\""+ TARGETDIR+"\"" ;<BR>if 
      (LaunchAppAndWait("WScript.exe", szCmdLine,WAIT) &lt; 0) 
      then<BR>MessageBox ("不能建立WEB 虚拟目录，没有找到 WScript.exe 
      或执行脚本错误.",SEVERE);<BR>endif;<BR>SdShowMsg (szWaitTxt, 
      FALSE);<BR>endif;<BR>return 
      0;<BR>end;<BR><BR>//////////////////////////<BR>// 
      创建和优化数据库<BR>//////////////////////////<BR>function 
      CreateDataBase(svSQLsvr,svSQLusr,svSQLpwd)<BR>STRING 
      szCmdLine,szWaitTxt;<BR>begin<BR>szWaitTxt=" 
      正在创建"+@PRODUCT_NAME+"所需数据库....";<BR>SdShowMsg (szWaitTxt, 
      TRUE);<BR>Delay(2); <BR>szCmdLine = "/U "+svSQLusr+" /P "+svSQLpwd+" /S 
      "+svSQLsvr+" /Q \"exec sp_attach_db N'OASystem' , N'"+SUPPORTDIR 
      ^"OASystem_data.mdf'\"";<BR>if (LaunchAppAndWait("osql.exe", 
      szCmdLine,WAIT) &lt; 0) then<BR>MessageBox ("数据库创建失败！请确您的系统中已安装 Microsoft 
      SQL Server 2000.\n如仍无法解决，请联系系统供应商！",SEVERE);<BR>endif;<BR>SdShowMsg 
      (szWaitTxt, FALSE);<BR>szWaitTxt=" 
      正在优化"+@PRODUCT_NAME+"系统数据库....";<BR>SdShowMsg (szWaitTxt, 
      TRUE);<BR>Delay(2); <BR>szCmdLine = "/U "+svSQLusr+" /P "+svSQLpwd+" /S 
      "+svSQLsvr+" /Q \"use OASystem ; exec sp_updatestats\"";<BR>if 
      (LaunchAppAndWait("osql.exe", szCmdLine,WAIT) &lt; 0) then<BR>MessageBox 
      ("数据库优化失败！您可以在 sql查询分析器中执行 \n use OASystem ; exec sp_updatestats 
      \n完成！",SEVERE);<BR>endif;<BR>SdShowMsg (szWaitTxt, FALSE);<BR>return 
      0;<BR>end;<BR><BR><BR><BR><BR>原作者：Jaron<BR>来 源：开发者俱乐部<BR><BR></P></TD></TR>
  <TR>
    <TD align=right bgColor=#decbad class=listcelltitle height=29 vAlign=top 
    width=717><INPUT class=button name=Submit2 onclick=javascript:window.close() style="FONT-SIZE: 9pt" type=button value=关闭窗口> 
      &nbsp; </TD></TR></TBODY></TABLE><BR></BODY></HTML>