chklog.asp

来自「统架构：ASP+ACCESS 版本系列：个人版 开发时间：2005年12月2」· ASP 代码 · 共 39 行

<%Option Explicit%>

<!--#include file="md5.asp"-->
<%
If session("admin")="ok" Then
 response.redirect"main.asp"
Else
Dim UserName,UserPwd
UserName=trim(request.form("UserName"))
UserPwd=trim(request.form("UserPwd"))
%>
<!--#include file="conn.asp"-->
<%
'Dim strConn
'strConn="customer.mdb"
'call Conn()

Dim objRS,strSQL
set objRS=Server.CreateObject("ADODB.Recordset")
strSQL="select * from admin where UserName='"&UserName&"' and UserPwd='"&md5(UserPwd)&"'"
objRS.Open strSQL,objConn,1,3

  If objRS.RecordCount>0 Then
   objRS.Close
   objConn.Close
   session("admin")="ok"
   session.timeout=20
   response.redirect"main.asp"
  Else
   objRS.Close
   objConn.Close
   response.write"<script language='javascript'>"
   response.write"alert('用户名或密码错误！');"
   response.write"location.href='index.asp';"
   response.write"</script>"
  End If
End If
%>