admin_checklogin.asp

医院专家挂号系统设计

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Inc/adovbs.asp"-->
<!--#include file="Inc/Conn.asp"-->
<!--#include file="../inc/MD5.asp"-->
<!--#include file="../inc/SQLCHK.asp"-->
<%
If Request.QueryString("Action")="OK" Then
	Dim AdminName, AdminPwd, RS
	AdminName = Request.Form("AdminName")
	AdminPwd = MD5(Request.Form("AdminPwd"))
	Set RS=Server.CreateObject("ADODB.RecordSet")
	RS.Open "Select ID From [Admin] Where AdminName='"&AdminName&"' and AdminPwd='"&AdminPwd&"'",Conn,adOpenKeyset,adLockReadOnly
	If RS.Eof OR RS.Bof Then
    Response.write "<script language='javascript'>" &Chr(13)
		Response.write "alert('密码或者用户名错误!');" &Chr(13)
		Response.write "javascript:history.go(-1);"&Chr(13)
		Response.write "</script>" &Chr(13)
    Response.End 
	Else
		Session("AdminName")=AdminName
		Session("AdminPwd")=AdminPwd
		Session.Timeout = 60
		Response.Redirect("Admin_Expert.asp")
	End If
End If
%>