📄 feed.asp
字号:
<!--#include file="conn.asp" -->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>简约版</title>
<link href="css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
background-image: url(image/bg.png);
}
-->
</style></head>
<body>
<div>
<div align="center">
<table width="861" border="0" bgcolor="#FFFFFF" class="tb1">
<tr>
<td height="97"><table width="93%" height="99" border="0">
<tr>
<td background="image/bg.png" class="STYLE2">shangdu新闻简约版</td>
</tr>
</table></td>
</tr>
<tr>
<td background="image/bg.png" class="STYLE7"><img src="image/btn_check_checked.png" width="16" height="16">shangdu新闻简约版本插件，聚合在下一版本，即将推出.</td>
</tr>
<tr>
<td><span class="STYLE3"><img src="users/images/btn_check.png" width="16" height="16">
<%
db_path = "date/#shangdu.mdb"
Set conn= Server.CreateObject("ADODB.Connection")
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db_path) &";Jet OLEDB:Database Password=bbg0123456;Persist Security Info=False"
conn.Open connstr
set rs=server.createobject("adodb.recordset")
sql="select * from gonggao order by time desc"
rs.open sql,conn,1,1
if rs.EOF and rs.BOF then
response.write(" 暂时还没有关于shangdu design的公告.")
else
for looplist=1 to 1
response.Write(rs("content"))
rs.movenext
if rs.eof then exit for
next
end if
%>
</span></td>
</tr>
<tr>
<td><%
sql="select * from news order by time desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("暂时没有新闻")
else%>
<a href="admin/files/<%=rs("bh")%>.html"><%
response.Write(rs("title"))
%></a>
<%
end if
%></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</div>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -