shownews_body.asp

来自「功能简介: 1) 首页投票调查系统 2）FLASH导航清新直观（带FLA源文件」· ASP 代码 · 共 70 行

<%sub shownews_body()

sql="select * from news where news_id="&request.querystring("news_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table width="<%=tablewidth%>" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
  <tr> 
    <td colspan="3" height="10"></td>
  </tr>
  <tr> 
    <td width="575" valign="top"> 
       <div align="center">
        <center>
          <table width="98%" border="1" cellspacing="0" cellpadding="4" bgcolor="#C0C0C0" style="border-collapse: collapse" bordercolor="#FFFFFF">
            <tr> 
          <td bgcolor="#F5F5F5" class="chinese" background="../images/btbg.gif"> 
            <div align="center" ><b><%=rs("news_title")%></b></div></td></tr>
			<tr><td bgcolor="#FFFFFF" align="center"> 来源：<a href="<%=rs("news_ahome")%>" target="_blank"><%=rs("news_author")%></a> 更新日期：<%=rs("news_date")%> 阅读次数：<%=rs("news_count")%></td></tr>
            <tr> 
          <td bgcolor="#FFFFFF" class="chinese"> 
		 
            <br>
            &nbsp;&nbsp;  <%=ubb2html(formatStr(autourl(rs("news_content"))),true,true)%> <br>
            <br>
            <font color="#808080">---------------------------------------------------------------------------------<br>
            <b>相关新闻</b></font><br>
            <%sql="select * from news where news_content like '%"&rs("news_keyword")&"%' and news_id <> "&rs("news_id")&" order by news_date DESC"
			set rs2=server.createobject("adodb.recordset")
            rs2.open sql,conn,1,1
			do while not rs2.eof
            %>
            <a href="shownews.asp?news_id=<%=rs2("news_id")%>"><%=rs2("news_title")%></a> <%=rs2("news_date")%><br>
            <%
			rs2.movenext
			loop
			if rs2.eof and rs2.bof then
			response.write "没有相关新闻"
			end if
			rs2.close
			set rs2=nothing
			%>
          </td>
        </tr>
      </table>
        </center>
      </div>
      <br>
    </td>
    <td width="1" background="images/dotlinev.gif"></td>
    <td width="180" align="center" valign="top"> 
      <table width="92%" border="0" cellspacing="0" cellpadding="8" bgcolor="#FFFFFF" class="chinese" style="border-collapse: collapse" bordercolor="#111111">
        <tr> 
          <td bgcolor="#F5F5F5" width="84%" align="center"> 
            <P style="LINE-HEIGHT: 150%"><a href="news.asp?type=1">最新的10篇新闻</a><br>
              <a href="news.asp?type=2">按时间降序排列</a><br>
              <a href="news.asp?type=3">按时间升序排列</a></p>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td colspan="3" background="images/dotlineh.gif" height="1"></td>
  </tr>
</table>
<%
rs.close
set rs=nothing
end sub%>