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 %>