gusucode.com > ASP+ACCESS学生信息管理系统设计(源代码+论文) > ASP+ACCESS学生信息管理系统设计(源代码+论文)\赵超\AdminIn.asp

    <!--#include file="Conn.asp"-->
<link href="Css/wangye9pt.css" rel="stylesheet" type="text/css">
<title>学生信息后台管理入口</title>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-color: #000000;
}
-->
</style>
<table width="100%" height="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td bgcolor="#FFFFFF"><table width="260" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC" class="w9pt">
        <tr>
          <td height="25" align="center" class="TrTop">学生信息后台管理入口</td>
        </tr>
        <tr>
          <td align="center" bgcolor="#FFFFFF"><form action="" method="post" name="FrmSearch" id="FrmSearch" onSubmit="return Search()">
              <table  border="0" cellpadding="5" cellspacing="0" class="w9pt">
                <tr>
                  <td height="15" align="right">用户名:</td>
                  <td height="15"><input name="UserName" type="text" id="UserName" style="width:100px"></td>
                </tr>
                <tr>
                  <td height="15" align="right">密码:</td>
                  <td height="15"><input name="UserPwd" type="password" id="UserPwd" style="width:100px" value="admin" size="10"></td>
                </tr>
                <tr>
                  <td height="15" align="right">验 证 码:</td>
                  <td height="15"><input name="yan" type="text" id="yan" size="5" maxlength="5">
                     
                    <script language="javascript">

function Search()
{

if(FrmSearch.UserName.value==""){
alert('请输入用户名!');
FrmSearch.UserName.focus();
return false;
}

if(FrmSearch.UserPwd.value==""){
alert('请输入密码!');
FrmSearch.UserPwd.focus();
return false;
}

if(FrmSearch.yan.value==""){
alert('请输入验证码!');
FrmSearch.yan.focus();
return false;
}
if(FrmSearch.yan.value!=FrmSearch.yan1.value){
alert('验证码错误!');
FrmSearch.yan.focus();
return false;
}
return true;

}
</script>
                    <%
			  
			  For j=1 to 4
			  I=Int(rnd()*10)
			  Num= Num + Cstr(I)
			  Response.Write("<img src=Images/Num/" + Cstr(I) + ".gif>")
			  Next
			  
			  %>
                    <input name="yan1" type="hidden" id="yan1" value="<%=Num%>">
                  </td>
                </tr>
                <tr>
                  <td height="15" colspan="2" align="center"><input type="submit" name="Submit" value="登陆">
                     
                    <input type="reset" name="Submit2" value="重置"></td>
                </tr>
              </table>
            </form></td>
        </tr>
      </table></td>
  </tr>
</table>
<%
UserName=ReplaceBadChar(Request.Form("UserName"))
UserPwd=ReplaceBadChar(Request.Form("UserPwd"))
IF UserName<> "" And UserPwd <> "" Then
	StrSql="Select * From XcUser Where UserName='" & UserName & "' And UserPwd='" & UserPwd & "'"
	Set Rs=Conn.Execute(StrSql)
		IF Not Rs.Eof Then
		'------------------------------------------
		Session("UserName")=Rs("UserName")
		Session("Useropr")=Rs("Useropr")
		'------------------------------------------
		'登陆成功,写入登陆日志
		LogIP=Request.ServerVariables("REMOTE_ADDR")
		LogSys=system(Request.ServerVariables("ALL_HTTP"))
		
		Call UserLog(Rs("UserName"),LogIP,LogSys,Rs("Useropr"))
		Call ShowMessAge("登陆成功,欢迎" & Session("UserName"),"AdminIndex.asp")
		Else
		ShowMess("用户名或密码错误!请重新输入")
		End IF

End IF


Conn.close
%>