expertcache.asp

来自「医院专家挂号系统设计」· ASP 代码 · 共 13 行

<%
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
%>