一个获取用户信息的类(仿动网论坛做法)
2008-02-23 09:45:22来源:互联网 阅读 ()
'******************************
'名称:用户属性显示类
'日期:2005/12/3
'描述:无
'版权:转载请注名出处,作者
'
'
'******************************
'On Error Resume Next
Class UserInfo
'---------------------------------------------
'属性声明
Private SqlStr
Private ConnStr
Private GetUserInfoRs
Public UserInfo
Private IsErr
'---------------------------------------------
'---------------------------------------------
Private Sub Class_Initialize
IsErr=True'判断是否存在这个用户,不存在则为FALSE
End Sub
Private Sub Class_Terminate
If IsObject(GetUserInfoRs) Then
GetUserInfoRs.Close
Set GetUserInfoRs=Nothing
End If
If IsObject(ConnStr) Then
ConnStr.Close
Set ConnStr=Nothing
End If
End Sub
'--------------------------------------------
'--------------------------------------------
'取得SQL语句
Public Property Let GetSql(Sql)
SqlStr=Sql
End Property
Public Property Get Sql
Sql=SqlStr
End Property
'创建Conn对象
Public Property Let Conn(Obj)
Set ConnStr=Obj
End Property
'--------------------------------------------
'--------------------------------------------
Public Sub Exec()
Set GetUserInfoRs=Server.CreateObject("Adodb.RecordSet")
GetUserInfoRs.Open SqlStr,ConnStr,1,1
If GetUserInfoRs.Bof And GetUserInfoRs.Eof Then
IsErr=False'判断是否存在这个用户,不存在则为FALSE
'Exit Sub
Else
Dim I,Str
Do While Not GetUserInfoRs.Eof
For I=0 To GetUserInfoRs.Fields.Count-1
Str=Str&"|"&GetUserInfoRs(I)
Next
GetUserInfoRs.MoveNext
Loop
End If
Str=IsErr&Str
UserInfo=Split(Str,"|")
End Sub
End Class
'-------------------------------------------------------------------
'示例:
Dim ConnStr
ConnStr="Provider=Microsoft.Jet.Oledb.4.0;Data Source="&Server.MapPath(DataDir)
Set Conn=Server.CreateObject("Adodb.Connection")
Conn.Open ConnStr
Set SysTem=New UserInfo'类实例
System.Conn=Conn '数据库连接对象
System.GetSql="SELECT * FROM BBS_User Where UserID=1" 'SQL执行语句
System.Exec '执行
For i=LBound(System.UserInfo) To UBound(System.UserInfo)
Response.Write System.UserInfo(i)&"<br>" '循环读出信息
Next
Set SysTem=Nothing
</script>
标签:
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有
上一篇:ASP常用数据库连接及操作的方法
IDC资讯: 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营: 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程: Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术: Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧: 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作: FrontPages Dreamweaver Javascript css photoshop fireworks Flash