chklogin.asp

可以进行智能出卷,在线测试和在线评价,界面友好,适合广大教学用户使用

<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%
dim username,userpwd,sql,userip,s
 s=Trim(Request.Form("s22"))
	   s2=Request.Form("s2")
	   If s2<>s Then
	   	   Response.Write("<script language=javascript>alert('请输入正确的认证码！');history.back()</script>")
		   Response.End
	   end if
userip=Request.ServerVariables("REMOTE_ADDR")
username=trim(replace(request("username"),"'",""))
userpwd=trim(Request.Form("userpwd"))
if username="" then
%>
<script language=javascript>  
alert( "错误：请输入管理帐号！"  );
location.href = "javascript:history.back()"  
</script>
<%end if
if userpwd="" then%>
<script language=javascript>  
alert( "错误：请输入管理密码！"  );
location.href = "javascript:history.back()" 
</script>
<%end if%>
<%
rs.Open "Select * From teacheruser where name='" &username&"'", conn, 3,3
%>
<%if rs.bof then %>
<script language=javascript>  
alert( "错误：此用户名不存在！"  );
location.href = "javascript:history.back()"  
</script>
<%elseif md5(userpwd)<>rs("password") then%>
<script language=javascript>  
alert("错误：您的密码不正确！");  
location.href = "javascript:history.back()"  
</script>
<%else%>
<%
session("username")=rs("name")
rs.close
set rs=nothing
%>
<script language=javascript>  
alert("您已经成功登录到管理系统！" ); 
location.href = "demo.asp"  
</script>
<%end if%>