showart_body.asp

在线 点播音乐的功能 只提供参考

<%sub showart_body()
openarticle
sql="select * from art where art_id="&request.querystring("art_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">
    <p style="line-height: 200%"></td>
  </tr>
  <tr> 
    <td width="554" valign="top"> 
      <div align="center">
        <center> 
      <table width="98%" border="0" cellspacing="0" cellpadding="0" bgcolor="#CACACA" bordercolor="#808080" style="border-collapse: collapse">
        <tr> 
          <td bgcolor="#EFEFEF" align="center" height="24" class="chinese" background="images/bg3.gif" bordercolor="#FFFFFF">
          <p style="line-height: 200%">所属分类：
            <%sql="select cat_id,cat_name from a_cat where cat_id="&rs("cat_id")
		  set rs1=conn.execute(sql)%>
            <a href="article.asp?cat_id=<%=rs1("cat_id")%>"><%=rs1("cat_name")%></a> 
            <%rs1.close
		  set rs1=nothing%>
            更新日期：<%=rs("art_date")%> 阅读次数：<%=rs("art_count")%></td>
        </tr>
      </table>
        </center>
      </div>
      <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" width="100%" id="AutoNumber1">
        
        <tr>
          <td width="100%" style="border-style: none; border-width: medium">
          <a target="_blank" title="广告位招租，出现在任何一篇文章里,欢迎您使用……" href="web/about.asp">
          <img border="0" src="images/ggarticle.gif" align="left"></a></td>
        </tr>
        
      </table>
      <div align="center">
        <center>
      <table width="98%" border="1" cellspacing="0" cellpadding="6" bgcolor="#F5F5F5" bordercolor="#FFFFFF" style="border-collapse: collapse">
        <tr> 
          <td bgcolor="#F5F5F5" class="chinese"> 
            <div align="center"><b><%=rs("art_title")%></b></div>
            <p style="margin-top:0; margin-bottom:0">
            <font color="#808080">
            <br>
            <br>
            <%=ubb2html(formatStr(autourl(rs("art_content"))),true,true)%> <br>
            <br>
            --------------------------------------------------------------------------------<br>
             <table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <tr> 
                    <td width="50%"><font color="#808080"><b>相关文章</b></font></td>
                    <td><div align="right"><a href="javascript:window.close()">【关闭本页】</a></div></td>
                    <td width="10%"></td>
                  </tr>
                </table><br>
            <%sql="select top 5 * from art where art_content like '%"&rs("art_keyword")&"%' and art_id <> "&rs("art_id")&" order by art_date DESC"
			set rs2=server.createobject("adodb.recordset")
            rs2.open sql,conn,1,1
			do while not rs2.eof
            %> </font>
            <a href="showart.asp?art_id=<%=rs2("art_id")%>&cat_id=<%=rs2("cat_id")%>">
            <font color="#808080"><%=rs2("art_title")%></font></a><font color="#808080"> <%=rs2("art_date")%><br>
            <%
			rs2.movenext
			loop
			if rs2.eof and rs2.bof then
			response.write "没有相关文章"
			end if
			rs2.close
			set rs2=nothing
			%> </font>
          </td>
        </tr>
      </table>
        </center>
      </div>
      <p style="line-height: 200%">
      <br>
    </td>
    <td width="1" background="images/dotlinev.gif"></td>
    <td width="205" align="center" valign="top"> 
      <%call articlecat()%>
    </td>
  </tr>
  <tr> 
    <td colspan="3" background="images/dotlineh.gif" height="1"></td>
  </tr>
</table>
<%end sub%>