无反应
一个ASP学生信息系统的编程,首先默认文档login.asp,这里要求输入用户名和密码,然后转到logincheck.asp。到这里就停住了,没任何提示。这时显示的路径是:http://localhost/student/Login/logincheck.asp。这是怎么回事啊
我把代码贴上去:LoginCheck.asp
<!--#include file="..\inc\conn.asp"-->
<%
'检查是否从本站提交
if IsSelfRefer()=false then
response.redirect "../login.asp"
end if
dim username,Pwd
username=Request.Form("admin")
Pwd=Request.Form("pw")
Call DBConnBegin()
'获取安全字符,防止注入破解
username=Get_SafeStr(username)
pwd=Get_SafeStr(Pwd)
if (IsSafeStr(username)=false or IsSafeStr(pwd)=false ) then
response.redirect "../login.asp"
end if
'用户验证
sSql="select * from UserInfo where UserID='"&username&"' and UserPwd='"&Pwd&"'"
oRs.Open sSql,oConn,3,2
if not oRs.EOF then
'如果用户帐号及密码正确
'整理在线用户数据库
session("User")="administrtor"
response.redirect "index.asp"
else
'用户帐号及密码不正确
Call DBConnEnd()
Response.Write "<script language=JavaScript>{window.alert('您输入的帐号及密码错误,请重新输入!');window.history.go(-1);}</script>"
end if
%>