版主申请插件(独立数据库)
一、修改conn.asp红色部分为增加1.找到Dim Conn,Plus_Conn,Db,MyDbPath,FreePlus_Conn
2.在最后一个%>上面增加如下代码
二、修改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
**** Hidden Message *****
页:
[1]