chklogin.asp

商机网站8.0,比教完整,可以自己二次开发!

<%
dim username,password
username=trim(request.form("username"))
password=trim(Request.Form("userpwd"))
if username="" then%>
<script language=vbscript>  
  		MsgBox "错误：请输入用户名字！"  
  		location.href = "javascript:history.back()"  
</script> 
<%
end if
if password="" then%><script language=vbscript>  
  		MsgBox "错误：请输入用户密码！"  
  		location.href = "javascript:history.back()"  
</script>
<%end if%>
<!-- #include file="conn.asp" -->
<!-- #include file="md5.asp" -->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From [admin] where username='" &username&"'", conn, 3,3
%>
<%if rs.bof then %>
<script language=vbscript>  
MsgBox "错误：此用户名不存在！"  
location.href = "javascript:history.back()"  
</script>
<%elseif md5(password)<>rs("userpwd") then%>
<script language=vbscript>  
MsgBox "错误：您的密码不正确！"  
location.href = "javascript:history.back()"  
</script>
<%else%>
<script language=vbscript>  
MsgBox "您已经成功登录到管理系统！"  
location.href = "main.asp"  
</script>
<%
session("username")=rs("username")
session("userkey")=rs("userkey")
end if
rs.close
set rs=nothing
%>