|
|
温馨提示：请您提交完留言后，记住您提交问题时填写的留言人姓名。
为了尊重患者隐私,当您需要查看我们的专家回复时，请点击您提的问题标题，按提示输入您留言时填写的姓名才可以查看自已个人问题的回复。您不能查看他人留言内容及专家回复信息！如有问题，请致电
010
- 67366120 直接找专家查询 |
|
|
|
<%
dim arrySqlWhereItme(2)
strSelectCommon="select * from MessageInfo " '设置SELECT语句的基本部分
strSelectWhere=""
strSelectOther=" ORDER BY MessageId DESC"
'设置记录集的过滤条件即WHERE子句部分 ::以下的字段过滤条件内容部分依赖于请求该页的页面
if not isEmpty(Request.form("txtMessageAuthor")) then
strMessageAuthor=" MessageAuthor='" & Request.form("txtMessageAuthor") & "'"
else
strMessageAuthor=""
end if
select case Request.form("sltTimeScope")
case "threeday" strPresentTimeScope="PresentTime>=#" & datevalue(dateadd("d",-3,date())) & "#" '当日期范围选择在3天以内时
case "oneweek" strPresentTimeScope="PresentTime>=#" & datevalue(dateadd("ww",-1,date())) & "#" '当日期范围选择在1周以内时
case "onemonth" strPresentTimeScope="PresentTime>=#" & datevalue(dateadd("m",-1,date())) & "#" '当日期范围选择在1个月以内时
case "threemonth" strPresentTimeScope="PresentTime>=#" & datevalue(dateadd("m",-3,date())) & "#" '当日期范围选择在3个月以内时
case else strPresentTimeScope="messageid="&request("id") '当没有限定日期范围时
end select
arrySqlWhereItme(0)=strMessageAuthor
arrySqlWhereItme(1)=strPresentTimeScope
dim eachitem
for each eachItem in arrySqlWhereItme
if eachItem<>"" then
if strSelectWhere="" then
strSelectWhere=" Where " & eachItem
elseif strSelectWhere<>"" then
strSelectWhere=strSelectWhere & " and " & eachItem
end if
end if
next
Sql=strSelectCommon & strSelectWhere & strSelectOther
'sql构造
if strMessageAuthor="" then sql="select * from MessageInfo order by MessageId desc"
call Showover
Function ShowDescription(objRs)
%>
| 病历编号 |
用户留言问题目标题 |
留言时间 |
状态 |
<%
if Not ObjRs.EOF then
For i=0 to MaxPerPage%>
| <%=ObjRs("MessageId")%> |
)" class=3><%=ObjRs("MessageTitle")%> |
<%=ObjRs("PresentTime")%> |
<%if ObjRs("replyflag")=1 then response.write "已回复" else response.write "未回复" end if%> |
<%
if strMessageAuthor<>"" then
if ObjRs("replyflag")=1 then
sql="select top 1 * from MessageReply where messageid="&ObjRs("MessageId")
set rs_reply=conn.execute(sql)
if not rs_reply.eof then%>
************------------------------------------
回复内容：
<%response.write replace(replace(rs_reply("replyBody")&"......",chr(13),"
")," "," ")%>
|
<%else%>
您好，专家意见已经回复到您所要求的联系方式。 |
<%end if
rs_reply.close
set rs_reply=nothing
end if
end if
ObjRs.MoveNext
if ObjRs.EOF then exit For
Next
else%>
友情提示：
- 您输入的姓名与提交本条问题时填写的留言人姓名不符，因此您不能查看本条信息内容。
- 点击返回
|
<%
end if%>
<%
End Function
%>
|
|
