[求助帖]好久不来了，有问题不知道谁可以帮我一下

手里有个程序，单机调试时候没问题，但是放在网站里的lian目录下，访问时候出错，登陆不验证！我检查了验证页面，看的使一塌糊涂！
谁可以帮我看一下！我贴上COon.asp

[<%@ LANGUAGE = VBScript.Encode %><%
Const SystemName= "DMCMS V3.0"
Const CompayName= "永嘉县大成科技电脑服务部"
Const CreatetTime= "2007-06-01"
Const SystemDir= "/"
Const UpFileFolder= "UploadFile"
Dim Conn,DataBaseUrl
'*************************************************************************
'提交来源检测,访问检测
'*************************************************************************
Function ChkPost()
    Dim server_v1,server_v2,cUrl
    On Error Resume Next
    Response.Buffer = True
    chkpost=False
    server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
    server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
    ComeUrl0=lcase(trim(request.ServerVariables("HTTP_REFERER")))
    If ComeUrl0="" then
        Response.write "<br><p align=center><font color='red'>对不起，为了系统安全，不允许直接输入地址访问本系统的管理页面。</font></p>"
        Response.end
        Exit Function
    End If
    If Mid(server_v1,8,Len(server_v2))<>server_v2 Then
        chkpost=False
        Response.write "<br><p align=center><font color='red'>警告！系统不允许从外部提交数据或进行框架刷新！请登录后进行操作！</font></p>"
        Response.end
        Exit Function
    Else
        chkpost=True
    End If
End function

'**************************************************************************
' 连接数据库
'**************************************************************************
'On Error Resume Next
'SystemDir= "/"
DataBaseUrl = SystemDir & "Datebasex/#Databasex.Mdb"
Function ConnDB(Conn)
    If  DataBaseUrl <> ""  Then    
    On Error Resume Next
         Set Conn=Server.CreateObject ("adodb.connection")
         Conn.Open "driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(DataBaseUrl)   
         If Err.number>0    Then
                Response.Write "数据库服务器端连接错误，</p>"
                Response.End
         Else
                Set Conn = Conn               
         End If
    Else
         Response.Write "<br><br><div align=center><h1>数据库服务器配置有错误，请重新配置！</h1></div>"
         Response.End
              'Conn.close
    End If
End Function
Call ConnDB(Conn)
%>

]

搜索更多相关主题的帖子: COon lian 单机 目录

非根目录时访问出错

'''''''''''''''''''''''''''''' Access数据库设置 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    SqlDataBase    = "\NsNews\Database\NsNews.mdb"    '数据库路径,请使用相对于wwwroot的路径 ("\"开头)
    SqlProvider    = "Microsoft.Jet.OLEDB.4.0"        '驱动程序[ Microsoft.Jet.OLEDB.4.0  Microsoft.ACE.OLEDB.12.0 ]
    Connstr="Provider="&SqlProvider&";Data Source=" & Server.MapPath(SqlDataBase)
    SqlNowString="Now()"
    IsSqlVer="ACCESS"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

注意斜杠的方向。

服务器的虚拟主机可能设置为不允许父目录的路径。