<%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%> 无标题文档 <% sql ="select * from viplist where 科室='"& keshi &"'" openrs rs,sql,1,1 %> <%do while not rs.eof%> <% rs.movenext loop rs.close %>
        返回
<%response.write(keshi)%>科室电话查询
         
姓名
办公室
电话
传真
详细资料
<%response.write rs("truename")%>
<%response.write rs("房间")%>
<%response.write rs("call")%>
<%response.write rs("fax")%>
查看
         
         
        返回