📄 bsbs.asp

📁 三鸟个人网站源码。

💻 ASP

字号:

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 2</title>
<base target="_blank">
<style type="text/css">
A{TEXT-DECORATION: none;}
A:hover{COLOR: #CC0000;}
A:link {color: #3D5A83;}
A:visited {color: #3D5A83;}

TD
{
FONT-FAMILY:宋体;FONT-SIZE: 9pt;line-height: 150%; 

}
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>
</head>
<%
set conn=server.createobject("adodb.connection")
conn.connectionstring="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("data/data.mdb")
conn.open
set rs=server.CreateObject ("ADODB.Recordset") 
rs.open "select top 12  from book order by id desc",conn,1,1 
if rs.eof and rs.bof then
	response.write "<center>论坛还没有新的话题!</center>"
else 
do until rs.EOF%>
<body leftmargin="0" topmargin="0">
<table width="99%" border="0" align="left" cellpadding="0" cellspacing="0"> <tr> 
<td >&nbsp;<img src=images/pic.gif>&nbsp;<a href="showitem.asp?bid=<%=rs("bid")%>&bdid=<%=rs("bdid")%> target="_blank""><%=rs("btitle")%></a> 
<br> <%
rs.MoveNext '将数据指针移到下一个行 
loop '循环结束 
end if
%> </td></tr> </table>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -