📄 read.asp

📁 3000首FLASH源程序

💻 ASP

字号:

<!--#include file="conn.asp"-->
<%
set rs=conn.execute("SELECT * FROM Announce where id="&request("id")) 
if not rs.eof then
%><title><%=rs("title")%></title>
<body bgcolor="#FFCCFF" leftmargin="5" topmargin="5">
<table width="100%" border="0" cellspacing="1" cellpadding="3" bgcolor="<%=Tablebackcolor%>" align="center" style="font-size=9pt">
  <tr>
    <td bgcolor="#FFBD35" align="center"><font color="#990033"><%=rs("Title")%></font></td>
  </tr>
  <tr>
    <td bgcolor="#FFECC4" height="5" valign="middle"><%=rs("content")%>
    </td>
  </tr>
  <tr>
    <td bgcolor="#FFBC30" align="right"><%=rs("author")%>&nbsp;<%=rs("DateAndTime")%></td>
  </tr>
</table>
<br>
<table width="100%" border="0" cellspacing="1" cellpadding="3" bgcolor="<%=Tablebackcolor%>" align="center" style="font-size=9pt">
  <tr> 
    <td bgcolor="#FFC038" width="28%"> <font color="#990033"> 
      <li>上篇新闻：
      </font>
    </td>
    <td bgcolor="#FFECC0" width="72%"> 
      <%
end if
rs.close
set rs=conn.execute("SELECT * FROM Announce where id="&request("id")-1) 
if rs.eof and rs.bof then   
response.write"已经没有了"  
else 
response.write"<a href=read.asp?id="&rs("id")&">"&rs("title")&"</a> "
end if
rs.close   
%>
    </td>
  </tr>
  <tr> 
    <td bgcolor="#FFBC30" height="5" valign="middle" width="28%"> <font color="#990033"> 
      <li>下篇新闻：
      </font>
    </td>
    <td bgcolor="#FFECC4" height="5" valign="middle" width="72%"> 
      <%set rs=conn.execute("SELECT * FROM Announce where id="&request("id")+1) 
if rs.eof and rs.bof then   
response.write"已经没有了"  
else 
response.write"<a href=read.asp?id="&rs("id")&">"&rs("title")&"</a> "
end if
rs.close   
%>
    </td>
  </tr>
</table>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -