加入收藏 | 设为首页 | 会员中心 | 我要投稿 济南站长网 (https://www.0531zz.com/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 站长学院 > Asp教程 > 正文

asp通用数据操纵函数 - ASP教程

发布时间:2016-08-04 04:19:30 所属栏目:Asp教程 来源:站长网
导读:我是历尽千辛万苦,拔山涉水啊,终于把这个页面写完了,不过这也要多感谢JSP了,因为昨天心血来潮的时候,突然想学JSP,于是找了几篇文章,看完后觉得javabean
我是历尽千辛万苦,拔山涉水啊,终于把这个页面写完了,不过这也要多感谢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

(编辑:济南站长网)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    热点阅读