字符串数据库形式的类

原创 2005年05月22日 00:13:00
<% '**************************** ' ' 类 字符串形式的数据库操作 ' ' 建立 jaken ' ' 日期 05-4-20 ' '**************************** Class clsDbStrDB ' 公开的连接 Public ActiveConnection ' 表 Public Tb ' 对应的标志字段' Markid Public Markid Public Id ' 字段 (删除时候对应的字段) Public Fld public FormItem '数据类型 0 数字 1字符 Public ctrl '============================= ' 过程名 main ' 功能 主调函数 ' 返回值 '============================= Sub main() End sub '============================= ' 过程名 DelFromForm ' 功能 删除从表单来的对应的数据 ' 返回值 '============================= Sub DelFromForm dim delstr,sql,rs,d,rd delstr = request(FormItem) d = split(delstr,", ") set Rs = server.createobject("ADODB.recordset") Rs.lockType = 3 Rs.cursorType = 1 Rs.ActiveConnection = ActiveConnection Rs.source = Tb IF ctrl = 0 then Rs.filter = MarkId &"=" & ID Else Rs.filter = MarkId &"='" & ID &"'" End if Rs.open IF rs.eof then exit sub END IF Dim Rs_temp Rs_temp = rs(Fld) for i = 0 to ubound(d) rd = d(i)&"|||" if d(i)<>"$$$" then If instr(lcase(Rs_temp),lcase(rd)) > 0 then Rs_temp = replace(Rs_temp,rd,"") '===== 当是最后一个数据的时候 Else IF instr(lcase(Rs_temp),"|||"&d(i))> 0 then rd = "|||"&d(i) ' response.write "KKKKKKK" Rs_temp = replace(Rs_temp,rd,"") '===== 当只有一个数据的时候 Else Rs_temp = replace(Rs_temp,d(i),"") End if End if End if next Rs_temp = Replace(Rs_temp,"||||||","|||") IF Rs_temp = "|||" then Rs_temp = "" End if rs(Fld) =Rs_temp Rs.update set Rs = nothing End sub '============================= ' 过程名 Add ' 功能 向数据库添加数据 ' 返回值 ' 参数 需要添加的数值 '============================= Sub Add(job_Id) Dim sql,rs,myid set Rs = server.createobject("ADODB.recordset") Rs.lockType = 3 Rs.cursorType = 1 Rs.ActiveConnection = ActiveConnection Rs.source = Tb Rs.open IF rs.eof then rs.addnew() rs(Markid) = myid rs(Fld) = job_id & "$$$" & now() rs.update Else IF rs(Fld)<>"" then rs(Fld) = rs(Fld)&"|||" & job_id & "$$$" & now() rs.update Else rs(Fld) = myid rs(Fld) = job_id & "$$$" & now() rs.update End if END if Set Rs = Nothing End Sub '========================= ' 过程名 getArray ' 功能 向数据库读取数据 ' 返回值 数组,getArray(0) 表示对应的 Mark 字段的数值(如job_id) ' 参数 需要添加的数值 '============================= Function getArray(xfld,dfld) Dim sql2,Rs2,yp,t,d,i,j Sql2 = "select "& xfld & "," & dfld &" from " & Tb & " where " IF ctrl = 0 then Sql2 = sql2 & MarkId & "=" & id Else Sql2 = sql2 & MarkId & "='" &id &"'" End if Set Rs2 = Server.CreateObject("ADODB.Recordset") ' Response.write Sql2 Rs2.open sql2,Activeconnection,1,1 IF Rs2.eof then getArray = "ssss" Exit function Else Redim d(100) j= 2 Do while not Rs2.Eof and not isempty(Rs2(dfld)) and not isnull(Rs2(dfld)) ' 字段列 (工作id) IF j = 2 then d(0) = Rs2(xfld) Else d(0) =d(0) &"$$$" & Rs2(xfld) End if Yp = Rs2(dfld) t = split(yp,"|||") for i = 0 to ubound(t) d(j) = d(j)&t(i) Next j = j +1 Rs2.movenext Loop Rs2.close Set Rs2 = Nothing getArray = d End if End function End class '**************************** ' 类结束 '**************************** '********************************** ' 示例 ' ' openDb ' Dim kclsDbStrDb ' Set kclsDbStrDb = new clsDbStrDb ' kclsDbStrDb.Activeconnection = conn ' kclsDbStrDb.Tb = "p_job_fav" ' kclsDbStrDb.MarkId = "person_id" ' kclsDbStrDb.Id = request.cookies("sxsrc_person")("id") ' kclsDbStrDb.ctrl = 0 ' kclsDbStrDb.FormItem = "cb" ' kclsDbStrDb.Fld = "j_id_text" ' kclsDbStrDb.DelFromForm ' closeDb ' ' ' ' ' ' ' ' '************************************* %>

mysql数据库日期以字符串形式存储

1.创建表语句/* Navicat MySQL Data TransferSource Server : local Source Server Version : 50527 Sou...

设计复数类Complex,计算两个复数之和、差,同时以 a+bi 的字符串形式显示

 软件技术1班 作者:A27陈城安 完成时间:2014年12月13日 问题描述:设计复数类Complex,计算两个复数之和、差,同时以 a+bi 的字符串形式显示 输出描述:使用复数类C...

数据库操作类采用PDO形式完成基本增删改查

自己写的一个基本的数据库操作类,本来以为应该轻车熟路的,结果发现了很多问题,突然想起了一句话:很多事情你知道怎么做和你会做之间是有很大差异的;所有搞技术的童鞋,应该以我未戒,不要在觉得会上犯了错误,哈...

执行字符串形式对象的方法

  • 2008年06月28日 16:17
  • 255KB
  • 下载

Android:读取本地相册与相机获取图片上传到服务器(用字符串的形式上传)

private Uri imageUri;//打开照相机private void openCamera() { Intent openCameraIntent = new Intent(Medi...

lua 字符串删除特定字符且以特定字符转存表形式

lua 删除字符串中的特定字符;以特定字符分割字符串生成对应的lua表
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:字符串数据库形式的类
举报原因:
原因补充:

(最多只允许输入30个字)