articlecat.asp

一个很好的下载系统原码

<%
sub articlecat()
sql="select * from a_cat"
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
%>
      <table width="90%" border="0" cellspacing="1" cellpadding="8" bgcolor="#CFD1D6" class="chinese">
        <tr> 
          
    <td bgcolor="#66CCFF" width="84%" align="right"> 
      <p style="LINE-HEIGHT: 150%"> 
        <%
			do while not rs2.eof
			if request("cat_id")=cstr(rs2("cat_id")) then
			response.write "<font color='#ff6600'>"&rs2("cat_name")&"</font><br>"
			else
			response.write "<a href='article.asp?cat_id="&rs2("cat_id")&"'>"&rs2("cat_name")&"</a><br>"
			end if
			rs2.movenext
			loop
			if rs2.eof and rs2.bof then
			response.write "当前没有分类！"
			end if
			%>
      </p>
          </td>
        </tr>
      </table>
      <br>
      <table width="98%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td background="images/dotlineh.gif" height="1"></td>
        </tr>
      </table>
      <br>
      <table width="90%" border="0" cellspacing="1" cellpadding="0" bgcolor="#CDD0D6">
        <form name="form2" method="post" action="article.asp">
		<tr> 
          
      <td bgcolor="#66CCFF" align="center" height="22" class="chinese"><font color="#666666"><strong>文章搜索</strong></font></td>
        </tr>
        <tr> 
            <td bgcolor="#FFFFFF" align="center"> 
              <select name="select">
                <option value="art_title">搜索文章标题</option>
                <option value="art_content">搜索文章内容</option>
              </select>
              <br>
              <input type="text" name="keyword" class="textarea" size="20" style="color: #0000FF">
              <br>
              <input type="submit" name="search" value=" 搜索 " class="button">
            </td>
        </tr>
		</form>
      </table>
      <br>
<%rs2.close
set rs2=nothing
end sub%>