网页功能: 加入收藏 设为首页 网站搜索  
用InstallShield打包ASP程序
发表日期:2003-07-22作者:Jaron[] 出处:  

#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+" 虚拟目录 例: 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信息服务设置失败!请自行创建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. 如仍无法解决,请联系系统供应商!",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查询分析器中执行 use OASystem ; exec sp_updatestats 完成!",SEVERE);

endif;

SdShowMsg (szWaitTxt, FALSE);

return 0;

end;

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 用InstallShield打包ASP程序
本类热点文章
  ASP获得网卡的MAC地址
  默认点击下载pdf等文件而不是在浏览器中..
  纯ASP结合VML生成完美图-折线图
  利用ASP实现事务处理的方法
  ASP的分页函数
  ASP的分页函数
  ASP连接11种数据库语法总结
  ASP操作Excel技术总结
  酷月历(公、农历)
  酷月历(公、农历)
  用InstallShield打包ASP程序
  用InstallShield打包ASP程序
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2022 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00383