<%@LANGUAGE="VBSCRIPT"%> <% option explicit dim startime,endtime,conn,strCon,db startime=timer() Dim strSQLServerName Dim strSQLDBUserName Dim strSQLDBPassword Dim strSQLDBName '请填写数据库具体参数 '----------------------------------------------------------------------------------------------- strSQLServerName = "127.0.0.1" '服务器名称或地址 strSQLDBUserName = "sa" '数据库帐号 strSQLDBPassword = "123" '数据库密码 strSQLDBName = "bbsbak" '数据库名称 '----------------------------------------------------------------------------------------------- 'SQL Server OLE Driver Set conn = Server.CreateObject("ADODB.Connection") strCon = "Provider=SQLOLEDB;Server=" & strSQLServerName & ";User ID=" & strSQLDBUserName & ";Password=" & strSQLDBPassword & ";Database=" & strSQLDBName & ";" conn.Open strCon function CloseDatabase Conn.close Set conn = Nothing End Function %>