expertcache.asp

医院专家挂号系统设计

<%
If Session("Expert_Cache")="" Then
	Set RS=Server.CreateObject("ADODB.RecordSet")	
	RS.ActiveConnection=Conn
  RS.Open "Select ID, Name From [EXPERT] Order By ID",,1,1
	Session("Expert_Cache")="True"
	While Not RS.EOF
		Session("Expert_"&RS("ID"))=RS("Name")
		RS.MoveNext
	Wend
	RS.Close
End If
%>