download_body.asp

ASP源码

<%sub download_body()
dim keyword,class_id,colname,totalsoft,Currentpage,totalpages,i
opendown
keyword=request("keyword")'jacky把代码第三行的：keyword=request.form("keyword")中的.FORM去掉了
cat_id=request("cat_id")
class_id=request("class_id")
colname=request("colname")

sql="SELECT * FROM soft order by soft_joindate desc"
if cat_id<>"" and class_id="" then
    sql="SELECT * FROM soft where soft_catid="&cat_id&" order by soft_joindate desc"
elseif class_id<>"" and keyword="" then
	sql="SELECT * FROM soft where soft_classid="&class_id&" order by soft_joindate desc"
elseif keyword<>"" and colname<>"0" then
	sql="select * from soft where "&colname&" like '%"&keyword&"%' order by soft_joindate desc"
elseif keyword<>"" and colname="0" then
    sql="select * from soft where soft_name like '%"&keyword&"%' or soft_desc like '%"&keyword&"%' order by soft_joindate desc"
else
	sql="SELECT * FROM soft order by soft_joindate desc"
end if

set rssoft=server.createobject("adodb.recordset")
rssoft.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="554" valign="top"> 
      <div align="center">
        <center>
        <table border="1" cellpadding="0" cellspacing="0" style="border-width:0; border-collapse: collapse" bordercolor="#111111" width="98%" id="AutoNumber1">
          <tr>
            <td width="100%" style="border-style: none; border-width: medium">
            <font color="#666666">
            <img border="0" src="images/pic000/t004download.gif"></font></td>
          </tr>
          <tr>
            <td width="100%" style="border-style: none; border-width: medium">　</td>
          </tr>
        </table>
        </center>
      </div>
      <table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
        <form name="form1" method="post" action="">
          <tr> 
            <td class="chinese" align="right"> 
              <font color="#666666"> 
              <select name="colname">
                <option value=0 selected>--==搜索范围==--</option>
                <option value="soft_name">文件名称</option>
                <option value="soft_desc">文件描述</option>
              </select>
              &nbsp; 
              <input type="text" name="keyword" class="textarea" size="20">
              &nbsp;&nbsp; 
              <input type="submit" name="Submit" value="搜索" class="button">
              </font>
            </td>
          </tr>
        </form>
      </table>
      <table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td bgcolor="#FFFFFF" class="chinese"> 
            <form>
              <font color="#666666">跳转到 
              <select name="go" onChange='window.location=form.go.options[form.go.selectedIndex].value'>
                <option value="download.asp">---===选择分类===---</option>
                <option value="download.asp">---===下载首页===---</option>
                <%
Set rscat = Server.CreateObject("ADODB.Recordset")
sqlcat="SELECT * FROM d_cat"
rscat.OPEN sqlcat,Conn,1,1
do while not rscat.eof
colparam1=rscat("cat_id")
%>
                <option value="download.asp?cat_id=<%=rscat("cat_id")%>">----<%=rscat("cat_name")%>----</option>
                <%
Set rsclass = Server.CreateObject("ADODB.Recordset")
sqlclass="SELECT * FROM d_class where cat_id=" &colparam1& ""
rsclass.OPEN sqlclass,Conn,1,1
	do while not rsclass.eof
%>
                <option value='download.asp?cat_id=<%=rsclass("cat_id")%>&class_id=<%=rsclass("class_id")%>'><%=rsclass("class_name")%></option>
                <%
		rsclass.movenext
	loop
	rsclass.close
set rsclass=nothing
rscat.movenext
loop
rscat.close
set rscat=nothing
set rstotal=nothing
%>
              </select> </font>
            </form>
          </td>
          <td align="right" bgcolor="#FFFFFF" class="chinese"> 
            <%dim flname
			flname=""
			if request.querystring("class_id")<>"" then
			sql="select class_name from d_class where class_id="&request.querystring("class_id")
			set rsclass=conn.execute(sql)
			flname=rsclass("class_name")
			rsclass.close
			set rsclass=nothing
			elseif request.querystring("class_id")="" and request.querystring("cat_id")<>"" then
			sql="select cat_name from d_cat where cat_id="&request.querystring("cat_id")
			set rscat=conn.execute(sql)
			flname=rscat("cat_name")
			rscat.close
			set rscat=nothing
			end if%><font color="#666666"> </font>
            <font color="#ff6600"><%=flname%></font>
            <%if keyword<>"" then%>
            </font><font color="#ff6600">共搜索到<%=rssoft.recordcount%>个文件
			<%else%>
			</font><font color="#666666">分类共有<%=rssoft.recordcount%>个文件 
			<%end if%> 
            </font> </td>
        </tr>
      </table>
      <table width="98%" border="0" cellspacing="0" cellpadding="0" align="center" class="chinese">
        <%
if not rssoft.eof then
rssoft.movefirst
rssoft.pagesize=softperpage
if trim(request("page"))<>"" then
   currentpage=clng(request("page"))
   if currentpage>rssoft.pagecount then
      currentpage=rssoft.pagecount
   end if
else
   currentpage=1
end if
   totalsoft=rssoft.recordcount
   if currentpage<>1 then
       if (currentpage-1)*softperpage<totalsoft then
	       rssoft.move(currentpage-1)*softperpage
		   dim bookmark
		   bookmark=rssoft.bookmark
	   end if
   end if
   if (totalsoft mod softperpage)=0 then
      totalpages=totalsoft\softperpage
   else
      totalpages=totalsoft\softperpage+1
   end if
%><font color="#666666"> </font>
        <form name="form2" method="post" action="download.asp?cat_id=<%=request("cat_id")%>&keyword=<%=request("keyword")%>&colname=<%=request("colname")%>">
          <tr> 
            <td class="chinese" align="right"><%=currentpage%><font color="#666666">
            </font><font color="#666666">/<%=totalpages%>页,<%=totalsoft%>条记录/<%=softperpage%>个每页. 
              <%
i=1
showye=totalpages
if showye>10 then
showye=10
end if
for i=1 to showye
if i=currentpage then
%>
              <%=i%> 
              <%else%> </font>













              <a href="download.asp?page=<%=i%>&cat_id=<%=request("cat_id")%>&class_id=<%=request("class_id")%>&keyword=<%=request("keyword")%>&colname=<%=request("colname")%>">
            <font color="#666666"><%=i%></font></a><font color="#666666"> 




















              <%end if
next
if totalpages>currentpage then
if request("page")="" then
page=2
else
page=request("page")+1
end if%> </font>







              <a href="download.asp?page=<%=page%>&cat_id=<%=request("cat_id")%>&class_id=<%=request("class_id")%>&keyword=<%=request("keyword")%>&colname=<%=request("colname")%>" title="下一页">
            <font color="#666666">>></font></a><font color="#666666">








              <%end if%>
              &nbsp;&nbsp;&nbsp;&nbsp; 
              <input type="text" name="page" class="textarea" size="4">
              <input type="submit" name="Submit" value="Go" class="button">
            </font>
            </td>
          </tr>
        </form>
      </table>
      <%
i=0
do while not rssoft.eof and i<softperpage
%><font color="#666666"> </font>
      <table width="98%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#B8B8B8" class="chinese">
        <tr> 
          <td bgcolor="#E7E3E7" colspan="2" height="25" background="images/pic000/c005.jpg"><a href="showsoft.asp?soft_id=<%=rssoft("soft_id")%>" target="_blank"><b><%=rssoft("soft_name")%></b></a></td>
          <td colspan="2" align="right" bgcolor="#E7E3E7" background="images/pic000/c005.jpg"><%=rssoft("soft_catname")%><font color="#666666">
          </font><font color="#666666">| <%=rssoft("soft_classname")%>&nbsp;&nbsp; 
            <%if rssoft("soft_demo")<>"" then%> </font>
            <a href="<%=rssoft("soft_demo")%>" target=_blank>
          <font color="#666666">演示</font></a><font color="#666666"> 
            <%else%>
            没有演示 
            <%end if%> </font>