仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 490|回复: 9
打印 上一主题 下一主题

[学习教程] ASP教程之用InstallShield9 举行ASP软件的打包和...

[复制链接]
因胸联盟 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:40:28 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

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写得更有效率和更方便重用
飘灵儿 该用户已被删除
沙发
发表于 2015-1-20 10:56:46 | 只看该作者
它可通过内置的组件实现更强大的功能,如使用A-DO可以轻松地访问数据库。
金色的骷髅 该用户已被删除
板凳
发表于 2015-1-24 15:29:31 | 只看该作者
下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...
蒙在股里 该用户已被删除
地板
发表于 2015-1-27 19:16:50 | 只看该作者
Response:从字面上讲是“响应”,因此这个是服务端向客户端发送东西的,例如Response.Write
小女巫 该用户已被删除
5#
发表于 2015-2-5 08:53:57 | 只看该作者
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。
不帅 该用户已被删除
6#
发表于 2015-2-11 08:17:39 | 只看该作者
代码的可重用性差:由于是面向结构的编程方式,并且混合html,所以可能页面原型修改一点,整个程序都需要修改,更别提代码重用了。
乐观 该用户已被删除
7#
发表于 2015-3-2 01:23:41 | 只看该作者
运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中,便可快速完成网站的应用程序,无需编译,可在服务器端直接执行。容易编写,使用普通的文本编辑器编写,如记事本就可以完成。由脚本在服务器上而不是客户端运行,ASP所使用的脚本语言都在服务端上运行。
小魔女 该用户已被删除
8#
发表于 2015-3-11 01:35:36 | 只看该作者
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?
兰色精灵 该用户已被删除
9#
发表于 2015-3-17 18:09:18 | 只看该作者
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。
冷月葬花魂 该用户已被删除
10#
发表于 2015-3-24 17:23:30 | 只看该作者
封装性使得代码逻辑清晰,易于管理,并且应用到ASP.Net上就可以使业务逻辑和Html页面分离,这样无论页面原型如何改变,业务逻辑代码都不必做任何改动;继承性和多态性使得代码的可重用性大大提高。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-23 21:13

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表