stdchklogin.asp

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

<!--#include file="conn.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 std where stdname='" &username&"'", conn, 3,3
%>
<%if rs.bof then %>
<script language=javascript>  
alert( "错误：此用户名不存在！"  );
location.href = "javascript:history.back()"  
</script>
<%elseif userpwd<>rs("stdid") then%>
<script language=javascript>  
alert("错误：您的密码不正确！");  
location.href = "javascript:history.back()"  
</script>
<%else%>
<%
session("stdname")=rs("stdname")
session("stdid")=rs("stdid")
rs.close
set rs=nothing
%>
<script language=javascript>  
alert("您已经成功登录到考试系统！" ); 
location.href = "testmain.asp"  
</script>
<%end if%>