无法访问我服务器中的网站

debugcn 发表于 Dev

纪子

我在一个平台上的localhost中工作。流程为：

在login.asp中，我有这个

If Session("isAdmin") Then
    Response.Redirect "../default.asp"
Else
    Response.Redirect "../index.asp"
End If

虽然在服务器给我错误

处理URL时服务器上发生错误。
请联系系统管理员。如果您是系统管理员，请单击此处以查找有关此错误的更多信息。

该页面的URL为/common/_loginme.asp，代码为：

<%    
Dim username, password
username = Request.Form("username")
password = Request.Form("password")
If username = "" Then Response.Redirect "login.asp?m=Username é obrigatório."
If password = "" Then Response.Redirect "login.asp?m=Password é obrigatório."
%>
<!-- #include file="_db.asp" -->
<%
sqlLogin = "SELECT TOP 1 id, roleId, name FROM Users WHERE isActive = True AND username = '" & CleanStr(username) & "' AND password = '" & CleanStr(password) & "'"
Set RSlogin = Conn.Execute(sqlLogin)
If RSlogin.EOF Then
    Rslogin.Close
    Closeconn
    Response.Redirect "../login.asp?m=Username ou Password incorretas."
Else
    Session("isAdmin") = RSlogin("roleId") = 1
    Session("LoginID") = RSlogin("id")
    Session("Name") = RSlogin("name")
    Rslogin.Close
    Closeconn
    If Session("isAdmin") Then
        Response.Redirect "../default.asp"
    Else
        Response.Redirect "../index.asp"
    End If
End If
RSlogin.Close
Closeconn
%>
<%
Function CleanStr(s)    
    s = Replace(s,"'","")
    s = Replace(s,"<","")
    s = Replace(s,">","")
    s = Replace(s,";","")
    CleanStr = s
End Function
%>

为什么在本地主机上我运行良好，但在服务器上却不行？

另外一个片段，web.config

<?xml version="1.0" encoding="UTF-8"?>
<configuration>
    <system.webServer>
        <defaultDocument>
            <files>
                <remove value="Default.asp" />
                <add value="Login.asp" />
            </files>
        </defaultDocument>

    </system.webServer>
</configuration>

格林卡斯

您描述的错误是标准ASP错误消息，因此用户无法在生产服务器上获得有关该错误的信息。

尽管这是理想的行为，但您将必须启用错误输出，以便可以看到问题出在哪里。

在服务器上的IIS设置中，选择ASP，打开“调试属性”，然后启用选项“将错误发送到浏览器”。

更详细的信息在这里或这里。

这样，您应该获得有关生产设置中真正失败的更多信息。

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。