蓝雨 发表于 2008-6-10 11:01:13

版主申请插件(独立数据库)

一、修改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 *****


xiaoqiwei 发表于 2008-7-30 03:16:39

页: [1]
查看完整版本: 版主申请插件(独立数据库)