ASP编程：一个猎取用户信息的类（仿动网论坛做法...
强大的可扩展性。ASP具有强大的扩展性，可以实现与多种网络、硬件设备的连接：通过专用的通讯线路远程接入企业；通过远程拨号服务器为远程拨号客户提供服务；通过WAP为移动电话互联网客户服务。动网论坛<scriptlanguage="vbscript"runat="server">******************************
称号：用户属性显现类
日期：2005/12/3
形貌：无
版权：转载请注名出处，作者
******************************
OnErrorResumeNext
ClassUserInfo
---------------------------------------------
属性声明
PrivateSqlStr
PrivateConnStr
PrivateGetUserInfoRs
PublicUserInfo
PrivateIsErr
---------------------------------------------
---------------------------------------------
PrivateSubClass_Initialize
IsErr=True判别是不是存在这个用户，不存在则为FALSE
EndSub
PrivateSubClass_Terminate
IfIsObject(GetUserInfoRs)Then
GetUserInfoRs.Close
SetGetUserInfoRs=Nothing
EndIf
IfIsObject(ConnStr)Then
ConnStr.Close
SetConnStr=Nothing
EndIf
EndSub
--------------------------------------------
--------------------------------------------
获得SQL语句
PublicPropertyLetGetSql(Sql)
SqlStr=Sql
EndProperty
PublicPropertyGetSql
Sql=SqlStr
EndProperty
创立Conn工具
PublicPropertyLetConn(Obj)
SetConnStr=Obj
EndProperty
--------------------------------------------
--------------------------------------------
PublicSubExec()
SetGetUserInfoRs=Server.CreateObject("Adodb.RecordSet")
GetUserInfoRs.OpenSqlStr,ConnStr,1,1
IfGetUserInfoRs.BofAndGetUserInfoRs.EofThen
IsErr=False判别是不是存在这个用户，不存在则为FALSE
ExitSub
Else
DimI,Str
DoWhileNotGetUserInfoRs.Eof
ForI=0ToGetUserInfoRs.Fields.Count-1
Str=Str&"|"&GetUserInfoRs(I)
Next
GetUserInfoRs.MoveNext
Loop
EndIf
Str=IsErr&Str
UserInfo=Split(Str,"|")
EndSub
EndClass
-------------------------------------------------------------------
示例：
DimConnStr
ConnStr="Provider=Microsoft.Jet.Oledb.4.0;DataSource="&Server.MapPath(DataDir)
SetConn=Server.CreateObject("Adodb.Connection")
Conn.OpenConnStr
SetSysTem=NewUserInfo类实例
System.Conn=Conn数据库毗连工具
System.GetSql="SELECT*FROMBBS_UserWhereUserID=1"SQL实行语句
System.Exec实行
Fori=LBound(System.UserInfo)ToUBound(System.UserInfo)
Response.WriteSystem.UserInfo(i)&"<br>"轮回读出信息
Next
SetSysTem=Nothing
</script>强大的可扩展性。ASP具有强大的扩展性，可以实现与多种网络、硬件设备的连接：通过专用的通讯线路远程接入企业；通过远程拨号服务器为远程拨号客户提供服务；通过WAP为移动电话互联网客户服务。 下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助... 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件) 我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标. 以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。 作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。 Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件 最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。
页:
[1]