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

手里有个程序，单机调试时候没问题，但是放在网站里的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)
%>

]