您的位置:首页 > 软件资讯

用InstallShield 进行ASP 软件的打包和自动安装

2020-05-22 03:14:01 snjfnnsj.cn

前些时候看到这篇文章,对比了自己和作者的实现方法,感觉有一定的参考价值,大家不妨看看。用InstallShield进行ASP软件的打包和自动安装(Jaron原创)作者:Jaron点击链接查看作者详细信息简介:用InstallShield进行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编程空间版讨论//////////////////////////////////////////////////////////////////////////////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;beginszBmpPath="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://beginningofdialogslabelDlg_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)thengotoDlg_SdAskDestPath;elsenSetupType=nResult;if(nSetupType!=CUSTOM)thenszTargetPath=TARGETDIR;nvSize=0;ComponentCompareSizeRequired(MEDIA,szTargetPath,nvSize);if(nvSize!=0)thenMessageBox(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)thennResult=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)thenListAddString(listStartCopy,"IP地址:"+szServerIPDefault,AFTER);ListAddString(listStartCopy,"端口号:"+szServerPortDefault,AFTER);endif;ListAddString(listStartCopy,"请确认您填写的信息,按下一步开始复制文件",AFTER);nResult=SdStartCopy(szTitle,szMsg,listStartCopy);ListDestroy(listStartCopy);if(nResult=BACK)gotoDlg_AskText;//setupdefaultstatusSetStatusWindow(0,"");Enable(STATUSEX);StatusUpdate(ON,100);if(svEdit1=TRUE)thenCreateWebSite(szServerIPDefault,szServerPortDefault);//开始创建IIS站点endif;if(svEdit2=TRUE)thenCreateVirtualDir("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)thenMessageBox("不能安装解码程序,请联系供应商.",SEVERE);endif;Disable(STATUSEX);bOpt1=FALSE;bOpt2=FALSE;szMsg1=SdLoadString(IFX_SDFINISH_MSG1);szMsg2="请浏览本主机WEB服务器上的"+@PRODUCT_NAME+"虚拟目录\n\n例:\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;beginif((szServerIPDefault="")||(szServerPortDefault=""))thenMessageBox("您没有设定"+@PRODUCT_NAME+"运行的服务器IP地址或端口!!IIS信息服务设置失败!\n请自行创建IIS站点,并将主目录设为:"+TARGETDIR,SEVERE);elseszWaitTxt="正在创建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)thenMessageBox("不能建立WEB虚拟目录,没有找到WScript.exe或执行脚本错误.",SEVERE);endif;SdShowMsg(szWaitTxt,FALSE);endif;return0;end;////////////////////////////创建虚拟目录//////////////////////////functionCreateVirtualDir(VirtualFolder)STRINGszCmdLine,szWaitTxt;beginif(VirtualFolder="")thenMessageBox("没能读取到虚拟目录的名称!请联系系统供应商!"+TARGETDIR,SEVERE);elseszWaitTxt="正在创建"+@PRODUCT_NAME+"的虚拟目录....";SdShowMsg(szWaitTxt,TRUE);Delay(2);szCmdLine=SUPPORTDIR^"mkwebdir.vbs"+"-w1-v\""+VirtualFolder+"\",\""+TARGETDIR+"\"";if(LaunchAppAndWait("WScript.exe",szCmdLine,WAIT)<0)thenMessageBox("不能建立WEB虚拟目录,没有找到WScript.exe或执行脚本错误.",SEVERE);endif;SdShowMsg(szWaitTxt,FALSE);endif;return0;end;////////////////////////////创建和优化数据库//////////////////////////functionCreateDataBase(svSQLsvr,svSQLusr,svSQLpwd)STRINGszCmdLine,szWaitTxt;beginszWaitTxt="正在创建"+@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)thenMessageBox("数据库创建失败!请确您的系统中已安装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)thenMessageBox("数据库优化失败!您可以在sql查询分析器中执行\nuseOASystem;execsp_updatestats\n完成!",SEVERE);endif;SdShowMsg(szWaitTxt,FALSE);return0;end;

关于邯郸资讯网 | 广告服务 | 联系我们 | 网站声明 | 本网招聘 | 本网动态

版权所有:邯郸资讯网 Copyright @2012-2021 Inc.All Rights Reserved.