asp中COM组件中如何连接数据库的代码
2018-09-06 13:05
VB-工程-引用-ADO2.0,建一个类DB，工程名设为SQLCONN
以下是偶程序中的部分代码，大家有空可以试试
OptionExplicit
PublicstrErrorAsString
PublicRsAsNewADODB.Recordset
PublicPropertyGetErrorString()AsString
ErrorString=strError
EndProperty
PublicFunctionConn_Open(strSQLServerName,strSQLDBUserName,strSQLDBPassword,strSQLDBName)
DimstrConAsString
SetConn=NewADODB.Connection
OnErrorGoToerrHandler:
strCon=Provider=SQLOLEDB;Server=&strSQLServerName&;UserID=&strSQLDBUserName&;Password=&strSQLDBPassword&;Database=&strSQLDBName&;
Conn.OpenstrCon
errHandler:
strError=错误源：&Err.Source&vbCrLf&描述：&Err.Description
ExitFunction
EndFunction
FunctionGetRootID(ByValClassID)
Dimquery
query=selectclass_ID,RootIDfromtblCategorywhereclass_id=&ClassID&
SetRs=Conn.Execute(query)
IfNot(Rs.EOFAndRs.BOF)Then
GetRootID=Rs(RootID)
Else
GetRootID=ClassID
EndIf
Rs.Close
SetRs=Nothing
EndFunction
编译后，在ASP中这样用
functionGetRootID(byvalid)获取根类ID号
setS_DB=server.CreateObject(SQLCONN.DB)
S_DB.Conn_OpenstrSQLServerName,strSQLDBUserName,strSQLDBPassword,strSQLDBName
GetRootID=S_DB.GetRootID(id)
SetS_DB=nothing
endfunction
文章标题：asp中COM组件中如何连接数据库的代码
文章链接：http://soscw.com/index.php/essay/10903.html