用IS6 进行 ASP 软件的打包和自动安装 的方法_应用技巧教程-查字典教程网
用IS6 进行 ASP 软件的打包和自动安装 的方法
用IS6 进行 ASP 软件的打包和自动安装 的方法
发布时间：2016-12-26 来源：查字典编辑
摘要：#include"ifx.h"//不能移动/////////////////////////////////////////////////...

#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;编程空间版讨论

//////////////////////////////////////////////////////////////////////////////

prototypeCreateDataBase(STRING,STRING,STRING);

prototypeCreateWebSite(STRING,STRING);//创建IIS站点

prototypeCreateVirtualDir(STRING);//创建虚拟目录

//////////////////////////////////////////////////////////////////////////////

//

//函数:OnFirstUIBefore

//

//事件:FirstUIBeforeeventissentwheninstallationisrunforthefirst

//timeongivenmachine.Inthehandlerinstallationusuallydisplays

//UIallowingendusertospecifyinstallationparameters.Afterthis

//functionreturns,ComponentTransferDataiscalledtoperformfile

//transfer.

//

///////////////////////////////////////////////////////////////////////////////

functionOnFirstUIBefore()

NUMBERnResult,nSetupType,nOpt,svEdit1,svEdit2;

STRINGszTitle,szMsg,szBmpPath;

STRINGszLicenseFile,szQuestion;

STRINGszServerIP,szServerPort,szServerIPDefault,szServerPortDefault;

STRINGszSQLsvr,szSQLusr,szSQLpwd,svSQLsvr,svSQLusr,svSQLpwd;

STRINGsvName,svCompany,svSerial;

STRINGszFile,szTargetPath,szDir,szfolder;

STRINGszComponents,szTargetdir;

STRINGszField1,szField2;

STRINGszDefault,svResult;

OBJECTpiisObj;

LISTlist,listStartCopy;

NUMBERnLevel,nvSize;

begin

szBmpPath="C:"^"temp"^"left.bmp";

DialogSetInfo(DLG_INFO_ALTIMAGE,szBmpPath,TRUE);//设置左边的图片

//ToDo:ifyouwanttoenablebackground,windowtitle,andcaptionbartitle

//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="JDinfoNetwork";

svSerial="111-1111111";

Dlg_Start:

//beginningofdialogslabel

Dlg_SdWelcome://欢迎对话框

szTitle="欢迎进入";

szMsg="";

nResult=SdWelcome(szTitle,szMsg);

if(nResult=BACK)gotoDlg_Start;

Dlg_SdLicense://软件许可协议对话框

szLicenseFile=SUPPORTDIR^"license.txt";

szTitle="许可协议";

szMsg="";

szQuestion="";

nResult=SdLicense(szTitle,szMsg,szQuestion,szLicenseFile);

if(nResult=BACK)gotoDlg_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)gotoDlg_SdLicense;

Dlg_SdRegisterUserEx://用户信息对话框

szMsg="";

szTitle="用户信息";

nResult=SdRegisterUserEx(szTitle,szMsg,svName,svCompany,svSerial);

if(nResult=BACK)gotoDlg_SdShowInfoList;

//检查序列号

//if(CHK_serial(svCompany,svSerial)<0)then

//gotoDlg_SdRegisterUserEx;

//endif;

//检查序列号完毕

Dlg_SdAskDestPath://安装位置对话框

szTitle="检查序列号";

szMsg="";

nResult=SdAskDestPath(szTitle,szMsg,szDir,0);

TARGETDIR=szDir;

if(nResult=BACK)gotoDlg_SdRegisterUserEx;

Dlg_SetupType://安装类型对话框

nSetupType=TYPICAL;

szTitle="安装类型";

szMsg="请选择您需要按哪种方式安装";

nResult=SetupType(szTitle,szMsg,"",nSetupType,0);

if(nResult=BACK)then

gotoDlg_SdAskDestPath;

else

nSetupType=nResult;

if(nSetupType!=CUSTOM)then

szTargetPath=TARGETDIR;

nvSize=0;

ComponentCompareSizeRequired(MEDIA,szTargetPath,nvSize);

if(nvSize!=0)then

MessageBox(szSdStr_NotEnoughSpace,WARNING);

gotoDlg_SetupType;

endif;

endif;

endif;

Dlg_SdComponentTree://对话框

if((nResult=BACK)&&(nSetupType!=CUSTOM))gotoDlg_SetupType;

szTitle="对话框";

szMsg="";

szTargetdir=TARGETDIR;

szComponents="";

nLevel=2;

if(nSetupType=CUSTOM)then

nResult=SdComponentTree(szTitle,szMsg,szTargetdir,szComponents,nLevel);

if(nResult=BACK)gotoDlg_SetupType;

endif;

Dlg_SdSelectFolder://对话框

szfolder=SHELL_OBJECT_FOLDER;

szTitle="文件夹";

szMsg="";

nResult=SdSelectFolder(szTitle,szMsg,szfolder);

SHELL_OBJECT_FOLDER=szfolder;

if(nResult=BACK)gotoDlg_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)gotoDlg_SdSelectFolder;

if(svEdit1=FALSE)gotoDlg_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)gotoDlg_SelMode;

Dlg_AskSQL://设置数据库服务器对话框

szTitle="设置数据库";

szMsg="现在开始设置MicrosoftSQLServer数据库系统";

szQuestion="请输入SQLSERVER数据库服务器的用户名和密码,安装程序将按照您上步提供的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)gotoDlg_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)gotoDlg_AskText;

//setupdefaultstatus

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);//创建和优化数据库

return0;

end;

//////////////////////////////////////////////////////////////////////////////

//

//函数:OnFirstUIAfter

//

//事件:FirstUIAftereventissentafterfiletransfer,wheninstallation

//isrunforthefirsttimeongivenmachine.Inthiseventhandler

//installationusuallydisplaysUIthatwillinformenduserthat

//installationhasbeencompletedsuccessfully.

//

///////////////////////////////////////////////////////////////////////////////

functionOnFirstUIAfter()

STRINGszTitle,szMsg1,szMsg2,szOption1,szOption2,szCmdLine;

NUMBERbOpt1,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+"虚拟目录nn例：nhttp://Localhost/";;

szOption1="";

szOption2="";

szTitle=@PRODUCT_NAME+"安装完成";

SdFinishEx(szTitle,szMsg1,szMsg2,szOption1,szOption2,bOpt1,bOpt2);

szCmdLine="http://LocalHost";;

//if(LaunchApp(PROGRAMFILES^"InternetExplorer"^"IEXPLORE.EXE",szCmdLine)<0)then

//MessageBox("不能打开浏览器.",SEVERE);

//endif;

return0;

end;

//////////////////////////

//创建IIS站点

//////////////////////////

functionCreateWebSite(szServerIPDefault,szServerPortDefault)

STRINGszCmdLine,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;

return0;

end;

//////////////////////////

//创建虚拟目录

//////////////////////////

functionCreateVirtualDir(VirtualFolder)

STRINGszCmdLine,szWaitTxt;

begin

if(VirtualFolder="")then

MessageBox("没能读取到虚拟目录的名称！请联系系统供应商！"+TARGETDIR,SEVERE);

else

szWaitTxt="正在创建"+@PRODUCT_NAME+"的虚拟目录....";

SdShowMsg(szWaitTxt,TRUE);

Delay(2);

szCmdLine=SUPPORTDIR^"mkwebdir.vbs"+"-w1-v""+VirtualFolder+"",""+TARGETDIR+""";

if(LaunchAppAndWait("WScript.exe",szCmdLine,WAIT)<0)then

MessageBox("不能建立WEB虚拟目录，没有找到WScript.exe或执行脚本错误.",SEVERE);

endif;

SdShowMsg(szWaitTxt,FALSE);

endif;

return0;

end;

//////////////////////////

//创建和优化数据库

//////////////////////////

functionCreateDataBase(svSQLsvr,svSQLusr,svSQLpwd)

STRINGszCmdLine,szWaitTxt;

begin

szWaitTxt="正在创建"+@PRODUCT_NAME+"所需数据库....";

SdShowMsg(szWaitTxt,TRUE);

Delay(2);

szCmdLine="/U"+svSQLusr+"/P"+svSQLpwd+"/S"+svSQLsvr+"/Q"execsp_attach_dbN'OASystem',N'"+SUPPORTDIR^"OASystem_data.mdf'"";

if(LaunchAppAndWait("osql.exe",szCmdLine,WAIT)<0)then

MessageBox("数据库创建失败！请确您的系统中已安装MicrosoftSQLServer2000.n如仍无法解决，请联系系统供应商！",SEVERE);

endif;

SdShowMsg(szWaitTxt,FALSE);

szWaitTxt="正在优化"+@PRODUCT_NAME+"系统数据库....";

SdShowMsg(szWaitTxt,TRUE);

Delay(2);

szCmdLine="/U"+svSQLusr+"/P"+svSQLpwd+"/S"+svSQLsvr+"/Q"useOASystem;execsp_updatestats"";

if(LaunchAppAndWait("osql.exe",szCmdLine,WAIT)<0)then

MessageBox("数据库优化失败！您可以在sql查询分析器中执行nuseOASystem;execsp_updatestatsn完成！",SEVERE);

endif;

SdShowMsg(szWaitTxt,FALSE);

return0;

end;

相关阅读
推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
  • 大家都在看
  • 小编推荐
  • 猜你喜欢
    •
    最新应用技巧学习
    热门应用技巧学习
    网页设计子分类