深圳万丰医院在线问答

<% Sub NewAskR()'最新回复咨询 Sql = "Select Top 7 Id,Title,Flag,AskTime From AskOnline Where CompanyId = "& CompanyId &" And Flag = 1 Order by Asktime Desc" Arr=Data.DataToArr(Sql,False)'返回数组 If UBound(Arr,2) < 0 Then Response.Write "

无回复问答...

" '没记录 Else For I = 0 To UBound(Arr,2) Response.Write "

" Response.Write "" & Pubfun.FormatMyDate(Arr(3,I),"{Y}-{m}-{d}") & " 已回复" Response.Write "· " Response.Write Pubfun.Cutstr(Arr(1,I),30,1) Response.Write "

" If I <> UBound(Arr,2) Then '最后一条不加换行 Response.Write "" End If Next End If End Sub Sub NewAskN()'待回复咨询 Sql = "Select Top 7 Id,Title,Flag,AskTime From AskOnline Where CompanyId = "& CompanyId &" And Flag <> 1 Order by Asktime Desc" Arr=Data.DataToArr(Sql,False)'返回数组 If UBound(Arr,2) < 0 Then Response.Write "

无未回复问答...

" '没记录 Else For I = 0 To UBound(Arr,2) Response.Write "

" Response.Write "" & Pubfun.FormatMyDate(Arr(3,I),"{Y}-{m}-{d}") & " 待回复" Response.Write "· " Response.Write Pubfun.Cutstr(Arr(1,I),30,1) Response.Write "

" If I <> UBound(Arr,2) Then '最后一条不加换行 Response.Write "" End If Next End If End Sub Sub NewAskT()'推荐问题 Sql = "Select Top 7 Id,Title,Flag,AskTime From AskOnline Where CompanyId = "& CompanyId &" And Ishot = 1 Order by Asktime Desc" Arr=Data.DataToArr(Sql,False)'返回数组 If UBound(Arr,2) < 0 Then Response.Write "

暂无推荐问答...

" '没记录 Else For I = 0 To UBound(Arr,2) Response.Write "

" Response.Write "" & Pubfun.FormatMyDate(Arr(3,I),"{Y}-{m}-{d}") & "" If Arr(2,I) = 1 Then Response.Write " 已回复" Else Response.Write " 待回复" End If Response.Write "· " Response.Write Pubfun.Cutstr(Arr(1,I),30,1) Response.Write "

" If I <> UBound(Arr,2) Then '最后一条不加换行 Response.Write "" End If Next End If End Sub %> 深圳万丰医院在线问答

当前位置：主页 > 在线必答

在线预约| 网上挂号

在线问答

状态提问时间已回复问题 点击查看更多>>

<% Call NewAskR() %>

状态提问时间待解决问题 点击查看更多>>

<% Call NewAskN() %>

状态提问时间热点问题 点击查看更多>>

<% Call NewAskT() %>

<% Set Data = NoThing %>