logincheck.asp

在线图书管理 在线图书管理在线图书管理在线图书管理在线图书管理在线图书管理

<!--#include file="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"
	session("SysUser")=username
	response.redirect "default.asp"
 else
 	'用户帐号及密码不正确
  	Call DBConnEnd()
    Response.Write "<script language=JavaScript>{window.alert('您输入的帐号及密码错误，请重新输入!');window.history.go(-1);}</script>"
 end if


%>