使用时可以在提交表单中写:
其中:
tbl:为要操作数据表的名称
keyv:为条件语句,多个条件可以用 $ 分隔
ON error resume Next
dim keya,condition,temp '临时变量
dim insstr,insstr1,insstr2,delstr,updstr,rltstr
tbl=request.QueryString("tbl") '表名
keyv=request.QueryString("keyv") '关键字段名
condition=""
keya=split(keyv,"$")
for each i in keya
if temp<>"" then
end if
condition=left(condition,len(condition)-5)
'----------操作数据库
dbconn.open connstr 'connstr是数据库连接字符串,这个再通用就不像话了
sqlstr="exec A_Tblinfo '"&tbl&"'"
'---------记录集为空处理
response.Clear()
response.End()
'---------------------------插入操作
insstr1="insert into ["&tbl&"]("
while not dbrst.eof
fldv=request.Form(fld)
insstr1=insstr1&fld&","
end if
wend
rltstr=""
rltstr=left(insstr1,(len(insstr1)-1))&") "&left(insstr2,(len(insstr2)-1))&") "
'---------------------------修改操作
updstr="update ["&tbl&"] set "
fld=dbrst("name")
if fldv<>"" and dbrst("colstat")<>1 then
end if
wend
rltstr=""
rltstr=left(updstr,(len(updstr)-1))&condition
'---------------------------删除操作
delstr="delete from ["&tbl&"] "
response.Clear()
response.End()
'-------处理数据记录
dbconn.execute rltstr
dbrst.close
dbconn.close
%>
'---- CursorTypeEnum Values ----
'Const adOpenKeyset = 1
'Const adOpenStatic = 3
'---- LockTypeEnum Values ----
'Const adLockPessimistic = 2
'Const adLockBatchOptimistic = 4