爱飞 发表于 2015-1-16 23:10:58

ASP编程:一个整合SQL语句的类

专业性的服务。有的ASP商提供垂直型的应用服务,针对某一特定行业提供应用服务。语句我们在写ASP数据库程序的时分,一般城市用到SQL语句,而在增添数据和更新数据的时分,一般会利用一下体例:insertintomessage(incept,sender,title,content,sendtime,flag,issend)values("&incept(i)&","&membername&","&title&","&message&",Now(),0,1)当字段对照多的时分,并且更新的表对照多的时分,修正起来会对照贫苦,并且查找毛病也对照坚苦。利用这个SQL类后能够简化修正,并且查错也对照简单。经由过程类的AddField函数增添字段名和字段值,可轻松的将字段名和字段值拔出SQL语句,然后前往该SQL语句。

上面让我们看看这个类的代码:

<%

classSQLString

************************************

变量界说

************************************

sTableName----表名

iSQLType----SQL语句范例:0-增添,1-更新,2-删除,3-查询

sWhere----前提

sOrder----排序体例

sSQL----值

PrivatesTableName,iSQLType,sWhere,sOrder,sSQL



************************************

类初始化/停止

************************************



PrivateSubClass_Initialize()

sTableName=""

iSQLType=0

sWhere=""

sOrder=""

sSQL=""

EndSub



PrivateSubClass_Terminate()

EndSub



************************************

属性

************************************

‘设置表名的属性

PublicPropertyLetTableName(value)

sTableName=value

EndProperty



‘设置前提

PublicPropertyLetWhere(value)

sWhere=value

EndProperty



‘设置排序体例

PublicPropertyLetOrder(value)

sOrder=value

EndProperty



‘设置查询语句的范例

PublicpropertyLetSQLType(value)

iSQLType=value

selectcaseiSQLType

case0

sSQL="insertinto#0(#1)values(#2)"

case1

sSQL="update#0set#1=#2"

case2

sSQL="deletefrom#0"

case3

sSQL="select#1from#0"

endselect

EndProperty



************************************

函数

************************************



增添字段(字段称号,字段值)

PublicSubAddField(sFieldName,sValue)

selectcaseiSQLType

case0

sSQL=replace(sSQL,"#1",sFieldName&",#1")

sSQL=replace(sSQL,"#2",""&sFieldName&",#2")

case1

sSQL=replace(sSQL,"#1",sFieldName)

sSQL=replace(sSQL,"#2",""&sFieldName&",#1=#2")

case3

sSQL=replace(sSQL,"#1",sFieldName&",#1")

EndSelect

EndSub



前往SQL语句

PublicFunctionReturnSQL()

sSQL=replace(sSQL,"#0",sTableName)

selectcaseiSQLType

case0

sSQL=replace(sSQL,",#1","")

sSQL=replace(sSQL,",#2","")

case1

sSQL=replace(sSQL,",#1=#2","")

case3

sSQL=replace(sSQL,",#1","")

endSelect

ifsWhere""then

sSQL=sSQL&"where"&sWhere

endif

ifsOrder""then</p>ActiveServerPage技术为应用开发商提供了基于脚本的直观、快速、高效的应用开发手段,极大地提高了开发的效果。在讨论ASP的安全性问题之前,让我们来看看ASP是怎么工作的。

飘飘悠悠 发表于 2015-1-20 07:59:20

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

灵魂腐蚀 发表于 2015-1-26 07:06:21

那么,ASP.Net有哪些改进呢?

第二个灵魂 发表于 2015-2-1 10:18:55

作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

再见西城 发表于 2015-2-7 03:32:44

运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。

老尸 发表于 2015-2-20 03:07:05

掌握asp的特性而且一定要知道为什么。

兰色精灵 发表于 2015-3-6 16:15:12

封装性使得代码逻辑清晰,易于管理,并且应用到ASP.Net上就可以使业务逻辑和Html页面分离,这样无论页面原型如何改变,业务逻辑代码都不必做任何改动;继承性和多态性使得代码的可重用性大大提高。

柔情似水 发表于 2015-3-13 04:09:22

你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

分手快乐 发表于 2015-3-13 04:09:22

虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家,只是从一个例子告诉你怎么用。不会深入讨论,更不会将没有出现在例子里的方法都一一列举出来。

金色的骷髅 发表于 2015-3-20 12:22:29

弱类型造成潜在的出错可能:尽管弱数据类型的编程语言使用起来回方便一些,但相对于它所造成的出错几率是远远得不偿失的。
页: [1]
查看完整版本: ASP编程:一个整合SQL语句的类