在asp中使用类，实现模块化

'名称：ado_5do8
'作用:读取数据库的各项操作
'来源-耕耘村http://www.5do8.com http://www.Blueidea.com-5do8
'创作：5do8
'联系:5do8@5do8.com
'更新：2005年11月13日
'授权：蓝色理想网站积分超过3000，耕耘村所有注册用户
'类的接口:ado_5do8.ConnectString=数据库绝对路径
  'ado_5do8.rs_top 调用数目，表的名称
Class ado_5do8
 Private conn,sqlstr,rs,iid,itable,isession
   'sqlstr:数据库地址，为绝对路径，私有
   'conn：打开数据库的连接，私有
'-------------------------------------
rem 消除一些不想要的数字 
Private Function litter_in(r1,r2)
If IsNumeric(r1) and IsNumeric(r2) Then
 Dim dimrr
 If r1＞r2 Then
 dimrr=r2
 Else
 dimrr=r1
 End If
 Else
 dimrr=0
 End if
 litter_in=dimrr
 End Function
'----------------------------------
Private Function killint(i,killstr,killsub)
  If Not IsNumeric(i) Then
  i=killstr
  ElseIf i＜=0 Then
  i=killsub
  End if
  killint=Int(Left(i,5))
  End Function
'---------------------------------
private Sub startconn()
   On Error Resume Next
    Set conn=server.CreateObject("adodb.connection")
   strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(sqlstr)
   conn.open strconn
   If Err Then
   err.Clear
   Set Conn = Nothing
   mess="发生错误，不能连接数据库"
   response.write(mess)
   response.End
   Else
   mess="连接数据库conn成功...........＜br/＞"
   response.write(mess)
   End If
   End Sub
'--------------------------------------
private Sub closeconn()
   conn.close
   Set conn=Nothing
   response.write("＜strong style='color:red'＞关闭conn连接＜/strong＞...＜hr/＞")
  End sub
'-------------------------------------
Private Sub closers()
  rs.close
  Set rs=Nothing
  response.write("＜strong style='color:#085420'＞关闭数据库RS＜/strong＞.......＜br/＞")
  End Sub
'-------------------------------------
Property Get havese
  havese=isession
  End Property
Property Let havese(yoursession)
  isession=yoursession
  If yoursession="" Then
  isession="nodef"
  End If
  End Property
'------------------------------------
Public Function makesession(arraydata)
   If IsArray(arraydata) then
   makear=arraydata
   Else
   makear=Array(0,0,0,0)
   End If
   If isession="" Then
   isession="nodef"
   End if
   session(isession)=makear
   End Function
'------------------------------------
private Function getsession()
  thisget=session(isession)
  If Not IsArray(thisget) Then
  thisget=Array(0,0,0,0)
  End If
  Getsession=thisget
  End function
'------------------------------------
Property Get ConnectString
ConnectString = sqlstr
End Property
Property Let ConnectString(str)
sqlstr = str
End Property
'------------------------------------
Property Get getid
getid = iid
End Property
Property Let getid(id)
iid = id
End Property
'------------------------------------

Property Get gettable
gettable = itable
End Property
Property Let gettable(table)
itable = table
End Property
'-----------------------------------
public Function readarraysession(iStart,ipageno,irowid)
  rowid=killint(irowid,0,0)
  start=killint(istart,0,0)
  pageno=killint(ipageno,5,5)
   data=getsession
  iRows = UBound(data, 2)
  iCols = UBound(data, 1)
  response.write("＜h5＞总数获得了:")
  response.write("＜b＞ "&iRows+1&"＜/b＞条信息＜/h5＞＜hr/＞＜ul style='width:100%;'＞")
  If rowid = 0 then
  If iRows ＞ (ipageno + iStart) Then
  iStop = ipageno + iStart - 1
  Else
  iStop = iRows
  End If
  For iRowLoop = Start to iStop
  Response.Write ("＜li style='padding:4px 0;'＞＜a href=?k=read&rowid="&irowloop+1&"＞"&data(1, iRowLoop) & " ＜/a＞＜span style='padding:4px 0 4px 10px;background-color:#ccc; '＞较慢，不推荐点击--＞＜a href=?k=list&id="&data(0,irowloop)&"＞更新＜/a＞＜/span＞＜/li＞")
  Next
  Response.Write "＜/ul＞＜div style='top:20px;background-color:#ccc;color:#020;font-weight:bold;bordr-top:2px solid #008;padding:10px 0;color:#b00'＞列表(＜a href=default.asp＞回到典型模式＜/a＞):"
  if Start ＞ 0 then
   Response.Write "＜A HREF=""?k=read&Start=" & iStart-ipageno &"&pageno=" & ipageno & """＞Previous＜/A＞"
  end if
  if iStop ＜ iRows then
  Response.Write " ＜A HREF=""?k=read&Start=" & iStart+ipageno &"&pageno=" & ipageno & """＞Next＜/A＞"
  end If
  response.write"＜/div＞"
  Else
  rowid=litter_in(rowid-1,iRows)
  response.write("＜div style='width:85%'＞＜h4 style='text-align:center'＞＜a href=?k=read&pageno="&pageno&"&start="&start&"＞返回列表＜/a＞＜/h4＞＜/h2＞＜hr/＞＜h5＞"&server.htmlencode(data(1,rowid))&"＜/h5＞＜p＞"&server.htmlencode(data(2,rowid))&"＜h5＞+-----"&server.htmlencode(data(3,rowid))&"")
  response.write("＜div ＞")
  End if
  End Function
'--------------------------------------
Public Function list_ids()
  sql3="select * from "&itable&" where id="&iid&" "
  startconn()
  Set rs=conn.execute(sql3)
  If rs.eof And rs.bof Then
  data=Array(0,0,0,0)
  Else
  data=Rs.GetRows()
  End If
  closers
  closeconn
   response.write(UBound(data)&":")
  response.write(server.htmlencode(data(2,0)))
  End function
'------------------------------
Public Function rs_top(num,table,whe)
  startconn()
  sql="select top "&num&" * from "&table&""
  sql2="select count(*) as szd_count from "&table&" "" "&whe&""
  Set rs=conn.execute(sql2)
  szd_count=rs("szd_count")
  closers
   Set rs = Conn.Execute(sql)
   dim data
  If Rs.Eof Then
  data="no data"
  Else
  data=Rs.GetRows()
  End if
  closers
  closeconn()
  Call makesession (data)
    End Function
'++++++++++++++++++++++++
End Class