ConnStr="Provider=SQLOLEDB;Initial Catalog="¶m_DataBase&";Data Source="&p_sqlDataSource&";User ID="¶m_dbUserID&";Password="¶m_dbPassword&"" Case 12: 'Access Data Base(ODBC) ConnStr="Driver={Microsoft Access Driver (*.mdb)};DBQ="&dbPath&";User ID="¶m_dbUserID&";Password="¶m_dbPassword Case 22: 'SQL Server (ODBC) ConnStr="Driver={SQL Server};DataBase="¶m_DataBase&";Server="&p_sqlDataSource&";User ID="¶m_dbUserID&";Password="¶m_dbPassword&"" Case Else: AddErrorCode(100) If p_Debug Then Response.Write ShowErrMsg() 'Exit Function End Select objConn.ConnectionString=ConnStr objConn.Open Set ConnectionDataBase=objConn If Err Then Err.Clear
If SaveLog Then tmpMsg="数据库连接时出现错误，请检查您的查询代码是否正确。<br>基于安全的理由，只显示本信息，要查看详细的错误信息，请设置dsj.Debug=True" cmd="Execute the command of :"¶m_dbtype Response.Write SaveSQLLog(cmd,tmpMsg) Else Response.Write "数据库连接时出现错误，请检查您的查询代码是否正确。" End If AddErrorCode(101) Set objConn=Nothing Response.End() End If End If End Function
'****************************** '名称: SaveSQLLog '参数:sCommand,Msg '返回值：msg '作用:存储日志 '创建时间:2005年5月6日 '****************************** Public Function SaveSQLLog(sCommand,Msg) If Not p_Debug Then On Error Resume Next logDB="DSJ_SQLLog.mdb" 'ConnectionDataBase logDB,p_dbUserID,p_dbPassword,12 logConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(p_dbFolder & logDB) Set logConn = Server.CreateObject("ADODB.Connection") logConn.Open logConnStr If SaveLog Then Dim logCmd logCmd="INSERT INTO DSJ_SQL_Log (Command,ScriptName,logUser,IP) VALUES " logCmd=logCmd & "('" & Replace(Left(sCommand,255),"'","''") &"','" & (ScriptFolder & ScriptName) &"','" & Session("User") & "','"& GetIP & "')"
精品推荐