<!--#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('請(qǐng)輸入正確的認(rèn)證碼！');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( "錯(cuò)誤：請(qǐng)輸入姓名！"  );
location.href = "javascript:history.back()"  
</script>
<%end if
if userpwd="" then%>
<script language=javascript>  
alert( "錯(cuò)誤：請(qǐng)輸入學(xué)生證號(hào)碼！"  );
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( "錯(cuò)誤：此用戶名不存在！"  );
location.href = "javascript:history.back()"  
</script>
<%elseif userpwd<>rs("stdid") then%>
<script language=javascript>  
alert("錯(cuò)誤：您的密碼不正確！");  
location.href = "javascript:history.back()"  
</script>
<%else%>
<%
session("stdname")=rs("stdname")
session("stdid")=rs("stdid")
rs.close
set rs=nothing
%>
<script language=javascript>  
alert("您已經(jīng)成功登錄到考試系統(tǒng)！" ); 
location.href = "testmain.asp"  
</script>
<%end if%>