我下载了一个“政府网无错完整版”，在自己电脑上架设的服务器通过“Internet 信息服务”可以登录

后台，但是上传到购买的服务器后，登录网站h相后台却总是不能进入，相关程序如下：请各位高手大大

给看看：

login.asp：



<!--#include file="head.asp" -->
<!--#include file="Include/check.asp"-->
<% 
    response.expires = 0
    If Not post_chk() Then Response.write "不许外部提交数据!"
    if request("Action")="ChkLogin" Or request("Action")="" then
    UserName=Checkin(Request.form("UserName"))
    UserPassword=Checkin(Request.form("UserPassword"))
    UserPassword=Md5(UserPassword)
    CookieDate=Trim(request("CookieDate"))
    if UserName="" or UserPassword="" then Response.Redirect ("Index.asp")
    set rs=server.createobject("adodb.recordset")
    sql="select * from "&zf11_DBTable&" where "&zf11_UserName&"='"&Username&"' and 

"&zf11_UserPassword&"='"&UserPassword&"'"
    rs.open sql,conn_user,3,3
    if not rs.EOF then
 if rs("IsActive")=True then
 rs(zf11_LoginNum)=rs(zf11_LoginNum)+1
 rs(zf11_LastLogin)=Now()
 rs(zf11_UserIP)=Request.ServerVariables("REMOTE_ADDR")
 rs.Update
    '写入系统COOKIES
    Call DealCookie_zf11_Sys()
    'Session("Pw_UserID")=rs("UserID")
    'Session("Pw_Sys_User")=rs("Username")
    'Session("Grade")=rs("Grade")
    'Session("Pw_Money")=rs("Money")
    'Session("UserEmail")=rs("UserEmail")
    'Fin
 zf11_ToUrl=Request("zf11_ToUrl")
 If zf11_ToUrl<>"" Then
 Response.Redirect (zf11_ToUrl)
 Else
 Response.Redirect (request.servervariables("HTTP_REFERER"))
 End If
 else
  response.write"<script>alert('您还没有通过验证!\n管理员会尽快通过验证的！ 

');location.replace('"&request.servervariables("HTTP_REFERER")&"')</script>" 
 response.End()
 end if
    else
 Response.write"<script>alert('请输入正确的用户名和密码！！ ');location.replace

('index.asp')</script>" 
    'Response.Redirect ("Login.htm")
    'errmsg="请输入正确的用户名和密码！"
    'call error()
 Response.End 
    end if
    rs.close
    set rs=nothing
    conn_user.close
    set conn_user=nothing
    end if 
    If request("Action")="LoginOut" then
    Call Clearzf11_SysCookie()
    Response.Redirect (request.servervariables("HTTP_REFERER"))
    End if
    Sub DealCookie_zf11_Sys()
 Response.Cookies(zf11_Sys)("UserID")=rs(zf11_UserID)
 Response.Cookies(zf11_Sys)("Username")=rs(zf11_Username)
 Response.Cookies(zf11_Sys)("Grade") =rs("UserGrade")
 Response.Cookies(zf11_Sys)("Money")=rs(zf11_UserMoney)
 Response.Cookies(zf11_Sys)("UserEmail")=rs(zf11_UserEmail)
 If CookieDate="" Then
    CookieDate=0
 End If
 Response.Cookies(zf11_Sys)("CookieDate") = CookieDate
 Select case CookieDate
    case 0
    'Not Save
    case 1
    Response.Cookies(zf11_Sys).Expires=Date+1
    case 2
    Response.Cookies(zf11_Sys).Expires=Date+31
    case 3
    Response.Cookies(zf11_Sys).Expires=Date+365
    End select
    End sub
    Sub Clearzf11_SysCookie()
 Response.Cookies(zf11_Sys)("UserID")=""
 Response.Cookies(zf11_Sys)("Username")=""
 Response.Cookies(zf11_Sys)("Grade") =""
 Response.Cookies(zf11_Sys)("Money")=""
 Response.Cookies(zf11_Sys)("UserEmail")=""
 Response.Cookies(zf11_Sys)("CookieDate")=""
    End sub
%>