小魔女 发表于 2015-1-16 23:08:56

ASP编程:在指定的数据库上运转SQL语句的类

因为现在数据库都使用标准的SQL语言对数据库进行管理,所以如果是标准SQL语言,两者基本上都可以通用的。SQLServer还有更多的扩展,可以用存储过程,数据库大小无极限限制。数据|数据库|语句<%
在指定的数据库上运转SQL语句的类
利用办法:
dimruns
setruns=newrunsql
runs.setdbn=数据库名
ifruns.ifokthen
response.writeruns.errs
response.end
endif
runs.setsql=sql
runs.run
ifruns.ifokthen
response.writeruns.errs
response.end
else
response.write"实行乐成"
endif



onerrorresumenext
classrunsql

privatedbname数据库名

privatesql要实行的SQL语句
privateifsure用来保留是不是乐成的标记,假如乐成值为false,失利为true,初值为true
privateerrstr保留申明毛病的笔墨

猎取ifsure值
propertygetifok()
ifok=ifsure
endproperty

猎取errstr值
propertygeterrs()
errs=errstr
endproperty


privatesubclass_initialize()
设置ifsure,errstr的初值
ifsure=true
errstr="对指导数据库实行SQL语句"
endsub


给dbname赋值
propertyletsetdbn(dbn)
dbname=dbn
ifexistdbdbn
endproperty

给SQL赋值
propertyletsetsql(s)
sql=s
endproperty

实行操纵
publicsubrun()
复原类形态
class_initialize

反省参数是不是已填写完全
ifisnull(dbname)orisempty(dbname)orcstr(dbname)=""then
errstr="dbname不克不及为空"
exitsub
endif

ifisnull(sql)orisempty(sql)orcstr(sql)=""then
errstr="sql不克不及为空"
exitsub
endif


dimconn毗连数据库工具
setconn=Server.CreateObject("adodb.connection")
iferr.number0then
errstr="创建adodb.connection对像失利."
setobjcreate=nothing
exitsub
endif

errstr="不克不及毗连数据库"

毗连数据库
conn.connectionstring="provider=microsoft.jet.oledb.4.0;datasource="+server.mappath(dbname)
conn.open



errstr="实行SQL语句失利"
实行SQL语句

conn.execute(sql)

假如没堕落设置乐成标记
iferr.number=0then
ifsure=false
endif

endsub



privatesubifexistdb(byvaldbn)
复原类形态
class_initialize
假如数据库存在,就设为true,由于假如不存在的话就不克不及持续实行这个类
反省数据库是不是已存在

errstr="数据库不存在"

dimconn
setconn=server.createobject("adodb.connection")
conn.connectionstring="provider=microsoft.jet.oledb.4.0;datasource="+server.mappath(dbn)
conn.open

iferr.number=0then
ifsure=false
endif

endsub
endclass
%></p>缺乏可以共同遵循的行业标准,ASP还处在发展初期,大家对它的理解不同,如产品和服务标准,收费标准等,不利于行业的健康发展。

因胸联盟 发表于 2015-1-20 07:39:21

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

只想知道 发表于 2015-1-28 23:48:55

另外因为asp需要使用组件,所以了解一点组件的知识(ADODB也是组件)

飘灵儿 发表于 2015-2-2 11:02:34

用户端的浏览器不需要提供任何别的支持,这样大提高了用户与服务器之间的交互的速度。

admin 发表于 2015-2-7 18:11:48

兴趣爱好,那么你无须学编程,申请一个域名和空间,在网上下载一些免费开源的CMS系统,你不用改代码,只须熟悉它们的后台操作,像office一样简单方便,很快就能建一个站点,很多站长都是这样做的

第二个灵魂 发表于 2015-2-22 20:16:15

我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页,这其中就用到了ASP,我想它的作用是可想而知的。

老尸 发表于 2015-3-7 02:10:39

我们必须明确一个大方向,不要只是停留在因为学而去学,我们应有方向应有目标.

活着的死人 发表于 2015-3-14 04:03:43

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

不帅 发表于 2015-3-21 00:20:32

尽管MS自己讲C#内核中更多的象VC,但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言,而不是一种脚本,所以它具有面向对象编程语言的一切特性,比如封装性、继承性、多态性等等,这就解决了刚才谈到的ASP的那些弱点。
页: [1]
查看完整版本: ASP编程:在指定的数据库上运转SQL语句的类