manage_down.asp

烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够好,就送给大家了. 1. 栏目包括 最新信息,下载,影音娱乐,作品展示,定制业务,支持服务,留言,关于本站. 2.管理员

<!--#include file="admin.asp"-->
<!--#include file="conn.asp"-->
<!-- #include file="../Inc/Head.asp" -->
<% search=request.form("search")
tpe=request("type")
searchtype=request("searchtype")
if search<>"" then
	if searchtype="0" then
		response.write "请选择搜索范围"
		response.end
	end if
end if
If request.querystring("page")="" Then
	absPageNum = 1
else
	absPageNum=cint(request.querystring("page"))
end if
RecordPerPage = 8
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorType = adOpenStatic
rs.CacheSize = RecordPerPage
if tpe<>"" and search="" then
	sql="SELECT * FROM download where sortcount="&tpe&" order by time desc"
elseif search<>"" and searchtype<>"0" then
	sql="select * from download where "&searchtype&" like '%"&search&"%' order by time desc"
else
	sql="SELECT * FROM download order by time desc"
end if
rs.OPEN sql, Conn,1,1
rs.PageSize = RecordPerPage
Tol = rs.PageCount
		If Not(rs.EOF) Then
			rs.AbsolutePage = absPageNum
		End If
%>
<!--#include file="Manage_down_search.asp" -->
<table width="721" height="268" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="268" valign="top"> 
      <table border=1 cellpadding=3 cellspacing=0 style='border-collapse:collapse' bordercolor=#C0C0C0 width=100%>
        <tr> 
          <td width=100% height="28" align=right class=shadow2> 
            <%
for ppages=1 to rs.pagecount
if ppages=cint(absPageNum) then
%>
            <div align="center"><b><font color=red>[<%=ppages%>]</font></b> 
              <%
else
	if tpe="" then
%>
              <a href='Manage_down.asp?page=<%=ppages%>'>[<%=ppages%>]</a> 
              <%	elseif tpe<>"" then%>
              <a href='Manage_down.asp?type=<%=tpe%>&page=<%=ppages%>'>[<%=ppages%>]</a> 
              <%
	end if
end if
next
abcd=absPageNum+1
if abcd>=rs.pagecount then
	abcd=rs.pagecount
end if
%>
              <%if tpe="" then%>
              <a title='下一页' href='Manage_down.asp?page=<%=abcd%>'>[>]</a> 
              <%elseif tpe<>"" then%>
              <a title='下一页' href='Manage_down.asp?type=<%=tpe%>&page=<%=abcd%>'>[>]</a> 
              <%
end if
%>
            </div></td>
        </tr>
      </table>
      <%
if rs.eof and rs.bof then
	response.write "<p align='center'>无内容</p>"
else
For absRecordNum = 1 to rs.PageSize%>
      <table bgcolor=#bcbcbc border=1 cellpadding=3 cellspacing=0 style='border-collapse:collapse' bordercolor=#111111 width=100%>
        <tr> 
          <td width=50% colspan=2 class=shadow1><b> <a class=shadow1 href='../show.asp?id=<%=rs("id")%>' target=_blank><%=rs("name")%></a> 
            </b></td>
          <td width=50% colspan=2 align=right class=shadow2> <a class=shadow2 href='Manage_edit.asp?id=<%=rs("id")%>'>编辑</a> 
            ￤ <a class=shadow2 href='Manage_edit.asp?delete=<%=rs("id")%>'>删除</a> 
          </td>
        </tr>
        <tr> 
          <td width=15% bgcolor=#efefef align=center>更新日期</td>
          <td width=35% bgcolor=white><%=rs("time")%></td>
          <td width=15% bgcolor=#efefef align=center>程序类别</td>
          <td width=35% bgcolor=white><%=rs("big")%>┃<%=rs("sort")%> </td>
        </tr>
        <tr> 
          <td width=100% colspan=4 bgcolor=white style='table-layout: fixed; word-break: break-all; text-indent: 40; line-height: 130%'> 
            <%
kao=rs("show")
if len(kao)>20 then
	kao=left(kao,20) & "..."
	response.write kao
else
	response.write kao
end if
%>
          </td>
        </tr>
      </table>
      <br> 
      <%
rs.movenext
    If rs.EOF Then
		Exit For
	End If
Next
end if
%>
      <table border=1 cellpadding=3 cellspacing=0 style='border-collapse:collapse' bordercolor=#C0C0C0 width=100%>
        <tr> 
          <td width=100% align=right class=shadow2> 
            <%
for ppages=1 to rs.pagecount
if ppages=cint(absPageNum) then
%>
            <div align="center"><b><font color=red>[<%=ppages%>]</font></b> 
              <%
else
	if tpe="" then
%>
              <a href='Manage_down.asp?page=<%=ppages%>'>[<%=ppages%>]</a> 
              <%	elseif tpe<>"" then%>
              <a href='Manage_down.asp?type=<%=tpe%>&page=<%=ppages%>'>[<%=ppages%>]</a> 
              <%
	end if
end if
next
%>
              <%if tpe="" then%>
              <a title='下一页' href='Manage_down.asp?page=<%=abcd%>'>[>]</a> 
              <%elseif tpe<>"" then%>
              <a title='下一页' href='Manage_down.asp?type=<%=tpe%>&page=<%=abcd%>'>[>]</a> 
              <%
end if
%>
            </div></td>
        </tr>
      </table>
      <br> </td>
  </tr>
</table>
</td>
</tr> </table> 
<!-- #include file="../Inc/Foot.asp" -->