check.asp

医院专家挂号系统设计

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