【发布时间】:2015-10-27 10:23:55
【问题描述】:
我在一个平台的本地主机上工作。 流程是:
- LOGIN.ASP 插入我的登录信息(用户名 + 密码)
在 login.asp 我有这个
If Session("isAdmin") Then
Response.Redirect "../default.asp"
Else
Response.Redirect "../index.asp"
End If
虽然在服务器上给了我错误
处理 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
%>
为什么在本地主机我运行良好,但服务器却不行?
还有一个 sn-p,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>
【问题讨论】:
标签: login vbscript asp-classic web-config