在ASP開發的時候，如果我們想用asp連接mysql數據庫，會覺得這個問題很難，現在就讓錯新技術頻道小編給我們講講asp中COM組件中如何連接數據庫的代碼吧！

VB-?工程?-引用?-?ADO?2.0?,建一個類DB，工程名設為?SQLCONN
以下是偶程序中的部分代碼，大家有空可以試試
Option?Explicit
Public?strError?As?String
Public?Conn?As?New?ADODB.Connection
Public?Rs?As?New?ADODB.Recordset

Public?Property?Get?ErrorString()?As?String
ErrorString?=?strError
End?Property

Public?Function?Conn_Open(strSQLServerName,?strSQLDBUserName,?strSQLDBPassword,?strSQLDBName)
Dim?strCon?As?String
Set?Conn?=?New?ADODB.Connection
On?Error?GoTo?errHandler:
strCon?=?"Provider=SQLOLEDB;Server="?&?strSQLServerName?&?";User?ID="?&?strSQLDBUserName?&?";Password="?&?strSQLDBPassword?&?";Database="?&?strSQLDBName?&?";"
Conn.Open?strCon
errHandler:
strError?=?"錯誤源："?&?Err.Source?&?vbCrLf?&?"描述："?&?Err.Description
Exit?Function
End?Function

Function?GetRootID(ByVal?ClassID)
Dim?query
query?=?"select?class_ID,RootID?from?tblCategory?where?class_id='"?&?ClassID?&?"'"?
Set?Rs?=?Conn.Execute(query)
If?Not?(Rs.EOF?And?Rs.BOF)?Then
GetRootID?=?Rs("RootID")
Else
GetRootID?=?ClassID
End?If
Rs.Close
Set?Rs?=?Nothing
End?Function

編譯后，在ASP中這樣用

function?GetRootID(byval?id)?'?獲取根類ID號
set?S_DB?=?server.CreateObject(?"SQLCONN.DB")
S_DB.Conn_Open?strSQLServerName,strSQLDBUserName,strSQLDBPassword,strSQLDBName
GetRootID?=?S_DB.GetRootID(id)
Set?S_DB=nothing
end?function

以上就是錯新技術頻道小編給我們講解asp中COM組件中如何連接數據庫的代碼，希望對大家有所幫助!大家趕緊行動起來吧！