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

response.write("<h5>性别:<font color=red>"&bsex&"</font></h5>")
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

　　是不是想看看效果，那就看看这里：　　http://www.5do8.com/net/aspclass/class.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 
'-----------------------------------------------------------------