down_body.asp

不错的asp论坛,大家可以看看啊和呵呵.

<%sub down_body()
dim keyword,class_id,colname,totalsoft,Currentpage,totalpages,i
keyword=request("keyword")
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 bgcolor="#000000" align=center border=1 cellPadding=0 cellSpacing=0 width=760 borderColor="<%=border%>" frame=vsides rules=none>
<TBODY>
<TR>
<td height="24" align="right"><%
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")
%>&nbsp;<img src=img/none.gif border=0><img src=img/link2.gif border='0'>&nbsp;<a href="down.asp?cat_id=<%=rscat("cat_id")%>"><%=rscat("cat_name")%></a>
                <%
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
%>&nbsp;<img src=img/none.gif border=0><img src=img/link2.gif border='0'>&nbsp;<a href='down.asp?cat_id=<%=rsclass("cat_id")%>&class_id=<%=rsclass("class_id")%>'><%=rsclass("class_name")%></a>
                <%
		rsclass.movenext
	loop
	rsclass.close
set rsclass=nothing
rscat.movenext
loop
rscat.close
set rscat=nothing
set rstotal=nothing
%>
&nbsp;
</TD>
</TR>
<TR>
<TD width="760" background="img/menu_bg2.gif" height="4"></TD>
</TR>
</TBODY>
</TABLE>
<TABLE align=center border=1 cellPadding=0 cellSpacing=0 width=760 borderColor="<%=border%>" frame=vsides rules=none>
<TBODY>
<TR>
<td width=553 align=left vAlign=top bgcolor="#000000"><%call br%>
<table width='530' height="25" border='0' align="center" cellspacing='0' background="img/mainbg.gif" cellpadding="2">
              <tr> 
                <td>&nbsp;&nbsp;<img src="img/biao.gif" align="absmiddle">&nbsp;  
            <%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="#ff6600"> </font>
            <font color="#ff6600"><%=flname%></font>
            <%if keyword<>"" then%>  
                  <font color="#ff6600">共搜索到<%=rssoft.recordcount%>个文件  
			<%else%>
			</font><font color="#ff6600">分类共有<%=rssoft.recordcount%>个文件   
			<%end if%>
                  </font>
</td>
              </tr>
            </table>
        <%
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
%>
<%
i=0
do while not rssoft.eof and i<softperpage
%><font color="#ff6600"> </font>
      <table width="530" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#000000" class="chinese">
        <tr> 
          <td bgcolor="#333333" colspan="3" height="25">
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
                          <tr> 
                            <td width="480"><strong>&nbsp;<img src=img/none.gif border=0><img src=img/i3.gif border='0'>&nbsp;<a href="javascript:down('showdown.asp?soft_id=<%=rssoft("soft_id")%>')" title="查看详细内容"><font color="#ff6600"><%=rssoft("soft_name")%></font></a></strong></td>
                            <td width="50"><%if rssoft("soft_demo")<>"" then%>
            <a href="<%=rssoft("soft_demo")%>" target="_blank" title="查看演示">
<font color="#009900">演示</font><%end if%></a></td>
                          </tr></table>
          </td>
        </tr>
        <tr> 
          <td bgcolor="#000000" colspan="3"><%call br%>&nbsp;&nbsp;&nbsp; <%=cutstr(rssoft("soft_desc"),160,false,none)%><%call br%></td>  
        </tr>
 <tr> 
          <td bgcolor="#333333" width="30%" height="25">&nbsp;软件大小：<font color="#FFFFFF"><%=rssoft("soft_size")%></font></td>
          <td bgcolor="#333333" width="30%">&nbsp;推荐程度:<img src="img/star<%=rssoft("soft_commend")%>.gif"align="absmiddle"></td>
          <td bgcolor="#333333" width="40%">&nbsp;快速下载：<a href="opensoft.asp?soft_id=<%=rssoft("soft_id")%>&url=1" title="直接下载"><font color=5292FF><b>①</b></font></a> 
            <%if rssoft("soft_url2")<>"" then%>  
            <a href="opensoft.asp?soft_id=<%=rssoft("soft_id")%>&url=2" title="直接下载">  
<font color=31D3FF><b>②</b></font></a> 
            <%end if%>  
            <%if rssoft("soft_url3")<>"" then%>  
            <a href="opensoft.asp?soft_id=<%=rssoft("soft_id")%>&url=3" title="直接下载"><font color=5292FF><b>③</b></font></a>   
            <%end if%>  
            <%if rssoft("soft_url4")<>"" then%>  
            <a href="opensoft.asp?soft_id=<%=rssoft("soft_id")%>&url=4" title="直接下载"><font color=31D3FF><b>④</b></font></a>   
            <%end if%></td>  
        </tr>
      </table><%call br%>
      <%
i=i+1
rssoft.movenext
loop
else
if rssoft.eof and rssoft.bof then
%>
<%call br%><table width="530" border="1" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#000000" align="center">
        <tr> 
          <td height="100" colspan="4" bgcolor="#000000" align="center"> 
            <%if keyword<>"" then%>对不起，没有找到你想要的文件！  
            <%else%>该类别当前还没有文件下载！  
            <%end if%> 
          </td>
        </tr>
      </table>
<%end if
end if
if not request("type")=1 then%>
<TABLE cellSpacing=1 cellPadding=0 width="530" align=center border=0 bgcolor="#000000">
<TBODY>
<form name="form1" method="post" action="down.asp?cat_id=<%=request("cat_id")%>&class_id=<%=request("class_id")%>&keyword=<%=request("keyword")%>&colname=<%=request("colname")%>">
<TR> 
<TD align=middle width="35%" height=25 bgcolor="#333333"><IMG height=14 src="img/cha.gif" width=14 align=absMiddle> 共[<font color="#66ffff"><%=totalsoft%></font>]个作品　分[<font color="#66ffff"><%=totalpages%></font>]页</TD>
<TD width="40%" align=middle bgcolor="#333333"><IMG height=11 src="img/lt.gif" width=11 align=absMiddle>
<%
if CurrentPage<2 then
response.write "<font color='999966'>首页 上一页</font> "
else
response.write "<a href=down.asp?page=1&cat_id="&request.querystring("djcat_id")&"&class_id="&request("class_id")&">首页</a> "
response.write "<a href=down.asp?page="&CurrentPage-1&"&cat_id="&request.querystring("djcat_id")&"&class_id="&request("class_id")&">上一页</a> "
end if
if totalpages-currentpage<1 then
response.write "<font color='999966'>下一页 尾页</font>"
else
response.write "<a href=down.asp?page="&CurrentPage+1&"&cat_id="&request.querystring("cat_id")&"&class_id="&request("class_id")
response.write ">下一页</a> <a href=down.asp?page="&totalpages&"&cat_id="&request.querystring("cat_id")&"&class_id="&request("class_id")&">尾页</a>"
end if
%>
 <IMG height=11 src="img/gt.gif" width=11 align=absMiddle></TD>
<TD align=middle width="25%" bgcolor="#333333">
<select name="page" class="lanyu">
<%
i=1
for i=1 to totalpages
if i=currentpage then
%>
<option value=<%=i%> selected>第<%=i%>页</option> 
<%else%>
<option value=<%=i%>>第<%=i%>页</option> 
<%end if
next%>
</select><input type="submit" name="Submit2" value="转向" class="button"> </TD>
</TR>
</FORM>
</TABLE>          
      <%end if%>
<%call br%><%call br%>


    </td>
<td width=1 height="190" background="img/xu.gif"></TD>
<td width=204 align=left vAlign=top background=img/left_bg2.gif>
<TABLE width=100% border=0 align=center cellPadding=0 cellSpacing=0>
<TBODY>
<TR><td width=204><img src=img/left_top.gif usemap="#Map" border="0"><map name="Map"><area shape="rect" coords="41, 11, 67, 24" href="book.asp" title="留言本"><area shape="rect" coords="106, 8, 169, 30" href="../ryxs/Default.asp" title="如影相随纯文学网站"></map></td></tr>
</table>
<TABLE width=196 border=0 align=right cellPadding=0 cellSpacing=0 height="404">
<TBODY>
      <%
sql1="SELECT top " &topsoftnum& " soft_dcount,soft_rcount,soft_id,soft_name,soft_joindate FROM soft  ORDER BY soft_dcount DESC , soft_joindate DESC"
sql2="SELECT top " &newsoft& " soft_id,soft_name,soft_joindate,soft_dcount,soft_rcount FROM soft order by soft_joindate DESC"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,1,1
if request.querystring("class_id")<>"" or request.querystring("cat_id")<>"" then
if request.querystring("class_id")="" and request.querystring("cat_id")<>"" then
sql3="SELECT top 10 soft_id,soft_name,soft_joindate,soft_dcount,soft_rcount FROM soft WHERE soft_catid= " &request.querystring("cat_id")& " order by soft_dcount DESC , soft_joindate DESC"
elseif request.querystring("class_id")<>"" then
sql3="SELECT top 10 soft_id,soft_name,soft_joindate,soft_dcount,soft_rcount FROM soft WHERE soft_classid= " &request.querystring("class_id")& " order by soft_dcount DESC , soft_joindate DESC"
end if
set rs3=server.createobject("adodb.recordset")
rs3.open sql3,conn,1,1
%><TR>
<td align=center height="24" background="img/title.jpg"><strong>流星情缘排行榜</strong></td>
</tr>
<tr><td height="43"><%call br%>
              <%do while not rs3.eof%>
&nbsp;<img src=img/none.gif border=0><img src=img/title.gif border='0'>&nbsp;<a title="下载次数：<%=rs3("soft_dcount")%>" href="javascript:down('showdown.asp?soft_id=<%=rs3("soft_id")%>')"><%if len(Rs3("soft_name"))>14 then
response.write left(Rs3("soft_name"),12)&"..."
else
response.write Rs3("soft_name")
end if%></a><br>
              <%rs3.movenext
loop
if rs3.eof and rs3.bof then%>
目前还没有文件下载！  
              <%end if%>
          </td>
        </tr>
      <%
rs3.close
set rs3=nothing
end if
%>
<TR>
<td align=center height="24" background="img/title.jpg"><strong>流星情缘总排行</strong></td>
</tr>
<tr><td height="43"><%call br%>
<%do while not rs1.eof%>
&nbsp;<img src=img/none.gif border=0><img src=img/title.gif border='0'>&nbsp;<a title="下载次数：<%=rs1("soft_dcount")%>" href="javascript:down('showdown.asp?soft_id=<%=rs1("soft_id")%>')"><%if len(Rs1("soft_name"))>14 then
response.write left(Rs1("soft_name"),12)&"..."
else
response.write Rs1("soft_name")
end if%></a><br>
              <%rs1.movenext
loop
if rs1.eof and rs1.bof then%>
目前还没有文件下载！  
              <%end if%>
<TR>
<td align=center height="24" background="img/title.jpg"><strong>流星情缘速递</strong></td>
</tr>
<tr><td height="43"><%call br%>
              <%do while not rs2.eof%>
&nbsp;<img src=img/none.gif border=0><img src=img/title.gif border='0'>&nbsp;<a title="下载次数：<%=rs2("soft_dcount")%>" href="javascript:down('showdown.asp?soft_id=<%=rs2("soft_id")%>')"><%if len(Rs2("soft_name"))>14 then
response.write left(Rs2("soft_name"),12)&"..."
else
response.write Rs2("soft_name")
end if%></a><br>
              <%rs2.movenext
loop
if rs2.eof and rs2.bof then%>
目前还没有文件下载！  
             <%end if%>
          </td>
        </tr>
      <%
rs1.close
set rs1=nothing
rs2.close
set rs2=nothing
%>
<TR>
<td align=center height="24" background="img/title.jpg"><strong>流星情缘搜索</strong></td>
</tr>
<form name="form1" method="post" action=""> 
<tr><td height='28' align='center'>
<input type="radio" name="colname" value="0" checked>全部&nbsp;<input type="radio" name="colname" value="soft_name"><font color=#FF00FF>标题</font>&nbsp;<input type="radio" name="colname" value="soft_desc">
<font color=#FF0000>内容</font></td>  
</tr><tr><td height='28' align='center'>
<input type='text' name='keyword'  size='15' value='搜索关键字' maxlength='50' onFocus='this.select();' class="lanyu">&nbsp;<input type='submit' name='Submit'  value='搜索' class="button"></td></tr></form>
<TR>
<td align=center height="25" background="img/title.jpg"><strong>流星情缘声明</strong></td>
</tr>
<tr><td height="98"><%call br%>　　本站的大部分资料，文章都来<%call br%>自网上收集，其版权归作者本人所<%call br%>有，如果有任何侵犯您权益的地方，<%call br%>请联系我们，我们将马上进行整理，<%call br%>谢谢。<%call br%><%call br%></td>
        </tr>
      </table>
     </td>
  </tr>
</table>
<%
rssoft.close
set rssoft=nothing
end sub%>