仓酷云

标题: ASP编程：一个毗连数据库的Class类 [打印本页]

作者: 因胸联盟 时间: 2015-1-16 22:59
标题: ASP编程：一个毗连数据库的Class类
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
我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

作者: admin 时间: 2015-1-25 11:22
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。　　因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。

作者: 乐观 时间: 2015-2-8 07:47
如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

作者: 若相依 时间: 2015-2-25 01:06
完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。

作者: 若天明 时间: 2015-3-7 14:54
完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。

作者: 小妖女 时间: 2015-3-15 07:47
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

作者: 愤怒的大鸟 时间: 2015-3-21 21:45
最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。

欢迎光临仓酷云 (http://ckuyun.com/)