仓酷云

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

[学习教程] ASP编程:一个整合SQL语句的类

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

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

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

x
专业性的服务。有的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程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。
再见西城 该用户已被删除
5#
发表于 2015-2-7 03:32:44 | 只看该作者
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。
老尸 该用户已被删除
6#
发表于 2015-2-20 03:07:05 | 只看该作者
掌握asp的特性而且一定要知道为什么。
兰色精灵 该用户已被删除
7#
发表于 2015-3-6 16:15:12 | 只看该作者
封装性使得代码逻辑清晰,易于管理,并且应用到ASP.Net上就可以使业务逻辑和Html页面分离,这样无论页面原型如何改变,业务逻辑代码都不必做任何改动;继承性和多态性使得代码的可重用性大大提高。
柔情似水 该用户已被删除
8#
发表于 2015-3-13 04:09:22 | 只看该作者
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。
分手快乐 该用户已被删除
9#
发表于 2015-3-13 04:09:22 | 只看该作者
虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家,只是从一个例子告诉你怎么用。不会深入讨论,更不会将没有出现在例子里的方法都一一列举出来。
金色的骷髅 该用户已被删除
10#
发表于 2015-3-20 12:22:29 | 只看该作者
弱类型造成潜在的出错可能:尽管弱数据类型的编程语言使用起来回方便一些,但相对于它所造成的出错几率是远远得不偿失的。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-12-23 05:12

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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