我是历尽千辛万苦，拔山涉水啊，终于把这个页面写完了，不过这也要多感谢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,"contentquot;)
　　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

(责任编辑：admin)