📄 news.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="admin/config.asp"-->
<!--#include file="admin/inc/char.asp"-->
<html> <head>
<style type="text/css">
<!--
body {
font-size: 12px;
}
td {
font-size: 12px;
color: #0066FF;
}
-->
</style>
<style type="text/css">
A{TEXT-DECORATION: none;}
A:hover{COLOR: #CC0000;}
A:link {color: #3D5A83;}
A:visited {color: #3D5A83;}
Input
{
BACKGROUND-COLOR: #EAF1FB;
BORDER-BOTTOM: #89a5e6 1px solid;
BORDER-LEFT: #89a5e6 1px solid;
BORDER-RIGHT: #89a5e6 1px solid;
BORDER-TOP: #89a5e6 1px solid;
COLOR: #082D71;
HEIGHT: 18px;
border-color: #082D71 #082D71 #082D71 #082D72; font-size: 9pt
}
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>3鸟设社下载系统</title>
<body leftmargin="0" topmargin="0">
<tr><%dim sql,rs
sql="select top 5 ID,FileName,Picture from Software where Best=true"
sql=sql&" and Hidden=false and PostType<>1"
sql=sql&" and not(isnull(Picture) or Picture='') order by ID DESC"
set rs=conn.execute(sql)
dim Picture
if rs.eof and rs.bof then
response.write "<tr><td><center>暂无精品软件图片介绍！</center></td></tr>"
else
do while not rs.eof
Picture=Split(rs(2),"|")
response.write ""
rs.movenext
loop
end if
%> <td height="84" align="left"><%
sql="select top "&SiteSetting(11)&" ID,FileName from Software"
sql=sql&" where Hidden=false and Best=true and PostType<>1 order by ID desc"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
response.write "<center>暂无软件推荐！</center>"
else
do while not rs.eof
response.write" <img src=images/pic.gif> <a href='view.asp?id="&rs(0)&"' target='_blank' title='"&rs(1)&"'>"&strvalue(rs(1),40)&"</a><br>"
rs.movenext
loop
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -