字符串数据库形式的类

<% '**************************** ' ' 类 字符串形式的数据库操作 ' ' 建立 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 ' ' ' ' ' ' ' ' '************************************* %>