<%
IsMutiVar =0
thePageSize = 20
dim linkto
SQLCmd="select * from t_AllNews order by S_UpdateTime desc"
%>
<%
if not adoRs.eof then
For i = 1 To thePageSize
text=adoRs("S_Content")
text=Replace(text,chr(13),"
")
text=Replace(text,chr(10),"")
if adoRs("s_linkto")="" then
linkto="shownews.asp?newsid="&adoRs("i_id")
else
linkto= adoRs("s_linkto")
end if
if trim(adoRs("s_remark"))="" then
pic1="/assets/images/te_banner.jpg"
else
pic1= adoRs("s_remark")
end if
%>
">
<%=adoRs("s_title")%>
发布人:博声医疗 发表时间：<%=adoRs("s_updatetime")%>
<%
adoRs.MoveNext
If adoRs.EOF Then
Exit For
End If
next
end if
%>
