 |
<%
'纪录来源server
'Session("servers")=Request("servers")
'If Session("servers") = "" Then
' Session("servers")="www.cgmh.com.tw"
'End if
'If Request("servers") <> "" Then
' Application("LOC") = Request("servers")
'END if
Rgsloc = "3"
%>
| |
|
|
|
|
初诊病患请输入身份证号码，复诊病患亦可输入病历号 |
|
|
<%Function Find_loc(v_loc)
Select case v_loc
Case "1"
Find_loc= "厦门"
Case "2"
Find_loc= "基隆"
Case "3"
Find_loc="林口"
Case "4"
Find_loc="林口儿童"
Case "8"
Find_loc= "高雄"
Case "T"
Find_loc= "凤山"
End Select
End Function
%>
|
 |