因胸联盟 发表于 2015-1-16 22:59:45

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:30

我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

admin 发表于 2015-1-25 11:22:48

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

乐观 发表于 2015-2-8 07:47:33

如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

若相依 发表于 2015-2-25 01:06:46

完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。

若天明 发表于 2015-3-7 14:54:03

完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。

小妖女 发表于 2015-3-15 07:47:09

我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

愤怒的大鸟 发表于 2015-3-21 21:45:01

最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。
页: [1]
查看完整版本: ASP编程：一个毗连数据库的Class类