网页高手进来一下啦!!!啦 啦!!!

来源:百度知道 编辑:UC知道 时间:2024/05/28 05:47:49
<!--#include file="conn.asp"-->
<%
dim rs
id1=request.form("id")
pw1=request.form("pw")
set rs=server.createobject("adodb.recordset")
rs.open "select * from admin where username='" & id1 & "'",conn,1,1
if pw1<>rs("passwd") then
response.write "<link href='css.css' type='text/css' rel='stylesheet'>"
response.write "<body bgcolor='#ffffef'>"
response.write "SORRY!请输入正确的管理员密码!!"
else
session("username")=rs("username")
session("KEY")=rs("key")
response.redirect "m.asp"
end if
rs.close
%>

上面这段代码如果在帐号正确的情况下会有response.write出来。。。
帐号错了就会出现http 500 内部服务器出错
这是怎么回事啊???谢谢大家告诉我!!!!!!!

那你没有写如果错误了就返回到什么页面啊

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/conn.asp" -->
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
MM_valUsername=CStr(Request.Form("username"))
If MM_valUsername <> "" Then
MM_fldUserAuthorization=""
MM_redirectLoginSuccess="guanli.asp"
MM_redirectLoginFailed="jinggao.asp"
MM_flag="ADODB.Recordset"
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_conn_STRING
MM_rsUser.Source = "SELECT username, password"
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser