· |
<%'''#显示新闻标题 链接颜色和链接下划线需要调整
titleshow1=replace(rs("T_subject")," ","")
titleshow1=replace(titleshow1,"","")
titleshow1=replace(titleshow1,"","")
titleshow1=replace(titleshow1,"","")
titleshow1=replace(titleshow1,"","")
titleshow1=replace(titleshow1," ","")
titleshow2=rs("T_subtitle")
if titleshow2<>"" then
%>
<%=rs("T_Subject") & "——" & titleshow2%>
<%else%>
<%=rs("T_Subject")%>
<%end if%>
|
<%=cstr(year(rs("T_date")))+"-"+cstr(month(rs("T_date")))+"-"+cstr(day(rs("T_date")))%> |
<%=rs("HITNUM")%> |
<%=rs("T_Auth")%> |
<%'''###处理下条记录
i=i+1
RS.MoveNext
Loop
RS.Close '关闭记录集
set rs=nothing '释放系统资源
%>