asp通用数据操纵函数

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

时间: 2016-02-25

asp通用数据操纵函数的相关文章

asp通用采集函数冗余版可以保存文件到本地_小偷/采集

<% '名称:asp通用采集函数冗余版,要精品版的有心人自己改 '作者:柳永法 '日期:2007-6-23 Function getHTTPPage(Path)     t = GetBody(Path)     getHTTPPage = BytesToBstr(t, "GB2312") End Function Function GetBody(url)     On Error Resume Next     Set xmlhttp = CreateObject("

asp通用采集函数冗余版可以保存文件到本地

<% '名称:asp通用采集函数冗余版,要精品版的有心人自己改 '作者:柳永法 '日期:2007-6-23 Function getHTTPPage(Path)     t = GetBody(Path)     getHTTPPage = BytesToBstr(t, "GB2312") End Function Function GetBody(url)     On Error Resume Next     Set xmlhttp = CreateObject("

asp通用分页函数,自动输出数据库列名、内容

分页|函数|数据|数据库 '自动输出数据库列名.内容并分页通用函数 [非常精典]'只需要更改数据库连接代码,即可输入完整的表格内容信息,调用代码如下: <%Function cutPage(sqlStr,Conn,dateNums,pageNums,URLs)'利用ADO分页的函数Dim sql,Cn,dateNum,pageNum,URL,rsDateSql=Trim(sqlStr) '获得sql语句.Set Cn=Conn '获得数据对象dateNum=Cint(dateNums) '获得每

ASP 通用文章分页函数(非记录集分页)

分页|函数|记录集 说明: 本函数为文章分页, 非记录集分页本函数实现将文章分页显示, 并以指定长度显示每一分页本函数实现不需指定 URL, 自动更替 URL本函数实现返回多个结果, 为: 分页链接-文章统计信息-文章内容, 由字典实现如果分页大小大于文章总大小, 分页链接将为空. 显示如:第1页 第2页 第3页 第4页 第5页 50,000字/页 1/5页 共235,289字正文... 注: 显示内容的三个元素可自由变更位置. 附注: 如果您是在查找 记录集分页函数, 鄙人以前也写过一个, 名

Asp.Net实现的通用分页函数_实用技巧

本文实例讲述了Asp.Net实现的通用分页函数.分享给大家供大家参考,具体如下: 功能: 1.每页设置显示9页,超过9页,点5页后的+1页显示(可以随便修改) 2.CSS样式自己可以设置 3.无任何咋代码产生,利于搜索引擎优化 分页程序 objPDS = new PagedDataSource(); objPDS.DataSource = dtTable.DefaultView;//绑定数据源 objPDS.AllowPaging = true; objPDS.PageSize =10;//分页

ASP通用分页样式函数代码_应用技巧

<% '****************************** '函数:MultiPage(Numbers,Perpage,Curpage,Url_Add) '参数:Numbers,总记录数:Perpage,每页记录数:Curpage,当前页:Url_Add,当前页其它参数如?action=list& '作者:阿里西西 '日期:2007/7/15 '描述:ASP通用分页样式函数 '示例:MultiPage(100,10,2,"?action=list&")

ASP通用分页样式函数代码

<% '****************************** '函数:MultiPage(Numbers,Perpage,Curpage,Url_Add) '参数:Numbers,总记录数:Perpage,每页记录数:Curpage,当前页:Url_Add,当前页其它参数如?action=list& '作者:阿里西西 '日期:2007/7/15 '描述:ASP通用分页样式函数 '示例:MultiPage(100,10,2,"?action=list&")

asp通过JMAIL实现通用发送函数_应用技巧

<% '****************************** '函数:SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority) '参数:MailtoAddress,接收邮件地址:MailtoName,接收者姓名:ubject,主题:ailBody,邮件内容:FomName,主送姓名:ailFrom,主送邮件地址:riority,邮件等级 '作者:阿里西西 '日期:2007/7/13 '描述

asp通过JMAIL实现通用发送函数

<% '****************************** '函数:SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority) '参数:MailtoAddress,接收邮件地址:MailtoName,接收者姓名:ubject,主题:ailBody,邮件内容:FomName,主送姓名:ailFrom,主送邮件地址:riority,邮件等级 '作者:阿里西西 '日期:2007/7/13 '描述