ASP教程之用IS6 举行 ASP 软件的打包和主动安装

由于ASP提供的是一对多的服务，所以用户的一些特殊需求很难得到满足。打包|主动安装/*writtenbyJaron,2000-12-12*/
/*原出处：江都资讯网论坛http://www.jiangdu.net/bbs*/
/*转载请说明出处和保存此版权信息*/
/*接待利用SiteManager网站办理体系http://sitemanager.cnzone.net*/



#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;
begin

szBmpPath="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:
//beginningofdialogslabel

Dlg_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="请选择您必要按哪一种体例安装";
</p>优点：简单易学、开发速度快、有很多年“历史”，能找到非常多别人做好的程序来用、配合activeX功能强大，很多php做不到的asp+activeX能做到，例如银行安全控件

学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。

学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。

不能只是将它停留在纸上谈兵的程度上。

ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。

仓酷云

学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组

多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。