Dim rs, dbConnFunction OpenDB() Set dbConn = Server.CreateObject("ADODB.Connection") dbConn.ConnectionTimeout = 300 dbConn.CommandTimeout = 300 dbConn.Open "Data Source=123.123.12.123,1234;Database=DatabaseName;User Id=Usernm;Password=abcd1234;"End FunctionFunction CloseDB() Set rs = Nothing if ucase(TypeName(dbConn)) = "CONNECTION" then dbConn.Close Set dbConn = Nothing end ifEnd FunctionFunction OpenRecordSet(recset, tablename) Call OpenDB() Set recset = Server.CreateObject("ADODB.Recordset") recset.Open tablename, dbConn, 0, 1End FunctionFunction CloseRecordSet(recset) Set recset = Nothing Call CloseDB()End Function然后使用
<%Call OpenDB()sql = "select from mytable where this = 'that'"Set rs = dbConn.Execute(sql)if not rs.EOF then ' do your stuff!end ifCall CloseDB()%>
http://www.shiningstar.net/articles/articles/database/datafunctions.asp?ID=AW
