二、修改inc/Dv_ClsMain.asp
1.找到If IsObject(Plus_Conn) Then Plus_Conn.Close : Set Plus_Conn = Nothing
下面增加一行
If IsObject(FreePlus_Conn) Then FreePlus_Conn.Close : Set FreePlus_Conn = Nothing
2.找到\'IP/来源,在上面增加如下代码
Public Function FreePlus_Execute(Command)
If Not IsObject(FreePlus_Conn) Then FreePlus_ConnectionDatabase
If IsDeBug = 0 Then
On Error Resume Next
Set FreePlus_Execute = FreePlus_Conn.Execute(Command)
If Err Then
err.Clear
Set FreePlus_Conn = Nothing
Response.Write \"查询数据的时候发现错误,请检查您的查询代码是否正确。\"
Response.End
End If
Else
Set FreePlus_Execute = FreePlus_Conn.Execute(Command)
End If
SqlQueryNum = SqlQueryNum+1
End Function