asp通用数据操纵函数

asp通用数据操纵函数2010-02-25我是历尽千辛万苦，拔山涉水啊，终于把这个页面写完了，不过这也要多感谢JSP了，因为昨天心血来潮的时候，突然想学JSP，于是找了几篇文章，看完后觉得javabean太牛X了，有感觉有点象我平时写asp时的处理方式：都是一个页面布局，另外一个后台处理。

正好又看到它的一个通用处理方法，于是我也设计了一个ASP的，不过只能用在SQL Server里了，因为我经常用的都是SQL数据库。

下面时我写的页面，请多多指教！

使用时可以在提交表单中写：

其中：

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