📄 info_new.asp
字号:
<table width="180" height="52" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="1" colspan="2" background="images/bj_x.gif"></td>
</tr>
<tr>
<td width="127" height="27">站内新闻</td>
<td width="53"><a href="list_news.asp" target="_blank"><font color="#FF3300">更多>>></font></a></td>
</tr>
<tr>
<td height="1" colspan="2" background="images/bj_x.gif"></td>
</tr>
<tr valign="middle">
<%'dim i
i=0
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 6 newsname,adddate,newsid from sh_news order by adddate desc",conn,1,1
if rs.eof and rs.bof then
response.write "目前还没有新闻!"
else
do while not rs.eof
i=i+1%>
<td height="23" colspan="2"><font color="#FF0000">
<img src="images/top4.gif">
<%if len(trim(rs("newsname")))>13 then
response.write " <a href=""javascript:;"" onClick=""javascript:window.open('news.asp?id="&rs("newsid")&"','news','width=500,height=550,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"" title="&year(rs("adddate"))&"年"&month(rs("adddate"))&"月"&day(rs("adddate"))&"日发布><font color=#FF0000>"&left(trim(rs("newsname")),12)&".."&"</font></a><br>"
else
response.write " <a href=""javascript:;"" onClick=""javascript:window.open('news.asp?id="&rs("newsid")&"','news','width=500,height=550,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"" title="&year(rs("adddate"))&"年"&month(rs("adddate"))&"月"&day(rs("adddate"))&"日发布><font color=#FF0000>"&trim(rs("newsname"))&"</font></a><br>"
end if
if i>=6 then exit do%>
</font></td>
</tr><%rs.movenext
loop
end if
rs.close
set rs=nothing%>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -