www.gusucode.com > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书) > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书)\ASP001中学网站设计与实现\zxweb\admin\admin_login.asp

    <!--#include file=conn.asp -->
<!--#include file=md5.asp-->
<%
'if Trim(Request("verify"))="" then
%>
<script language=javascript>
//history.back()
// alert("请输入附加码！")
</script>
<%
  'Response.End
'elseif 'Trim(Request.form("verify"))<>session("verifycode") then
%>
<script language=javascript>
 //history.back()
 //alert("你输入的附加码和系统产生的不符！")
</script>
<%
  ' Response.End
'end if

AdminUID=trim(Request.Form("AdminUID"))
AdminPWD=md5(trim(Request.Form("AdminPWD")))

AdminUID=replace(AdminUID,"'","''")
AdminPWD=replace(AdminPWD,"'","''")

set rs=server.CreateObject ("ADODB.RecordSet")
rs.Source="select id from Admin where AdminUID='" & AdminUID & "' and  AdminPWD='" & AdminPWD & "'"
rs.Open rs.Source,conn,1,1

if not rs.EOF then 
   session("AdminUID")=AdminUID
   session("AdminPWD")=AdminPWD
   Response.Redirect "admin_main.asp"
else
%>
<script language=javascript>
 history.back()
 alert("请核对您的用户名和密码！")
</script>
<%
   Response.End 
end if
%>