用IS6 进行 ASP 软件的打包和自动安装 的方法

#include "ifx.h" //不能移动 
////////////////////////////////////////////////////////////////////////////// 
// 用InstallShield 进行 ASP 软件的打包和自动安装 
// 原创作者: 贾俊 (Jaron) 
// 网址: http://www.jiangdu.net ;
// 邮件: jaron@jdinfo.net 
// 首次发表于网易,ChinaASP,ASPHouse 
////////////////////////////////////////////////////////////////////////////// 
// 功能: 
// 1.文件复制 
// 2.可选自动设置独立站点运行(设置IIS) 
// 3.可选自动设置虚拟站点运行(设置IIS) 
// 4.设置目录可读,可写及可运行脚本 
// 5.自动创建ODBC 
// 6.自动创建或附加MDF格式的SQL数据库 并优化 
// 7.自动安装 ScriptEncode 解码程序 
// 本文仅列出了 InstallShield 的 Script 部分,还有两个 VBS 文件及其他设置 
// 测试过程中有任何问题,请来 http://www.jiangdu.net/bbs ;编程空间版 讨论 
////////////////////////////////////////////////////////////////////////////// 
prototype CreateDataBase(STRING,STRING,STRING); 
prototype CreateWebSite(STRING,STRING); // 创建 IIS 站点 
prototype CreateVirtualDir(STRING); // 创建虚拟目录

////////////////////////////////////////////////////////////////////////////// 
// 
// 函数: OnFirstUIBefore 
// 
// 事件: FirstUIBefore event is sent when installation is run for the first 
// time on given machine. In the handler installation usually displays 
// UI allowing end user to specify installation parameters. After this 
// function returns, ComponentTransferData is called to perform file 
// transfer. 
// 
/////////////////////////////////////////////////////////////////////////////// 
function OnFirstUIBefore() 
NUMBER nResult,nSetupType,nOpt,svEdit1,svEdit2; 
STRING szTitle, szMsg,szBmpPath; 
STRING szLicenseFile, szQuestion; 
STRING szServerIP,szServerPort,szServerIPDefault,szServerPortDefault; 
STRING szSQLsvr,szSQLusr,szSQLpwd,svSQLsvr,svSQLusr,svSQLpwd; 
STRING svName, svCompany, svSerial; 
STRING szFile,szTargetPath,szDir,szfolder; 
STRING szComponents, szTargetdir; 
STRING szField1,szField2; 
STRING szDefault,svResult; 
OBJECT piisObj; 
LIST list,listStartCopy; 
NUMBER nLevel,nvSize; 
begin

szBmpPath="C:"^"temp"^"left.bmp"; 
DialogSetInfo (DLG_INFO_ALTIMAGE, szBmpPath, TRUE); // 设置左边的图片 
//To Do: if you want to enable background, window title, and caption bar title 
//SetTitle( @TITLE_MAIN, 24, WHITE ); 
//SetTitle( @TITLE_CAPTIONBAR, 0, BACKGROUNDCAPTION ); 
//Enable( FULLWINDOWMODE ); 
//Enable( BACKGROUND ); 
//SetColor(BACKGROUND,RGB (0, 128, 128));

//默认值设定 
TARGETDIR = "C:"^"inetpub"^"JaronSoft"^@FOLDER_NAME; 
szDir = TARGETDIR; 
SHELL_OBJECT_FOLDER = @FOLDER_NAME; 
svName = "试用版用户"; 
svCompany = "JDinfo Network"; 
svSerial = "111-1111111";

Dlg_Start: 
// beginning of dialogs label

Dlg_SdWelcome: //欢迎 对话框 
szTitle = "欢迎进入"; 
szMsg = ""; 
nResult = SdWelcome( szTitle, szMsg ); 
if (nResult = BACK) goto Dlg_Start;

Dlg_SdLicense://软件许可协议 对话框 
szLicenseFile = SUPPORTDIR ^ "license.txt"; 
szTitle = "许可协议"; 
szMsg = ""; 
szQuestion = ""; 
nResult = SdLicense( szTitle, szMsg, szQuestion, szLicenseFile ); 
if (nResult = BACK) goto Dlg_SdWelcome;

Dlg_SdShowInfoList://readme文件 对话框 
szFile = SUPPORTDIR ^ "infolist.txt"; 
list = ListCreate( STRINGLIST ); 
ListReadFromFile( list, szFile ); 
szTitle = "README"; 
szMsg = ""; 
nResult = SdShowInfoList( szTitle, szMsg, list ); 
ListDestroy( list ); 
if (nResult = BACK) goto Dlg_SdLicense;

Dlg_SdRegisterUserEx://用户信息 对话框 
szMsg = ""; 
szTitle = "用户信息"; 
nResult = SdRegisterUserEx( szTitle, szMsg, svName, svCompany, svSerial ); 
if (nResult = BACK) goto Dlg_SdShowInfoList; 
//检查序列号 
//if (CHK_serial(svCompany, svSerial)<0) then 
//goto Dlg_SdRegisterUserEx; 
//endif; 
//检查序列号完毕 
Dlg_SdAskDestPath://安装位置 对话框 
szTitle = "检查序列号"; 
szMsg = ""; 
nResult = SdAskDestPath( szTitle, szMsg, szDir, 0 ); 
TARGETDIR = szDir; 
if (nResult = BACK) goto Dlg_SdRegisterUserEx;

Dlg_SetupType: //安装类型 对话框 
nSetupType = TYPICAL; 
szTitle = "安装类型"; 
szMsg = "请选择您需要按哪种方式安装"; 
nResult = SetupType ( szTitle , szMsg , "" , nSetupType , 0 ); 
if (nResult = BACK) then 
goto Dlg_SdAskDestPath; 
else 
nSetupType = nResult; 
if (nSetupType != CUSTOM) then 
szTargetPath = TARGETDIR; 
nvSize = 0; 
ComponentCompareSizeRequired(MEDIA,szTargetPath,nvSize); 
if (nvSize != 0) then 
MessageBox( szSdStr_NotEnoughSpace, WARNING ); 
goto Dlg_SetupType; 
endif; 
endif; 
endif;

Dlg_SdComponentTree: //对话框 
if ((nResult = BACK) && (nSetupType != CUSTOM)) goto Dlg_SetupType; 
szTitle = "对话框"; 
szMsg = ""; 
szTargetdir = TARGETDIR; 
szComponents = ""; 
nLevel = 2; 
if (nSetupType = CUSTOM) then 
nResult = SdComponentTree(szTitle, szMsg, szTargetdir, szComponents, nLevel); 
if (nResult = BACK) goto Dlg_SetupType; 
endif;

Dlg_SdSelectFolder://对话框 
szfolder = SHELL_OBJECT_FOLDER; 
szTitle = "文件夹"; 
szMsg = ""; 
nResult = SdSelectFolder( szTitle, szMsg, szfolder ); 
SHELL_OBJECT_FOLDER = szfolder; 
if (nResult = BACK) goto Dlg_SdComponentTree;

Dlg_SelMode ://设置数据库服务器 对话框 
szTitle = "设置"+@PRODUCT_NAME+"的运行模式"; 
szMsg = "请选择软件运行的方式,极力推荐使用独立站点方式运行"; 
szField1="独立站点方式运行(自动创建新站点)"; 
szField2="虚拟目录方式运行(自动创建虚拟目录)"; 
svEdit1=TRUE; 
svEdit2=FALSE; 
SetDialogTitle(DLG_ASK_TEXT,szTitle); 
//DialogSetInfo ( DLG_INFO_CHECKSELECTION, "", 1); 
nOpt = EXCLUSIVE ; 
nResult = AskOptions (nOpt,szMsg,szField1,svEdit1,szField2,svEdit2); 
if (nResult = BACK) goto Dlg_SdSelectFolder; 
if (svEdit1=FALSE) goto Dlg_SdStartCopy;

Dlg_AskText ://设置数据库服务器 对话框 
szTitle = "设置IIS信息服务及数据库服务器"; 
szMsg = "现在开始设置IIS系统"; 
szQuestion=" 请输入本服务器的主机名或IP地址,安装程序将按照您提供的资料设置IIS信息服务。如果您没有填写,安装程序将自动跳过站点的创建!"; 
szServerIP="地址:"; 
szServerPort="端口:"; 
szServerIPDefault="192.168.0.1"; 
szServerPortDefault="80"; 
SetDialogTitle(DLG_ASK_TEXT,szTitle); 
nResult=SdShowDlgEdit2 (szTitle, szQuestion,szServerIP,szServerPort,szServerIPDefault,szServerPortDefault); 
if (nResult = BACK) goto Dlg_SelMode;

Dlg_AskSQL ://设置数据库服务器 对话框 
szTitle = "设置数据库"; 
szMsg = "现在开始设置Microsoft SQL Server数据库系统"; 
szQuestion=" 请输入SQL SERVER数据库服务器的用户名和密码,安装程序将按照您上步提供的IP地址和下面的用户名和密码创建和优化数据库系统。如果您提供的用户名和密码是错误的,安装程序将自动跳过数据的设置!"; 
szSQLsvr="主机名:"; 
szSQLusr="用户名:"; 
szSQLpwd="密码:"; 
svSQLsvr="localhost"; 
svSQLusr="sa"; 
szSQLpwd=""; 
SetDialogTitle(DLG_ASK_TEXT,szTitle); 
nResult=SdShowDlgEdit3 (szTitle, szQuestion,szSQLsvr,szSQLusr,szSQLpwd,svSQLsvr,svSQLusr,svSQLpwd); 
if (nResult = BACK) goto Dlg_SelMode;

Dlg_SdStartCopy://开始复制文件 对话框 
szTitle = "开始复制文件"; 
szMsg = "点击下一步开始复制文件"; 
listStartCopy = ListCreate( STRINGLIST ); 
ListAddString(listStartCopy,"用户名:"+svName,AFTER); 
ListAddString(listStartCopy,"公司名称:"+svCompany,AFTER); 
ListAddString(listStartCopy,"序列号:"+svSerial,AFTER); 
ListAddString(listStartCopy,"目标目录:"+szDir,AFTER); 
if (svEdit1=TRUE) then 
ListAddString(listStartCopy,"IP地址:"+szServerIPDefault,AFTER); 
ListAddString(listStartCopy,"端口号:"+szServerPortDefault,AFTER); 
endif; 
ListAddString(listStartCopy,"请确认您填写的信息,按下一步开始复制文件",AFTER); 
nResult = SdStartCopy( szTitle, szMsg, listStartCopy ); 
ListDestroy(listStartCopy); 
if (nResult = BACK) goto Dlg_AskText; 
// setup default status 
SetStatusWindow(0, ""); 
Enable(STATUSEX); 
StatusUpdate(ON, 100); 
if (svEdit1=TRUE) then 
CreateWebSite(szServerIPDefault,szServerPortDefault); // 开始创建 IIS 站点 
endif; 
if (svEdit2=TRUE) then 
CreateVirtualDir("NetOA"); // 开始创建 IIS 站点 
endif; 
CreateDataBase(svSQLsvr,svSQLusr,svSQLpwd); // 创建和优化数据库

return 0; 
end; 
////////////////////////////////////////////////////////////////////////////// 
// 
// 函数: OnFirstUIAfter 
// 
// 事件: FirstUIAfter event is sent after file transfer, when installation 
// is run for the first time on given machine. In this event handler 
// installation usually displays UI that will inform end user that 
// installation has been completed successfully. 
// 
/////////////////////////////////////////////////////////////////////////////// 
function OnFirstUIAfter() 
STRING szTitle,szMsg1, szMsg2, szOption1, szOption2,szCmdLine; 
NUMBER bOpt1, bOpt2;

begin 
//set_vod_liveaddress();

szCmdLine = SUPPORTDIR ^"SCE10CHS.EXE"; 
if (LaunchAppAndWait(szCmdLine, " /q",WAIT) < 0) then 
MessageBox ("不能安装解码程序,请联系供应商.",SEVERE); 
endif;

Disable(STATUSEX); 
bOpt1 = FALSE; 
bOpt2 = FALSE; 
szMsg1 = SdLoadString(IFX_SDFINISH_MSG1); 
szMsg2 = "请浏览本主机WEB服务器上的 "+@PRODUCT_NAME+" 虚拟目录\n\n 例:\n http://Localhost/";; 
szOption1 = ""; 
szOption2 = ""; 
szTitle = @PRODUCT_NAME+"安装完成"; 
SdFinishEx(szTitle,szMsg1,szMsg2,szOption1,szOption2,bOpt1,bOpt2);

szCmdLine = "http://LocalHost";; 
//if (LaunchApp(PROGRAMFILES ^"Internet Explorer"^"IEXPLORE.EXE", szCmdLine) < 0) then 
//MessageBox ("不能打开浏览器.",SEVERE); 
//endif;

return 0; 
end;

////////////////////////// 
// 创建IIS站点 
////////////////////////// 
function CreateWebSite(szServerIPDefault,szServerPortDefault) 
STRING szCmdLine,szWaitTxt; 
begin 
if ((szServerIPDefault = "") || (szServerPortDefault = "")) then 
MessageBox ("您没有设定"+@PRODUCT_NAME+"运行的服务器IP地址或端口!!IIS信息服务设置失败!\n请自行创建IIS站点,并将主目录设为:"+TARGETDIR,SEVERE); 
else 
szWaitTxt=" 正在创建IIS和设置站点...."; 
SdShowMsg (szWaitTxt, TRUE); 
Delay(2); 
szCmdLine = SUPPORTDIR ^"mkw3site.vbs"+" -r "+TARGETDIR+" -i "+szServerIPDefault+" -o "+szServerPortDefault+" -t "+@PRODUCT_NAME; 
if (LaunchAppAndWait("WScript.exe", szCmdLine,WAIT) < 0) then 
MessageBox ("不能建立WEB 虚拟目录,没有找到 WScript.exe 或执行脚本错误.",SEVERE); 
endif; 
SdShowMsg (szWaitTxt, FALSE); 
endif; 
return 0; 
end;

////////////////////////// 
// 创建虚拟目录 
////////////////////////// 
function CreateVirtualDir(VirtualFolder) 
STRING szCmdLine,szWaitTxt; 
begin 
if (VirtualFolder = "") then 
MessageBox ("没能读取到虚拟目录的名称!请联系系统供应商!"+TARGETDIR,SEVERE); 
else 
szWaitTxt=" 正在创建"+@PRODUCT_NAME+"的虚拟目录...."; 
SdShowMsg (szWaitTxt, TRUE); 
Delay(2); 
szCmdLine = SUPPORTDIR ^"mkwebdir.vbs "+" -w 1 -v \""+VirtualFolder+"\",\""+ TARGETDIR+"\"" ; 
if (LaunchAppAndWait("WScript.exe", szCmdLine,WAIT) < 0) then 
MessageBox ("不能建立WEB 虚拟目录,没有找到 WScript.exe 或执行脚本错误.",SEVERE); 
endif; 
SdShowMsg (szWaitTxt, FALSE); 
endif; 
return 0; 
end;

////////////////////////// 
// 创建和优化数据库 
////////////////////////// 
function CreateDataBase(svSQLsvr,svSQLusr,svSQLpwd) 
STRING szCmdLine,szWaitTxt; 
begin 
szWaitTxt=" 正在创建"+@PRODUCT_NAME+"所需数据库...."; 
SdShowMsg (szWaitTxt, TRUE); 
Delay(2); 
szCmdLine = "/U "+svSQLusr+" /P "+svSQLpwd+" /S "+svSQLsvr+" /Q \"exec sp_attach_db N'OASystem' , N'"+SUPPORTDIR ^"OASystem_data.mdf'\""; 
if (LaunchAppAndWait("osql.exe", szCmdLine,WAIT) < 0) then 
MessageBox ("数据库创建失败!请确您的系统中已安装 Microsoft SQL Server 2000.\n如仍无法解决,请联系系统供应商!",SEVERE); 
endif; 
SdShowMsg (szWaitTxt, FALSE); 
szWaitTxt=" 正在优化"+@PRODUCT_NAME+"系统数据库...."; 
SdShowMsg (szWaitTxt, TRUE); 
Delay(2); 
szCmdLine = "/U "+svSQLusr+" /P "+svSQLpwd+" /S "+svSQLsvr+" /Q \"use OASystem ; exec sp_updatestats\""; 
if (LaunchAppAndWait("osql.exe", szCmdLine,WAIT) < 0) then 
MessageBox ("数据库优化失败!您可以在 sql查询分析器中执行 \n use OASystem ; exec sp_updatestats \n完成!",SEVERE); 
endif; 
SdShowMsg (szWaitTxt, FALSE); 
return 0; 
end;

(0)

相关推荐

  • 用IS6 进行 ASP 软件的打包和自动安装 的方法

    #include "ifx.h" //不能移动  //////////////////////////////////////////////////////////////////////////////  // 用InstallShield 进行 ASP 软件的打包和自动安装  // 原创作者: 贾俊 (Jaron)  // 网址: http://www.jiangdu.net ; // 邮件: jaron@jdinfo.net  // 首次发表于网易,ChinaASP,ASPHo

  • 用InstallShield9 进行ASP软件的打包和数据库自动安装

    复制代码 代码如下: #define BITMAP_ID 1 #include "ifx.h" //不能移动 prototype CreateWebSite(STRING,STRING); // 创建 IIS 站点 prototype CreateVirtualDir(STRING); // 创建虚拟目录 prototype CreateDataBase(STRING,STRING,STRING);//创建SQL数据库 prototype CheckIIS(); // 示例:检查系统是

  • 使用ADSI、ASP和一对魔术戏法自动地创立一个虚拟目录的方法

    使用ADSI.ASP和一对魔术戏法自动地创立一个虚拟目录,第二部分 Tom Moran 和 Jeff Sandquist 1999年2月22日 我们回来了.大家翘首以盼的这篇文章的第二部分现在在这儿.并且我想你将花费整个晚上看你的猫清洗自己. 这个月,Jeff Sandquist和我完成了我们的动态目录服务接口(Active Directory Services Interfaces ,ADSI)应用程序.如果你来晚了一点,没有问题:只要见这个系列的Part 1 http://www.micro

  • Pyinstaller打包.py生成.exe的方法和报错总结

    Pyinstaller 打包.py生成.exe的方法和报错总结 简介 有时候自己写了个python脚本觉得挺好用想要分享给小伙伴,但是每次都要帮他们的电脑装个python环境.虽然说装一下也快,但是相对来说效率还是不高,要是能将python的**.py文件转化为.exe**,那么世界将变得更美好.这篇文章我将简单的介绍如何使用Pyinstaller来打包我们的python脚本. 安装 Pyinstaller pyinstaller的官网为:http://www.pyinstaller.org/

  • Electron实现应用打包、自动升级过程解析

    上次成功搭建了vue + electron的helloworld程序,这次将electron应用打包及自动升级的流程梳理了一下. 1. 应用打包 使用electron builder打包只需要在vue.config.js中配置即可,这里需要注意的是,默认情况下electron builder打包出来的安装程序是不能修改安装目录的,需要allowToChangeInstallationDirectory这个配置设置为true. // see https://cli.vuejs.org/config

  • Jenkins一键打包部署SpringBoot应用的方法步骤

    目录 Jenkins简介 Jenkins的安装及配置 Docker环境下的安装 Jenkins的配置 角色权限管理 打包部署SpringBoot应用 在Jenkins中创建执行任务 任何简单操作的背后,都有一套相当复杂的机制.本文将以SpringBoot应用的在Docker环境下的打包部署为例,详细讲解如何使用Jenkins一键打包部署SpringBoot应用. Jenkins简介 Jenkins是开源CI&CD软件领导者,提供超过1000个插件来支持构建.部署.自动化,满足任何项目的需要.我们

  • ASP.NET使用Ajax返回Json对象的方法

    一.新建一个html页面,如注册页面"Register.htm" <!DOCTYPE html> <html > <head> <title>用户注册</title> <meta charset="utf-8" /> <style type="text/css"> .msg { color:Red; } </style> </head> &

  • php打包压缩文件之ZipArchive方法用法分析

    本文实例讲述了php打包压缩文件之ZipArchive方法用法.分享给大家供大家参考,具体如下: 前面说到了php打包压缩文件之PclZip方法,今天来说下另一种更为简单的方法,使用ZipArchive来压缩文件.这个是php的扩展类,自php5.2版本以后就已经支持这个扩展,如果你在使用的时候出现错误,查看下php.ini里面的extension=php_zip.dll前面的分号有没有去掉,然后再重启Apache这样才能使用这个类库. 使用ZipArchive压缩文件是非常简单的,php官网已

  • BAT批处理实现软件的自动安装(以搜狗拼音为例)

    下面以安装搜狗拼音为例做个小实验,其他软件的安装可以以此作为参考来实现. 实验目标: 使用批处理实现搜狗拼音的自动安装 实验步骤: 1.下载搜狗拼音的安装包,本实验使用sogou_pinyin_50a.exe. 2.在安装包所在目录下新建批处理文件sogou_install.bat. 3.编辑批处理文件sogou_install.bat,输入以下命令并保存. 复制代码 代码如下: start /wait .\sogou_pinyin_50a.exe /S 4.双击批处理文件执行之. 5.要是以管

  • 使用批处理实现软件的自动安装以安装搜狗拼音为例

    下面以安装搜狗拼音为例做个小实验,其他软件的安装可以以此作为参考来实现. 实验目标: 使用批处理实现搜狗拼音的自动安装 实验步骤: 1.下载搜狗拼音的安装包,本实验使用sogou_pinyin_50a.exe. 2.在安装包所在目录下新建批处理文件sogou_install.bat. 3.编辑批处理文件sogou_install.bat,输入以下命令并保存. [plain] start /wait .\sogou_pinyin_50a.exe /S 4.双击批处理文件执行之. 5.要是以管理员身

随机推荐