仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 341|回复: 7
打印 上一主题 下一主题

[学习教程] ASP编程:一个毗连数据库的Class类

[复制链接]
因胸联盟 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:59:45 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
asp对于服务器的要求较高,一般的服务器如果访问量一大就垮了,不得不重启。毗连数据库OptionExplicit

localvariable(s)toholdpropertyvalue(s)
PrivatelsServerAsStringlocalcopy
PrivatelsDatabaseAsString
localvariable(s)toholdpropertyvalue(s)
PrivatelsUserNameAsStringlocalcopy
PrivatelsPasswordAsStringlocalcopy
PrivatelsSelectSQLAsStringlocalcopy
localvariable(s)toholdpropertyvalue(s)
PrivatelsTableAsStringlocalcopy

PublicPropertyLetTable(ByValvDataAsString)
usedwhenassigningavaluetotheproperty,ontheleftsideofanassignment.
Syntax:X.Table=5
lsTable=vData
EndProperty


PublicPropertyGetTable()AsString
usedwhenretrievingvalueofaproperty,ontherightsideofanassignment.
Syntax:Debug.PrintX.Table
Table=lsTable
EndProperty

PublicPropertyLetSelectSQL(ByValvDataAsString)
usedwhenassigningavaluetotheproperty,ontheleftsideofanassignment.
Syntax:X.SelectSQL=5
lsSelectSQL=vData
EndProperty


PublicPropertyGetSelectSQL()AsString
usedwhenretrievingvalueofaproperty,ontherightsideofanassignment.
Syntax:Debug.PrintX.SelectSQL
SelectSQL=lsSelectSQL
EndProperty



PublicPropertyLetPassword(ByValvDataAsString)
usedwhenassigningavaluetotheproperty,ontheleftsideofanassignment.
Syntax:X.Password=5
lsPassword=vData
EndProperty


PublicPropertyGetPassword()AsString
usedwhenretrievingvalueofaproperty,ontherightsideofanassignment.
Syntax:Debug.PrintX.Password
Password=lsPassword
EndProperty



PublicPropertyLetUserName(ByValvDataAsString)
usedwhenassigningavaluetotheproperty,ontheleftsideofanassignment.
Syntax:X.UserName=5
lsUserName=vData
EndProperty


PublicPropertyGetUserName()AsString
usedwhenretrievingvalueofaproperty,ontherightsideofanassignment.
Syntax:Debug.PrintX.UserName
UserName=lsUserName
EndProperty



PublicPropertyLetServer(ByValvDataAsString)
usedwhenassigningavaluetotheproperty,ontheleftsideofanassignment.
Syntax:X.Server=5
lsServer=vData
EndProperty


PublicPropertyGetServer()AsString
usedwhenretrievingvalueofaproperty,ontherightsideofanassignment.
Syntax:Debug.PrintX.Server
Server=lsServer
EndProperty

PublicPropertyLetDatabase(ByValvDataAsString)
usedwhenassigningavaluetotheproperty,ontheleftsideofanassignment.
Syntax:X.Database=5
lsDatabase=vData
EndProperty


PublicPropertyGetDatabase()AsString
usedwhenretrievingvalueofaproperty,ontherightsideofanassignment.
Syntax:Debug.PrintX.Database
Database=lsDatabase
EndProperty


PublicFunctionConnectDatabaseByODBCDNS(lsDNSAsString)AsADODB.Connection
OnErrorGoToErrhandle
DimConnAsNewADODB.Connection
DimstrConnAsString
strConn="DSN="&lsDNS&_
";UID="&lsUserName&_
";Pwd="&lsPassword
IfConn.State=adStateOpenThen
Conn.Close
EndIf
Conn.OpenstrConn
Conn.CursorLocation=adUseClient
SetConnectDatabaseByODBCDNS=Conn
ExitFunction
Errhandle:
Err.Raise102,"DBConn.Cls","CantConnectToThe"&Database&"Database!"
EndFunction
PublicFunctionConnectDatabaseByODBC()AsADODB.Connection
OnErrorGoToErrhandle
DimConnAsNewADODB.Connection
DimstrConnAsString
strConn="Provider=MSDASQL.1"&_
";UserID="&lsUserName&_
";Password="&lsPassword&_
";PersistSecurityInfo=False"&_
";InitialCatalog="&lsDatabase&_
";DataSource="&lsServer
IfConn.State=adStateOpenThen
Conn.Close
EndIf
Conn.OpenstrConn
Conn.CursorLocation=adUseClient
SetConnectDatabaseByODBC=Conn
ExitFunction
Errhandle:
Err.Raise10</p>想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的
飘灵儿 该用户已被删除
沙发
发表于 2015-1-20 07:28:30 | 只看该作者
我认为比较好的方法是找一些比较经典的例子,每个例子比较集中一种编程思想而设计的。
admin 该用户已被删除
板凳
发表于 2015-1-25 11:22:48 | 只看该作者
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。  因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。
乐观 该用户已被删除
地板
发表于 2015-2-8 07:47:33 | 只看该作者
如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:
若相依 该用户已被删除
5#
发表于 2015-2-25 01:06:46 | 只看该作者
完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。
若天明 该用户已被删除
6#
发表于 2015-3-7 14:54:03 | 只看该作者
完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。
小妖女 该用户已被删除
7#
发表于 2015-3-15 07:47:09 | 只看该作者
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页,这其中就用到了ASP,我想它的作用是可想而知的。
愤怒的大鸟 该用户已被删除
8#
发表于 2015-3-21 21:45:01 | 只看该作者
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-24 10:45

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表