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="778" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
  <tr> 
    <td colspan="3" height="10"></td>
  </tr>
  <tr> 
    <td align="center" valign="top"> 
      <table width="98%" border="0" cellspacing="1" cellpadding="6" align="center" bgcolor="#BDC0C8">
        <tr> 
          <td align="center" bgcolor="#FFFFFF" class="chinese"><font color="#666666">所属分类： 
            <%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%>
            作者： 
            <%if rs("art_from")<>"" then%>
            <a href="<%=rs("art_from")%>"><%=rs("art_poster")%></a> 
            <%else%>
            <%=rs("art_poster")%> 
            <%end if%>
            更新日期：<%=rs("art_date")%> 阅读次数：<%=rs("art_count")%></font></td>
        </tr>
      </table>
      <br>
      <table width="98%" border="0" cellspacing="1" cellpadding="6" align="center" bgcolor="#BDC0C8">
        <tr> 
          <td bgcolor="#FFFFFF" class="chinese"> 
            <div align="center"><b><%=rs("art_title")%></b></div>
            <br>
            <br>
            <%=ubb2html(formatStr(autourl(rs("art_content"))),true,true)%> <br>
            <br>
            -------------------------------------------------------------------<font color="#666666">-------------<br>
            <b>相关文章</b></font><br>
            <%sql="select * 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
            %>
            <a href="showart.asp?art_id=<%=rs2("art_id")%>&cat_id=<%=rs2("cat_id")%>"><%=rs2("art_title")%></a> <%=rs2("art_date")%><br>
            <%
			rs2.movenext
			loop
			if rs2.eof and rs2.bof then
			response.write "没有相关文章"
			end if
			rs2.close
			set rs2=nothing
			%>
          </td>
        </tr>
      </table>
      <br>
    </td>
    <td width="1" background="images/dotlinev.gif"></td>
    <td width="200" align="center" valign="top" bgcolor="#F5F5F5"> 
      <%call articlecat()%>
    </td>
  </tr>
  <tr> 
    <td colspan="3" height="1"></td>
  </tr>
</table>
<%end sub%>