ASP教程之一个ASP（VBScript）复杂SQL语句构建“...

减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件，简单易用，无需专业技术支持。vbscript|语句|vbscript<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
<%OptionExplicit%>
<%Response.Buffer=True%>
<%
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
///
///文件名:SQLBuilderForVbs
///感化:构建一些复杂的SQL语句，分离在提交表单时利用，能够较便利
///程式编写者:曾思源
///申明:复杂SQL语句构建“类”,VBS版,只需保存本正文段，不管是不是触及贸易，您能够恣意利用，转载或援用
///日期:2005-1-8
///_________________________________________________________________________________________________
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
%>
<%
OnErrorResumeNext

ClassQuestStringBuilder

PrivateobjFields
PrivatestrTableName
PrivatestrPKey
PrivatestrPKeySort
PrivatestrCondition
PrivateaContition()
PrivatestrOperator
PrivatestrLogic
PrivateblnState

/-----初始化-----/

PrivateSubClass_Initialize()
SetobjFields=Server.CreateObject("Scripting.Dictionary")
strTableName=Null
strPKey=Null
strPKeySort=Null
strCondition=Null
ReDimaContition(1)
strOperator="="
strLogic="AND"
blnState=False
EndSub

PrivateSubClass_Terminate()
SetobjFields=Nothing
strTableName=Null
strPKey=Null
strPKeySort=Null
strCondition=Null
EraseaContition
strOperator=Null
strLogic=Null
blnState=False
EndSub

/----字段名处置----/

PrivateFunctionProcessField(ByValsField)
ProcessField="["&sField&"]"
EndFunction

/-----字段值处置-----/

PrivateFunctionProcessValue(ByValsValue)
DimtmpType:tmpType=VarType(sValue)
SelectCasetmpType
Case2,3,4,5,11数字范例，布尔范例
ProcessValue=sValue
Case8字符范例
ProcessValue=""&Safe(sValue)&""
CaseElse别的范例
ProcessValue=""&Safe(sValue)&""
EndSelect
EndFunction

/-----综合处置-----/

PrivateFunctionProcess(ByRefobj,ByValstrType)
DimKeys:Keys=obj.Keys
DimItems:Items=obj.Items
DimintCount:intCount=obj.Count
Dimtmp()
ReDimtmp(1)
IfintCount>0Then
DimtmpArray(),I
ReDimtmpArray(intCount-1)
ForI=0TointCount-1
tmpArray(I)=Keys(I)&"="&Items(I)
Next
SelectCaseUCase(Trim(strType))
Case"UPDATE"
Process=Join(tmpArray,",")
Case"SELECT"
Process=Join(Keys,",")
Case"INSERT"
tmp(0)=Join(Keys,",")
tmp(1)=Join(Items,",")
Process=tmp
Erasetmp
EndSelect
ErasetmpArray
Else
SelectCaseUCase(Trim(strType))
Case"UPDATE"
Process=False
Case"SELECT"
Process="*"
Case"INSERT"
Process=tmp
EndSelect
EndIf
EndFunction

/-----小小的平安处置-----/

PrivateFunctionSafe(s)
Safe=Replace(s,"","")
EndFunction

/-----清空上一次输出的参数，但保存TableName-----/

PublicSubClear()
objFields.RemoveAll
strTableName=Null
strPKey=Null
strPKeySort=Null
strCondition=Null
EraseaContition
strOperator="="
strLogic="AND"
blnState=False
EndSub

/----天生查询语句----/

PublicFunctiongetSelect()
DimstrSQLTemplate:strSQLTemplate="SELECT{fields}FROM{table}{conditions}{orderby}{sort}"
strSQLTemplate=Replace(strSQLTemplate,"{fields}",Process(objFields,"SELECT"))
IfVarType(strTableName)=1ThenExitFunction
strSQLTemplate=Replace(strSQLTemplate,"{table}",strTableName)
IfVarType(strCondition)1AndstrCondition""Then
strSQLTemplate=Replace(strSQLTem</p>强大的可扩展性。ASP具有强大的扩展性，可以实现与多种网络、硬件设备的连接：通过专用的通讯线路远程接入企业；通过远程拨号服务器为远程拨号客户提供服务；通过WAP为移动电话互联网客户服务。

Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)

先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习

Session:这个存储跟客户端会话过程的数据，默认20分钟失效

它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。

下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。　　因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。

ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。　　因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。

Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。

我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。