发布一个完全解决installshield打包ASP的代码（感谢Jaron）

[yangyanli]

//1、从光盘拷贝代码到硬盘的全新解决方案
//2、改进的数据库建立方法
//3、动态生成数据库连接文件conn.asp
//4、参考Joran的思路及方法，感谢



////////////////////////////////////////////////////////////////////////////////
//
// File Name: Setup.rul
//
// Description: InstallShield script
//
// Comments: This script was generated based on the selections you made in
// the Project Wizard. Refer to the help topic entitled "Modify
// the script that the Project Wizard generates" for information
// on possible next steps.
//
////////////////////////////////////////////////////////////////////////////////


// Include header files

#include "ifx.h"

////////////////////// string defines ////////////////////////////

//////////////////// installation declarations ///////////////////

// ----- DLL function prototypes -----


// your DLL function prototypes


// ---- script function prototypes -----
//////////////////////////////////////////////////////////////////////////////
prototype CreateDataBase(STRING,STRING,STRING,STRING);
prototype CreateWebSite(STRING,STRING); // 创建 IIS 站点
prototype CreateVirtualDir(STRING); // 创建虚拟目录

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

// your script function prototypes

// your global variables



//////////////////////////////////////////////////////////////////////////////
//
// FUNCTION: OnFirstUIBefore
//
// EVENT: 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;
string szTitle, szMsg;
string szLicenseFile, szQuestion;
string szDir;
string szfolder;


//上面自带
//临时目录，临时文件，源盘，目标盘
string sztempdir;
string sztempfolder;
string szfromdisk;

LIST listDirs;
number nFlag;

NUMBER nOpt,svEdit1,svEdit2;
STRING szBmpPath;
STRING szServerIP,szServerPort,szServerIPDefault,szServerPortDefault;
STRING szSQLsvr,szSQLusr,szSQLpwd,svSQLsvr,svSQLusr,svSQLpwd,svSQLsvr1,svSQLusr1,svSQLpwd1;
STRING svName, svCompany, svSerial;
STRING szFile,szTargetPath;
STRING szComponents, szTargetdir;
STRING szField1,szField2;
STRING szDefault,svResult;
OBJECT piisObj;
LIST list,listStartCopy;
NUMBER nLevel,nvSize;
STRING szSQLForder;
//下面自带



begin
// 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 = PROGRAMFILES ^@COMPANY_NAME ^@PRODUCT_NAME;

TARGETDIR = "C:" ^ "boyunsoft" ^"EBook";
//默认安装目录

szDir = TARGETDIR;
SHELL_OBJECT_FOLDER = @FOLDER_NAME;

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_SdAskDestPath:
szTitle = "";
szMsg = "路径中不可包含中文！！";
nResult = SdAskDestPath( szTitle, szMsg, szDir, 0 );
TARGETDIR = szDir;

if (StrFind(szDir," ")>0) then
MessageBox("博云书库的安装路径中不允许有空格，请重新设置！",INFORMATION);
goto Dlg_SdAskDestPath;
endif;

if (nResult = BACK) goto Dlg_SdLicense;

Dlg_ObjDialogs:
nResult = ShowObjWizardPages(nResult);
if (nResult = BACK) goto Dlg_SdAskDestPath;

[yangyanli]

Dlg_SdSelectFolder:
szfolder = SHELL_OBJECT_FOLDER;
szTitle = "";
szMsg = "";
nResult = SdSelectFolder( szTitle, szMsg, szfolder );
SHELL_OBJECT_FOLDER = szfolder;
if (nResult = BACK) goto Dlg_ObjDialogs;

Dlg_CheckIIS:
/////////////////////////////////////////////
//检测IIS组件是否安装
RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
if (RegDBKeyExist("System\\CurrentControlSet\\Services\\IISADMIN") = 0) then
MessageBox("安装失败：请先安装IIS组件，再安装博云书库！",INFORMATION);
return 0;
endif;

/////////////////////////////////////////////
//检测数据库服务器是否安装
RegDBSetDefaultRoot(HKEY_CURRENT_USER);
if (RegDBKeyExist("Software\\Microsoft\\Microsoft SQL Server") = 0) then
MessageBox("安装失败：请先安装SQL服务器，再安装博云书库！",INFORMATION);
return 0;
endif;

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

szTitle = "设置"+@PRODUCT_NAME+ "的运行模式";
szMsg = "请选择软件运行的方式，极力推荐使用独立站点方式运行";
szField1="自动创建新站点[不支持]";
szField2="自动创建虚拟目录ebook[支持]";//实际是支持的，自己改哈就行了
svEdit1=FALSE;
svEdit2=TRUE;
SetDialogTitle(DLG_ASK_TEXT,szTitle);
//DialogSetInfo ( DLG_INFO_CHECKSELECTION, "", 1);
nOpt = EXCLUSIVE ;
nResult = AskOptions (nOpt,szMsg,szField1,svEdit1,szField2,svEdit2);
if (nResult = BACK) then
goto Dlg_SdSelectFolder;
endif;//
if (svEdit2=FALSE) goto Dlg_SelMode;
//跳过询问地址和端口来创建站点
goto Dlg_AskSQL;

Dlg_AskText ://设置数据库服务器 对话框
szTitle = "设置IIS信息服务及数据库服务器";
szMsg = "现在开始设置IIS系统";
szQuestion=" 请输入本服务器的主机名或IP地址,安装程序将按照您提供的资料设置IIS信息服务。如果您没有填写，安装程序将自动跳过站点的创建！";
szServerIP="地址：";
szServerPort="端口：";
szServerIPDefault="192.168.0.6";
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地址和下面的用户名和密码创建和优化EBook数据库系统。";
szSQLsvr="主机名：";
szSQLusr="用户名：";
szSQLpwd="密码：";
svSQLsvr="192.168.0.6";
svSQLusr="sa";
svSQLpwd="";
SetDialogTitle(DLG_ASK_TEXT,szTitle);
nResult=SdShowDlgEdit3 (szTitle, szQuestion,szSQLsvr,szSQLusr,szSQLpwd,svSQLsvr,svSQLusr,svSQLpwd);
if (nResult = BACK) goto Dlg_SelMode;

Dlg_AskSQL2 ://设置数据库服务器 对话框
szTitle = "设置数据库";
szMsg = "现在开始设置图书馆管理系统数据库登陆方式";
szQuestion=" 请输入图书馆管理系统的SQL SERVER数据库服务器的用户名和密码,安装程序将按照您提供的IP地址和下面的用户名和密码登陆图书馆管理系统数据库。";
szSQLsvr="主机名：";
szSQLusr="用户名：";
szSQLpwd="密码：";
svSQLsvr1="192.168.0.6";
svSQLusr1="sa";
svSQLpwd1="";
SetDialogTitle(DLG_ASK_TEXT,szTitle);
nResult=SdShowDlgEdit3 (szTitle, szQuestion,szSQLsvr,szSQLusr,szSQLpwd,svSQLsvr1,svSQLusr1,svSQLpwd1);
if (nResult = BACK) goto Dlg_SelMode;

[yangyanli]

//把数据库文件拷贝到系统目录，就是其他数据库文件所在的目录
Dlg_SelectSQLFolder:
szDir = "C:\\Program Files\\Microsoft SQL Server\\MSSQL\\Data";
szTitle = "设置数据库路径";
szMsg = "请选择数据库文件夹Data的路径，该文件夹在您安装的SQL服务器目录Microsoft SQL Server中MSSQL下：";
nResult = SdAskDestPath( szTitle, szMsg, szDir, 0 );
szSQLForder = szDir;

if (nResult = BACK) goto Dlg_AskSQL;
//MessageBox(szSQLForder,INFORMATION);

nResult = (FindFile (szSQLForder, "master.mdf", sztempfolder));
//从szfrompdisk查找文件，检测是否有指定光盘
//sztempfolder参数无实际意义

if (nResult <0) then
MessageBox("您指定的文件夹不正确，请重新选择！",INFORMATION);
goto Dlg_SelectSQLFolder;
endif;

nResult = XCopyFile(SUPPORTDIR^"ebook_Data.MDF",szSQLForder,COMP_NORMAL);

if (nResult<0) then
MessageBox("安装失败：拷贝数据库文件错误！请将数据库ebook删除，重新安装！",INFORMATION);
return 0;
endif;
nResult = XCopyFile(SUPPORTDIR^"ebook_Log.LDF",szSQLForder,COMP_NORMAL);

if (nResult<0) then
MessageBox("安装失败：拷贝数据库文件错误！请将数据库ebook删除，重新安装！",INFORMATION);
return 0;
endif;

[yangyanli]

Dlg_CheckCDROM:

//<！--原来的
// setup default status
//SetStatusWindow(0, "");
//Enable(STATUSEX);
//StatusUpdate(ON, 100);
//原来的-->

///////////////////////////////
//检测光驱
listDirs = ListCreate (STRINGLIST);
nFlag = GetValidDrivesList ( listDirs , CDROM_DRIVE , -1 );
nFlag = ListGetFirstString ( listDirs , szfromdisk);
//将光盘符保存在sztempdisk

if (nFlag = 0) then

Dlg_CopyA:
nResult = (FindFile (szfromdisk+":\\", "a.txt", sztempfolder));
//从szfrompdisk查找文件，检测是否有指定光盘
//sztempfolder参数无实际意义

if (nResult <0) then
MessageBox("请将A盘放入光驱,再点“下一步”继续",INFORMATION);
// goto Dlg_CopyA;
endif;

SetStatusWindow(0, "");
Enable(STATUSEX);

//szfromdisk = "F:\\梦幻课堂";

sztempdir = TARGETDIR;

nResult = XCopyFile(szfromdisk+":\\*.*",sztempdir,INCLUDE_SUBDIR);

if (nResult<0) then
MessageBox("拷贝文件错误，安装失败！",INFORMATION);
// return 0;
endif;

Dlg_CopyB:

nResult = (FindFile (szfromdisk+":\\", "b.txt", sztempfolder));
//从szfrompdisk查找文件，检测是否有指定光盘
//sztempfolder参数无实际意义

if (nResult <0) then
MessageBox("请将B盘放入光驱,再点“确定”继续",INFORMATION);
// goto Dlg_CopyB;
endif;

sztempdir = TARGETDIR;

nResult = XCopyFile(szfromdisk+":\\*.*",sztempdir,INCLUDE_SUBDIR);
if (nResult<0) then
MessageBox("拷贝文件错误，安装失败！",INFORMATION);
// return 0;
endif;

//////////////创建连接文件conn.asp
//这个小软件是我自己写的，需要可索取
sztempfolder = " "+TARGETDIR+"\\,conn.asp "+","+svSQLsvr+","+svSQLusr +","+svSQLpwd;
LaunchAppAndWait ( SUPPORTDIR ^"mkconn.exe" , sztempfolder ,WAIT);

sztempfolder = " "+TARGETDIR+"\\,loginconn.asp "+","+svSQLsvr1+","+svSQLusr1 +","+svSQLpwd1;
LaunchAppAndWait ( SUPPORTDIR ^"mklogin.exe" , sztempfolder ,WAIT);

////////////////
//继续拷贝其他指定光盘
//拷贝光盘完毕

Dlg_SdStartCopy://开始复制文件 对话框

if (svEdit1=TRUE) then
CreateWebSite(szServerIPDefault,szServerPortDefault); // 开始创建 IIS 站点
endif;
if (svEdit2=TRUE) then
CreateVirtualDir("ebook"); // 开始创建 IIS 站点
endif;
CreateDataBase(svSQLsvr,svSQLusr,svSQLpwd,szSQLForder); // 创建和优化数据库

StatusUpdate(ON, 100);

else

MessageBox("安装失败：没有找到光盘驱动器！",INFORMATION);
return 0;
endif;

[yyl3227]

return 0;

end;

///////////////////////////////////////////////////////////////////////////////
//
// FUNCTION: OnMaintUIBefore
//
// EVENT: MaintUIBefore event is sent when end user runs installation that
// has already been installed on the machine. Usually this happens
// through Add/Remove Programs applet. In the handler installation
// usually displays UI allowing end user to modify existing installation
// or uninstall application. After this function returns,
// ComponentTransferData is called to perform file transfer.
//
///////////////////////////////////////////////////////////////////////////////
function OnMaintUIBefore()
string szResult,szCaption;
number nResult;
begin
// TO DO: if you want to enable background, window title, and caption bar title
// SetTitle( @TITLE_MAIN, 24, WHITE );
// SetTitle( @TITLE_CAPTIONBAR, 0, BACKGROUNDCAPTION );
// SetColor(BACKGROUND,RGB (0, 128, 128));
// Enable( FULLWINDOWMODE );
// Enable( BACKGROUND );

//Maintenance Mode
szResult = SdLoadString(IFX_MAINTUI_MSG);
szCaption = SdLoadString(IFX_ONMAINTUI_CAPTION);
nResult = SprintfBox(MB_OKCANCEL,szCaption,"%s",szResult);
if (nResult = IDCANCEL) then
exit;
elseif(nResult = IDOK) then
// setup default status
SetStatusWindow(0, "");
Enable(STATUSEX);
StatusUpdate(ON, 100);

//-->Remove all components
ComponentRemoveAll();
endif;
return 0;
end;

///////////////////////////////////////////////////////////////////////////////
//
// FUNCTION: OnMoving
//
// EVENT: Moving event is sent when file transfer is started as a result of
// ComponentTransferData call, before any file transfer operations
// are performed.
//
///////////////////////////////////////////////////////////////////////////////
function OnMoving()
//////////////////支持从控制面板卸载
string szAppPath,szBmpPath;
begin
// Set LOGO Compliance Application Path
// TO DO : if your application .exe is in a subfolder of TARGETDIR then add subfolder

UNINSTALL_STRING = DISK1TARGET ^ "\\Setup.exe";
MaintenanceStart();
szAppPath = TARGETDIR;
RegDBSetItem(REGDB_APPPATH, szAppPath);
RegDBSetItem(REGDB_APPPATH_DEFAULT, szAppPath ^ @PRODUCT_KEY);
end;


// --- include script file section ---


//////////////////////////
// 创建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(10);
// szCmdLine = SUPPORTDIR ^"mkw3site.vbs"+" -r "+TARGETDIR+" -i "+szServerIPDefault+" -o "+szServerPortDefault+" -t EBook";
szCmdLine = SUPPORTDIR ^"mkw3site.vbs"+" -r "+ TARGETDIR +" -i "+szServerIPDefault+" -o "+szServerPortDefault+" -t EBook";
// MessageBox(TARGETDIR,INFORMATION);
// MessageBox(szCmdLine,INFORMATION);

if (LaunchAppAndWait("WScript.exe", szCmdLine,WAIT) < 0) then
MessageBox ("安装失败：不能建立WEB站点.",SEVERE);
return 0;
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 ("安装失败：不能建立虚拟目录ebook",SEVERE);
return 0;
endif;
SdShowMsg (szWaitTxt, FALSE);
endif;
return 0;
end;

//////////////////////////
// 创建和优化数据库
//////////////////////////
function CreateDataBase(svSQLsvr,svSQLusr,svSQLpwd,szSQLForder)
STRING szCmdLine,szWaitTxt;
begin
szWaitTxt=" 正在创建"+@PRODUCT_NAME+"所需数据库....";
SdShowMsg (szWaitTxt, TRUE);
Delay(2);
//全新的数据库建立解决方案
//szCmdLine = "/U "+svSQLusr+" /P "+svSQLpwd+" /S "+svSQLsvr+" /Q \"exec sp_attach_single_file_db N'ebook' , N'"+ szSQLForder ^"ebook_Data.MDF'\"";
szCmdLine = "/U "+svSQLusr+" /P "+svSQLpwd+" /S "+svSQLsvr+" /Q \"exec sp_attach_db N'ebook' , N'"+ szSQLForder ^"ebook_Data.MDF',N'"+ szSQLForder ^"ebook_Log.LDF'\"";

//MessageBox(szCmdLine,INFORMATION);

if (LaunchAppAndWait("isql.exe", szCmdLine,WAIT) < 0) then
MessageBox ("安装失败：数据库创建失败！",SEVERE);
return 0;
endif;
SdShowMsg (szWaitTxt, FALSE);
szWaitTxt=" 正在优化"+@PRODUCT_NAME+"系统数据库....";
SdShowMsg (szWaitTxt, TRUE);
Delay(2);
szCmdLine = "/U "+svSQLusr+" /P "+svSQLpwd+" /S "+svSQLsvr+" /Q \"use ebook ; exec sp_updatestats\"";
if (LaunchAppAndWait("isql.exe", szCmdLine,WAIT) < 0) then
MessageBox ("数据库优化失败",INFORMATION);
endif;
SdShowMsg (szWaitTxt, FALSE);
return 0;
end;

[dgseamaple]

还有没有？

[yangyanli]

没看到都 end; 咯~:P