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

📁 较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.
💻 HTM
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0047)http://www.abc800.com/news/artdetail.asp?id=875 -->
<HTML><HEAD><TITLE>用InstallShield 进行 ASP 软件的打包和自动安装</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<META content="MSHTML 5.00.3315.2870" name=GENERATOR><LINK 
href="用InstallShield 进行 ASP 软件的打包和自动安装.files/putong_1t" rel=StyleSheet 
type=text/css>
<SCRIPT language=javascript 
src="用InstallShield 进行 ASP 软件的打包和自动安装.files/fun_Script.js"></SCRIPT>
</HEAD>
<BODY background="用InstallShield 进行 ASP 软件的打包和自动安装.files/r_bg.gif">
<P align=center><BR></P>
<TABLE align=center class=tableFrame height=311 width="90%">
  <TBODY>
  <TR align=middle>
    <TD align=right bgColor=#decbad class=listcelltitle height=274 vAlign=top 
    width=717>
      <P align=center><BR><FONT color=#000000 
      style="FONT-SIZE: 14px"></FONT><FONT color=#000080 
      style="FONT-SIZE: 14px"><B>用InstallShield 进行 ASP 
      软件的打包和自动安装</B></FONT><FONT color=#000000 style="FONT-SIZE: 14px"><BR></P>
      <P align=right>更新日期：2002-11-5 阅读次数：1579</FONT></P>
      <P align=left style="FONT-SIZE: 14px">#include "ifx.h" 
      //不能移动<BR>//////////////////////////////////////////////////////////////////////////////<BR>// 
      用InstallShield 进行 ASP 软件的打包和自动安装 <BR>// 原创作者: 贾俊 (Jaron)<BR>// 网址: 
      http://www.jiangdu.net<BR>// 邮件: jaron@jdinfo.net<BR>// 
      首次发表于网易，ChinaASP,ASPHouse<BR>//////////////////////////////////////////////////////////////////////////////<BR>// 
      功能：<BR>// 1.文件复制<BR>// 2.可选自动设置独立站点运行(设置IIS)<BR>// 
      3.可选自动设置虚拟站点运行(设置IIS)<BR>// 4.设置目录可读，可写及可运行脚本<BR>// 5.自动创建ODBC<BR>// 
      6.自动创建或附加MDF格式的SQL数据库 并优化<BR>// 7.自动安装 ScriptEncode 解码程序<BR>// 本文仅列出了 
      InstallShield 的 Script 部分,还有两个 VBS 文件及其他设置<BR>// 测试过程中有任何问题，请来 
      http://www.jiangdu.net/bbs 编程空间版 
      讨论<BR>//////////////////////////////////////////////////////////////////////////////<BR>prototype 
      CreateDataBase(STRING,STRING,STRING);<BR>prototype 
      CreateWebSite(STRING,STRING); // 创建 IIS 站点<BR>prototype 
      CreateVirtualDir(STRING); // 
      创建虚拟目录<BR><BR>//////////////////////////////////////////////////////////////////////////////<BR>// 
      <BR>// 函数: OnFirstUIBefore <BR>// <BR>// 事件: FirstUIBefore event is sent 
      when installation is run for the first<BR>// time on given machine. In the 
      handler installation usually displays<BR>// UI allowing end user to 
      specify installation parameters. After this<BR>// function returns, 
      ComponentTransferData is called to perform file<BR>// transfer.<BR>// 
      <BR>///////////////////////////////////////////////////////////////////////////////<BR>function 
      OnFirstUIBefore() <BR>NUMBER 
      nResult,nSetupType,nOpt,svEdit1,svEdit2;<BR>STRING szTitle, 
      szMsg,szBmpPath;<BR>STRING szLicenseFile, szQuestion;<BR>STRING 
      szServerIP,szServerPort,szServerIPDefault,szServerPortDefault;<BR>STRING 
      szSQLsvr,szSQLusr,szSQLpwd,svSQLsvr,svSQLusr,svSQLpwd;<BR>STRING svName, 
      svCompany, svSerial;<BR>STRING 
      szFile,szTargetPath,szDir,szfolder;<BR>STRING szComponents, 
      szTargetdir;<BR>STRING szField1,szField2;<BR>STRING 
      szDefault,svResult;<BR>OBJECT piisObj;<BR>LIST 
      list,listStartCopy;<BR>NUMBER nLevel,nvSize;<BR>begin 
      <BR><BR>szBmpPath="C:"^"temp"^"left.bmp";<BR>DialogSetInfo 
      (DLG_INFO_ALTIMAGE, szBmpPath, TRUE); // 设置左边的图片<BR>//To Do: if you want 
      to enable background, window title, and caption bar title <BR>//SetTitle( 
      @TITLE_MAIN, 24, WHITE );<BR>//SetTitle( @TITLE_CAPTIONBAR, 0, 
      BACKGROUNDCAPTION ); <BR>//Enable( FULLWINDOWMODE ); <BR>//Enable( 
      BACKGROUND ); <BR>//SetColor(BACKGROUND,RGB (0, 128, 128)); 
      <BR><BR>//默认值设定<BR>TARGETDIR = "C:"^"inetpub"^"JaronSoft"^@FOLDER_NAME; 
      <BR>szDir = TARGETDIR;<BR>SHELL_OBJECT_FOLDER = @FOLDER_NAME; <BR>svName = 
      "试用版用户";<BR>svCompany = "JDinfo Network";<BR>svSerial = "111-1111111"; 
      <BR><BR>Dlg_Start:<BR>// beginning of dialogs label<BR><BR>Dlg_SdWelcome: 
      //欢迎 对话框<BR>szTitle = "欢迎进入";<BR>szMsg = "";<BR>nResult = SdWelcome( 
      szTitle, szMsg );<BR>if (nResult = BACK) goto 
      Dlg_Start;<BR><BR>Dlg_SdLicense://软件许可协议 对话框<BR>szLicenseFile = SUPPORTDIR 
      ^ "license.txt";<BR>szTitle = "许可协议";<BR>szMsg = "";<BR>szQuestion = 
      "";<BR>nResult = SdLicense( szTitle, szMsg, szQuestion, szLicenseFile 
      );<BR>if (nResult = BACK) goto 
      Dlg_SdWelcome;<BR><BR>Dlg_SdShowInfoList://readme文件 对话框<BR>szFile = 
      SUPPORTDIR ^ "infolist.txt";<BR>list = ListCreate( STRINGLIST 
      );<BR>ListReadFromFile( list, szFile );<BR>szTitle = "README";<BR>szMsg = 
      "";<BR>nResult = SdShowInfoList( szTitle, szMsg, list ); <BR>ListDestroy( 
      list );<BR>if (nResult = BACK) goto 
      Dlg_SdLicense;<BR><BR>Dlg_SdRegisterUserEx://用户信息 对话框<BR>szMsg = 
      "";<BR>szTitle = "用户信息"; <BR>nResult = SdRegisterUserEx( szTitle, szMsg, 
      svName, svCompany, svSerial );<BR>if (nResult = BACK) goto 
      Dlg_SdShowInfoList;<BR>//检查序列号<BR>//if (CHK_serial(svCompany, 
      svSerial)&lt;0) then<BR>//goto 
      Dlg_SdRegisterUserEx;<BR>//endif;<BR>//检查序列号完毕<BR>Dlg_SdAskDestPath://安装位置 
      对话框<BR>szTitle = "检查序列号";<BR>szMsg = "";<BR>nResult = SdAskDestPath( 
      szTitle, szMsg, szDir, 0 );<BR>TARGETDIR = szDir;<BR>if (nResult = BACK) 
      goto Dlg_SdRegisterUserEx;<BR><BR>Dlg_SetupType: //安装类型 对话框<BR>nSetupType 
      = TYPICAL; <BR>szTitle = "安装类型";<BR>szMsg = "请选择您需要按哪种方式安装"; <BR>nResult = 
      SetupType ( szTitle , szMsg , "" , nSetupType , 0 );<BR>if (nResult = 
      BACK) then<BR>goto Dlg_SdAskDestPath;<BR>else<BR>nSetupType = 
      nResult;<BR>if (nSetupType != CUSTOM) then<BR>szTargetPath = 
      TARGETDIR;<BR>nvSize = 
      0;<BR>ComponentCompareSizeRequired(MEDIA,szTargetPath,nvSize);<BR>if 
      (nvSize != 0) then <BR>MessageBox( szSdStr_NotEnoughSpace, WARNING 
      );<BR>goto Dlg_SetupType;<BR>endif;<BR>endif; 
      <BR>endif;<BR><BR>Dlg_SdComponentTree: //对话框<BR>if ((nResult = BACK) 
      &amp;&amp; (nSetupType != CUSTOM)) goto Dlg_SetupType;<BR>szTitle = 
      "对话框";<BR>szMsg = "";<BR>szTargetdir = TARGETDIR;<BR>szComponents = 
      "";<BR>nLevel = 2;<BR>if (nSetupType = CUSTOM) then<BR>nResult = 
      SdComponentTree(szTitle, szMsg, szTargetdir, szComponents, nLevel);<BR>if 
      (nResult = BACK) goto Dlg_SetupType; 
      <BR>endif;<BR><BR>Dlg_SdSelectFolder://对话框<BR>szfolder = 
      SHELL_OBJECT_FOLDER; <BR>szTitle = "文件夹";<BR>szMsg = "";<BR>nResult = 
      SdSelectFolder( szTitle, szMsg, szfolder );<BR>SHELL_OBJECT_FOLDER = 
      szfolder;<BR>if (nResult = BACK) goto 
      Dlg_SdComponentTree;<BR><BR><BR>Dlg_SelMode ://设置数据库服务器 对话框<BR>szTitle = 
      "设置"+@PRODUCT_NAME+"的运行模式";<BR>szMsg =
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -