就医指南
感谢您对市一医的信任！为了使您就诊方便、快捷，解决您在就诊过程中的困难，我们导医员向您提供如下服务：
1、提供导诊服务，满足您就诊过程中正当要求。
2、免费在门诊区域内提供轮椅陪同服务。
3、免费提供开水。
4、为无陪的重病人划价、交费、取药，对需抢救者随时协助急诊科进行抢救。
5、对老弱患者提供全程陪同服务。
6、电话答疑服务，电话号码：（0728）5237542。
7、咨询、协调医院内部各部门服务内容。
我们的服务宗旨：不可无所不能，但求竭尽所能。
我们的服务承诺：您的困难就是我们的工作。
没有最好，只有更好。
当您遇到困难的时候，请告诉我们。
导诊咨询处 电 话：5237542。
我院专科门诊排班表 点击进入>>>
|
<%
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from News where NewsID=" & NewsID
rs.Open rs.source,conn,1,1
typeid=rs("typeid")
Title=trim(rs("Title"))
image=rs("image")
dim mode
set rs11=server.CreateObject("ADODB.RecordSet")
rs11.Source="select * from type where typeid="&typeid&" order by typeid"
rs11.Open rs11.Source,conn,1,1
mode=rs11("mode")
rs11.close
set rs11=nothing
arr_Content=split(News_Content,"[---分页---]")
MaxPages=ubound(arr_Content)
%>
|
| |
<%
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select top 5 * from News where NewsID<>"& NewsID & " and (SpecialID=" & SpecialID & " or SpecialID2=" & SpecialID & ") and checkked=1 order by NewsID DESC"
rs.Open,conn,1,1
if rs.EOF then
Response.Write "| 没有专题信息 | "
else
while not rs.EOF
title=trim(rs("title"))
title=replace(title,"
","")
Response.Write "  " & Title & "(" & trim(rs("UpdateTime")) &")[" & rs("click") & "] | "
rs.MoveNext
wend
Response.Write " | "
end if
rs.Close
set rs=nothing
end if
'------------------------------------------------------------------------------------------------------------------------------------
Response.Write "
| | "
Response.Write "| 相关信息: | | "
if about<>"" then
sql="select top 5 * from news where (about like '%" & about & "%' or title like '%" & about & "%') and title not like '%" & title & "%' and checkked=1 order by newsid desc"
set rs=conn.execute(sql)
do while not rs.eof
title=trim(rs("title"))
title=replace(title,"
","")
%>
<% rs.movenext
loop
Response.Write " | "
else
Response.write "| 没有相关信息 | "
end if
'rs.close
set rs=nothing
set rs1=server.CreateObject("ADODB.RecordSet")
rs1.Source="select top "&reviewnum&" * from review where NewsID=" & NewsID & " and passed=1 order by reviewid desc"
rs1.Open rs1.Source,conn,1,1
if rs1.EOF then NoReview=1
Response.Write "
| | "
Response.Write "| 相关评论: | | "
%>
<%
if not NoReview then
while not rs1.EOF
author=server.HTMLEncode(trim(rs1("author")))
email=server.HTMLEncode(trim(rs1("email")))
reviewip=rs1("reviewip")
content=trim(rs1("content"))
''content=replace(content,"<","<")
''content=replace(content,">",">")
''content=replace(content,chr(13),"
")
ContentLen=len(Content)
%>
<%
rs1.MoveNext
wend
end if
rs1.Close
set rs1=nothing
conn.close
set conn=nothing
%>
|
|
