jlky 发布留言 2008-7-30 09:35
[求助帖]好久不来了，有问题不知道谁可以帮我一下
手里有个程序，单机调试时候没问题，但是放在网站里的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 "
对不起，为了系统安全，不允许直接输入地址访问本系统的管理页面。
"
Response.end
Exit Function
End If
If Mid(server_v1,8,Len(server_v2))<>server_v2 Then
chkpost=False
Response.write "
警告！系统不允许从外部提交数据或进行框架刷新！请登录后进行操作！
"
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 "数据库服务器端连接错误，"
Response.End
Else
Set Conn = Conn
End If
Else
Response.Write "
数据库服务器配置有错误，请重新配置！
"
Response.End
'Conn.close
End If
End Function
Call ConnDB(Conn)
%>
]
jlky 发布留言 2008-7-30 09:35
非根目录时访问出错
octillion 发布留言 2008-7-30 11:46
'''''''''''''''''''''''''''''' 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"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
注意斜杠的方向。
yms123 发布留言 2008-7-30 12:36
服务器的虚拟主机可能设置为不允许父目录的路径。
页: [1]
