#42002/7/28 15:03:18
function OpenDbConnection()
dim m_DbConn , m_strConn
Set m_dbConn = Server.CreateObject("ADODB.Connection")
m_strConn= "Provider=Sqloledb ;Server=SQL服务器;Database=数据库名;UID=用户名;PWD=密码;"
on error resume next
m_dbConn.open m_strConn
Call CheckError
'return this database connection
Set OpenDbConnection = m_dbConn
end function