[求助帖]好久不来了,有问题不知道谁可以帮我一下
手里有个程序,单机调试时候没问题,但是放在网站里的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)
%>
]