|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
SQLServer是基于服务器端的中型的数据库,可以适合大容量数据的应用,在功能上管理上也要比Access要强得多。在处理海量数据的效率,后台开发的灵活性,可扩展性等方面强大。installshield|打包|数据|数据库|主动安装|installshield|打包|主动安装//近期公司用ASP+SQL开辟办公主动化OA,必要制造安装程序刊行,此剧本是用IS9.0制造,以此共享,与各同仁交换进修
#defineBITMAP_ID1
#include"ifx.h"//不克不及挪动
prototypeCreateWebSite(STRING,STRING);//创立IIS站点
prototypeCreateVirtualDir(STRING);//创立假造目次
prototypeCreateDataBase(STRING,STRING,STRING);//创立SQL数据库
prototypeCheckIIS();//示例:反省体系是不是安装IIS
STRINGTMP_PRODUCT_NAME,TMP_PRODUCT_VERSION,TMP_COMPANY_NAME,TMP_PRODUCT_KEY,TMP_TITLE_CAPTIONBAR;
STRINGglobalstr,destdir,destsvr,destsa,destpw;
NUMBERnvFileHandle,nvFileHandlebak,asaline;
BOOLiscreatedb;
STRINGnSetupType,szSQLsvr,szSQLusr,szSQLpwd,szSQLsvrDefault,szSQLusrDefault,szSQLpwdDefault;
STRINGszADsvr,szADusr,szADpwd,szADsvrDefault,szADusrDefault,szADpwdDefault;
STRINGszADDomain,szADOU,szADDomainDefault,szADOUDefault,ADDC1;
STRINGsvName,svCompany,svSerial;
functionOnFirstUIBefore()
NUMBERnResult,nOpt,svEdit1,svEdit2;
STRINGszTitle,szMsg,szBmpPath;
STRINGszLicenseFile,szQuestion;
STRINGszServerIP,szServerPort,szServerIPDefault,szServerPortDefault;
STRINGszFile,szTargetPath,szDir,szfolder;
STRINGszComponents,szTargetdir;
STRINGszField1,szField2;
STRINGszDefault,svResult;
OBJECTpiisObj;
LISTlist,listStartCopy;
NUMBERnLevel,nvSize;
begin
TMP_PRODUCT_NAME="XXX电子政务平台";
TMP_PRODUCT_VERSION="V2.0";
TMP_COMPANY_NAME="XXX公司";
TMP_PRODUCT_KEY="88888888";
TMP_TITLE_CAPTIONBAR="0";
szBmpPath=SUPPORTDIR^"left.bmp";
DialogSetInfo(DLG_INFO_ALTIMAGE,szBmpPath,FALSE);//设置右边的图片
//ToDo:ifyouwanttoenablebackground,windowtitle,andcaptionbartitle
SetTitle(@TITLE_MAIN,24,WHITE);
SetTitle(@TITLE_CAPTIONBAR,0,BACKGROUNDCAPTION);
Enable(FULLWINDOWMODE);
Enable(BACKGROUND);
SetColor(BACKGROUND,RGB(0,128,128));
PlaceBitmap(szBmpPath,BITMAP_ID,0,0,FULLSCREEN);
//默许值设定
TARGETDIR="C:"^"inetpub"^@FOLDER_NAME;
szDir=TARGETDIR;
SHELL_OBJECT_FOLDER=@FOLDER_NAME;
svName="";
svCompany="";
svSerial="88888888";
if(CheckIIS()==1)then//示例:反省体系是不是安装IIS
//MessageBox("已安装了IIS,安装持续!",SEVERE);
gotoDlg_Start;
else
MessageBox("该体系没有安装IIS,请先安装IIS!",WARNING);
gotoend_all_install;//停止安装
endif;
Dlg_Start://入手下手对话框
Dlg_SdWelcome://接待对话框
szTitle="接待安装利用"+TMP_PRODUCT_NAME+""+TMP_PRODUCT_VERSION;
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="体系信息概述";
szMsg="体系概述";
nResult=SdShowInfoList(szTitle,szMsg,list);
ListDestroy(list);
if(nResult=BACK)gotoDlg_SdLicense;
Dlg_SdRegisterUserEx://用户信息对话框
szMsg="";
szTitle="用户信息注册";
svCompany="XXX省";
svSerial="XXX单元";
nResult=SdRegisterUserEx(szTitle,szMsg,svName,svCompany,svSerial);
if(nResult=BACK)gotoDlg_SdShowInfoList;
//反省序列号
//if(CHK_serial(svCompany,svSerial)<0)then
//gotoDlg_SdRegisterUserEx;
//endif;
//反省序列号终了
Dlg_InputADAdmin://设置AD目次服务器的IP和用户名
szTitle="设置目次(AD)服务器";
szMsg="如今入手下手设置目次(AD)服务器的IP、办理员帐号和暗码";
szQuestion="请输出目次(AD)服务器的办理员帐号和暗码,安装程序将依照您供应的IP地点、帐号和暗码举行设置。假如您供应的帐号或暗码毛病的话,该体系将不克不及一般利用!";
szADsvr="IP地点:";
szADusr="帐号:";
szADpwd="密码:";
szADsvrDefault="192.168.8.8";
szADusrDefault="Administrator";
szADpwdDefault="";
SetDialogTitle(DLG_ASK_TEXT,szTitle);
nResult=SdShowDlgEdit3(szTitle,szQuestion,szADsvr,szADusr,szADpwd,szADsvrDefault</p>ASP.NET和ASP的比较,技术上比较已经没什么可说的了.新一代在大部分程度来说当然是比旧一代好了.关键看你对所做软件的理解了.因人而定.会写的话也可能比ASP.NET写得更有效率和更方便重用 |
|