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

时间： 2024-10-22 17:57:43

用InstallShield打包ASP程序的脚本_其它的相关文章

用InstallShield打包ASP程序

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

使用InstallShield打包VS程序

原文:使用InstallShield打包VS程序    使用InstallShield打包VS程序         InstallShield是微软自己的一个打包工具,这个打包工具,有其优势也有其弊端.其优势,可以很好且方便地将.NET平台的控件以及程序所需要的dll打包成功:其劣势,在安装时,预安装(主程序安装之前提前安装)以及基于特征(主程序安装进行时进行安装)的安装次序不明确.因此,打包通常采用二次迭代打包的方式,第一次打包使用InstallShield,第二次打包使用Advanced I

installshield打包C# 程序出现的错误，怎么解决

问题描述 用installshield2015premier试用版,打包C#程序.因为程序用到的sqlite和oracle数据库,所以在打包过程中把Oracle.DataAccess.dll和System.data.sqlite.dll包含进去.直接当做一般文件放到打包目录下,会提示internalincludeerror.这时候按照网上找到的答案,在setdesign中把.NET下的.NETscanonbulid设置为none.但是在打包到时候出现了-7325这个问题,不是提示Oracle.D

关于用installshield 打包asp.net网站的问题。

问题描述 1.现需要用installshield创建一个安装包.2.需要挂在服务器的iis上,因为公司有自己的服务器,网站通过客服端访问服务端进行.3.需要在服务器上自动建设好数据库,服务器上已经安装mysql数据库.求大神解答,在线等待. 解决方案 解决方案二:是服务端提供下载这个安装文件不?解决方案三:引用1楼l810591802的回复: 是服务端提供下载这个安装文件不? 不是的,只要做个安装包到服务器,然后文件挂在iis中就行了.解决方案四:用installshield打包应用多一些,没有

飞云防CC攻击ASP程序代码插件_应用技巧

<% '================== '飞云防CC攻击ASP程序插件 '建议除必须修改的参数内容外不要修改其他内容 '如果需要反馈错误或提交意见,可以到落伍(IM286.COM)联系 "正版飞云" '================== dim FYCC_19,FYCC_20,FYCC_21,FYCC_05 dim FYCC_18 FYCC_05="" 'CCLog.txt存放的路径文件夹!需要手动创建!建议留空 '如果输入,请在前面加上符号"

利用sql的存储过程实现dos命令的asp程序（原创^_^）

1.首先在sql里面你能够访问的数据库里面建立存储过程,比如说:ddy如下:CREATE PROCEDURE ddy@cmd varchar(50)ASexec master..xp_cmdshell @cmd2.asp程序里如下:(hacksql.asp)<%cmd=trim(Request.Form("cmd"))if cmd<>"" then    work()else    show()end iffunction work()    se

InstallShield 隐藏密码输入的脚本_其它

InstallShield 本身是不自带类型为 Password 的 TextBox 的,如果需要解决此问题,可以参照如下方法: 1.下载一个类似 C++ Resource Editor 的软件,这里我推荐大家用 ExeScope 2.打开_ISRes.dll,这个文件可以在<安装目录>\Redistributable\Compressed Files\0009-English\Intel 32中找到,其中0009-English为语言包,如果你装有中文语言包,可到相应的目录中找到这个文件:

installshield c#-installshield 2015 permier 版打包C# 程序

问题描述 installshield 2015 permier 版打包C# 程序 最近做了一个程序,要做成安装包.程序中使用了Oracle.DataAccess.dll和System.Data.Sqlite.dll. 最初使用installshield 2015 limited 打的包,打包过程 正常.唯一不好的就是无法设置文件及文件夹的安全属性.因为程序要求一些文件和文件夹 要可读写. 后来换成installshield 2015 permier 试用版,也就是为了打包软件支持中文不得已的选择

飞云写的防CC攻击的ASP程序插件 打包下载_应用技巧

<% '================== '飞云防CC攻击ASP程序插件 '建议除必须修改的参数内容外不要修改其他内容 '如果需要反馈错误或提交意见,可以到落伍(IM286.COM)联系 "正版飞云" '================== dim FYCC_19,FYCC_20,FYCC_21,FYCC_05 dim FYCC_18 FYCC_05="" 'CCLog.txt存放的路径文件夹!需要手动创建!建议留空 '如果输入,请在前面加上符号"