|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
因为现在数据库都使用标准的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还处在发展初期,大家对它的理解不同,如产品和服务标准,收费标准等,不利于行业的健康发展。 |
|