在指定的数据库上运行SQL语句的类

<%
@#在指定的数据库上运行SQL语句的类
@#使用方法：
@#dim runs
@#set runs=new runsql
@#runs.setdbn=数据库名
@#if runs.ifok then
@# response.write runs.errs
@# response.end
@#end if
@#runs.setsql=sql
@#runs.run
@#if runs.ifok then
@# response.write runs.errs
@# response.end
@#else
@# response.write "执行成功"
@#end if



on error resume next
class runsql

private dbname @#数据库名

private sql @#要执行的SQL语句
private ifsure @#用来保存是否成功的标志，如果成功值为false，失败为true,初值为true
private errstr @#保存说明错误的文字

@#获取ifsure值
property get ifok()
ifok=ifsure
end property

@#获取errstr值
property get errs()
errs=errstr
end property

@#
private sub class_initialize()
@#设置ifsure,errstr的初值
ifsure=true
errstr="对指点数据库执行SQL语句"
end sub


@#给dbname赋值
property let setdbn(dbn)
dbname=dbn
ifexistdb dbn
end property

@#给SQL赋值
property let setsql(s)
sql=s
end property

@#执行操作
public sub run()
@#还原类状态
class_initialize

@#检查参数是否已经填写完整
if isnull(dbname) or isempty(dbname) or cstr(dbname)="" then
errstr="dbname不能为空"
exit sub
end if

if isnull(sql) or isempty(sql) or cstr(sql)="" then
errstr="sql不能为空"
exit sub
end if


dim conn @#连接数据库对象
set conn=Server.CreateObject("adodb.connection")
if err.number<>0 then
errstr="建立adodb.connection对像失败."
set objcreate=nothing
exit sub
end if

errstr="不能连接数据库"

@#连接数据库
conn.connectionstring="provider=microsoft.jet.oledb.4.0;data source="+server.mappath(dbname)
conn.open



errstr="执行SQL语句失败"
@#执行SQL语句

conn.execute(sql)

@#如果没出错 设置成功标志
if err.number=0 then
ifsure=false
end if

end sub



private sub ifexistdb(byval dbn)
@#还原类状态
class_initialize
@#如果数据库存在，就设为true，因为如果不存在的话就不能继续执行这个类
@#检查数据库是否已经存在

errstr="数据库不存在"

dim conn
set conn=server.createobject("adodb.connection")
conn.connectionstring="provider=microsoft.jet.oledb.4.0;data source="+server.mappath(dbn)
conn.open

if err.number=0 then
ifsure=false
end if

end sub
end class
%>

原文转自：http://www.ltesting.net