📄 news.asp
字号:
<table width=100% border=0 align=center cellpadding=0 cellspacing=0> <tr> <td height="35" bgcolor="f1f1f1" background="../images/menu_04.gif"></td></tr>
<tr> <td height="130" valign="top"> <%
set rs_news=server.CreateObject("adodb.recordset")
strnews="select top 20 * from news where shjiaid="&id
rs_news.open strnews,conn,1,1
%> <table width=100% border=0 align=center cellpadding=0 cellspacing=0> <% do while not rs_news.eof %>
<tr> <td height=23>·<% if len(replace(trim(rs_news("title")),"<br>",""))>10 then
response.write "<a href=""news_shjia.asp?id="&rs_news("newsid")&""" target=_blank title="&year(rs_news("addtime"))&"年"&month(rs_news("addtime"))&"月"&day(rs_news("addtime"))&"日发布>"&left(trim(rs_news("title")),12)&".."&"</a><br>"
else
response.write "<a href=""news_shjia.asp?id="&rs_news("newsid")&""" target=_blank title="&year(rs_news("addtime"))&"年"&month(rs_news("addtime"))&"月"&day(rs_news("addtime"))&"日发布>"&trim(rs_news("title"))&"</a><br>"
end if%> </td></tr> <%rs_news.movenext
loop
rs_news.close
set rs_news=nothing%> </table></td></tr> </table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -