[ASP]使用类，实现模块化(3)

response.write("<h5>积分:<font color=red>"&bpoint&"</font></h5>")
getlevel
response.write("<h5>级别:<font color=red>"&blevel&"</font></h5>")
End Function
End class

使用这个类的时候这样使用：（我在这里写了一个表单处理的）

Set blueideauser=new blueidea
blueideauser.getname=Trim(request("id"))
blueideauser.getsex=request("sex")
blueideauser.getpoint=request("point")
blueideauser.showuser

控制读取数据库信息的类：
参考源码：

''''名称：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成功...........
"
  response.write(mess)
  End If
  End Sub
''''----------------------------------------------------------------
private Sub closeconn()
  conn.close 
  Set conn=Nothing
  response.write("<strong style=''''color:red''''>关闭conn连接</strong>...<hr/>")