VB-工程-引用-ADO2.0,建一个类DB，工程名设为SQLCONN

以下是偶程序中的部分代码，大家有空可以试试

OptionExplicit

PublicstrErrorAsString

PublicConnAsNewADODB.Connection

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