 |
 |
 |
| <%set rs=server.CreateObject("adodb.recordset")
rs.open"select top 8 id,title from news where lm='4' order by date_time desc,id desc",conn,1,1
i=1
if not rs.eof then
while not rs.eof
response.Write("")
'response.Write(" ") rs.movenext wend else response.Write("暂无信息！ ") end if rs.close ' set rs=nothing%> |
 |
|
医患交流 美人聚会 常见问题 医师团队
|
 |
 |
|
|
 |
 |
 |
| <%set rs=server.CreateObject("adodb.recordset")
rs.open"select top 8 id,title from news where lm='3' order by date_time desc,id desc",conn,1,1
i=1
if not rs.eof then
while not rs.eof
response.Write("")
'response.Write(" ") rs.movenext wend else response.Write("暂无信息！ ") end if rs.close ' set rs=nothing%> |
|
|
