admin_check.asp

医院专家挂号系统设计

<%
'转入主要页面时检查是否已经登陆
Dim adu,adp,adi,chk
If Session("AdminName")="" or Session("AdminPwd")="" Then
	Response.Redirect "Admin_Login.asp"
Else
	adu = Replace(Session("AdminName"),"'","")
	adp = Replace(Session("AdminPwd"),"'","")
	Set chk = Conn.Execute("Select ID From [Admin] Where AdminName='"&adu&"' and AdminPwd='"&adp&"'")
	If chk.Eof and chk.Bof Then
		Response.Redirect "Admin_Login.asp"
	End if
End if
chk.Close
Set chk=Nothing
%>