<%
'在指定的数据库上运行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
%>