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
