all_list.asp

商机网站8.0,比教完整,可以自己二次开发!

<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="head.asp"-->
<!--#include file="char.asp"-->
<script language="javascript">
function CheckAll(form)  {
  for (var i=0;i<form.elements.length;i++)    {
    var e = form.elements[i];
    if (e.name != 'chkall')       e.checked = form.chkall.checked; 
   }
  }
</script>  
<%
Abid=request("bid")
Asid=request("sid")
if request("bid")<>0 then
set rs = server.CreateObject ("Adodb.recordset")
sql="select * from big where bid="& cstr(request("bid"))
rs.open sql,conn,1,1
bname=rs("bname")
rs.close
end if
if request("sid")<>0 then
set rs = server.CreateObject ("Adodb.recordset")
sql="select * from small where sid="& request("sid")
rs.open sql,conn,1,1
sname=rs("sname")
rs.close
end if
%>
<table width="100%" border="0" cellspacing="3" cellpadding="3"><tr><td height="20">当前位置：<a href=ADMIN/main.asp>管理首页</a> >> <a href=all_list.asp?bid=<%=request("bid")%>&sid=0><%=bname%></a> <%if request("sid")<>0 then%> >> <a href=all_list.asp?bid=<%=request("bid")%>&sid=<%=request("sid")%>><%=sname%><%end if%></a></td></tr></table>
<table width="95%" cellspacing="1" cellpadding="5" bgcolor=#999999 align=center>
 <form action=ADMIN/admin_site.asp?action=alldel method=post name=alldel>
  <tr bgcolor=#cccccc><td colspan=8><center><b>所有商业信息列表</b></td></tr>
  <tr bgcolor=#ffffff><td colspan=8 height=20><%if request("sid")=0 then%>〖<a href=fastadd.asp?bid=<%=request("bid")%>&sid=<%=request("sid")%>><font color=#cc0000>添加商业信息</font></a>〗<%else%>〖<a href=fastadd.asp?bid=<%=request("bid")%>&sid=<%=request("sid")%>><font color=#cc0000>添加商业信息</font></a>〗<%end if%></td></tr>
  <tr bgcolor=#ffcc00 align=center><td width=2%><a href=all_list.asp?bid=<%=request("bid")%>&sid=<%=request("sid")%>&action=batch><img src=ADMIN/folder.gif border=0></a></td><td width=12%><b>商业信息名称</td><td width=40%><b>
	商业信息介绍</td><td width=7%><b>站长</td><td width=11%><b>时间</td><td width=5%>　</td><td width=5%>　</td><td width=15%>　</td></tr>
<%
dim pagecount,page,Spage,Epage,recordcount,i
page = request.querystring("page")
if page = "" or IsNull(page) then page = 1
if not IsNumeric(page) then page = 1
page = Cint(page)
set rs = server.CreateObject ("Adodb.recordset")
if request("sid")=0 then
sql="select * from [site] where bid="&Abid&" and sid=0 order by addtime desc"
elseif request("sid")<>"" then
sql="select * from [site] where bid="&Abid&" and sid="&Asid&" order by addtime desc"
end if
rs.open sql,conn,1,1
recordcount = RS.RecordCount
RS.PageSize = PAGESIZE
pagecount = RS.PageCount
if page < 1 then
    page = 1
elseif page > pagecount then
    page = pagecount
end if
if RS.EOF  then
    Response.Write("<tr bgcolor=#ffffff><td colspan=8 height=20><center><br><font color=red>目前还没有商业信息网</font></td></tr>")
else
  if recordcount > 0 then RS.AbsolutePage = page
  for i = 1 to PAGESIZE
  if RS.EOF then exit for
%>
<tr bgcolor=#eeeeee>
   <td><%if request("action")="batch" then%><input type=checkbox name=id value=<%=rs("id")%>><%else%><img src=ADMIN/folder.gif><%end if%></td>
   <td><a class=list href=<%=rs("siteurl")%> target=_blank><%=rs("sitename")%></a>[<font color=blue><%=rs("id")%></font>]</td>
   <td><%=rs("sitecontent")%><br><font color=999999>[点击：<%=rs("hits")%> | 投票：<%=rs("vote")%> | 报告：<%=rs("stopnum")%>]</font></td>
   <td><center><a href=mailto:<%=rs("siteemail")%>><%=rs("sitemaster")%></a></td>
   <td><center><%=rs("addtime")%></td>
   <td>　</td>
   <td>　</td>
   <td>　</td>
    </tr>
<%
RS.MoveNext()
next
end if
%>
<%if request("action")="batch" then%><tr bgcolor=ffffff><td colspan=8><input type=checkbox name=chkall value=on onclick="CheckAll(this.form)">全选/取消  
<input type=submit name=Submit value=批量删除  onclick="{if(confirm('您确定要删除这些商业信息吗?')){this.document.alldel.submit();return true;}return false;}"></td></tr><%end if%>
</form></table>



<%
if pagecount > 0 then
    response.write("<table width=""95%"" align=center cellspacing=3 cellpadding=3><tr><td align=right>")
    response.write("页次：<font color=red><b>" & page & "</font>/" & pagecount & "</b>&nbsp;&nbsp;每页<b>" & pagesize & "</b>&nbsp;&nbsp;共<b>" & recordcount & "</b>个178商机网&nbsp;&nbsp;分页：")
    Spage = page mod PARTSIZE
    if page > PARTSIZE then
        if Spage = 0 then Spage = PARTSIZE
        Spage = page - Spage + 1
    else
        Spage = 1
    end if
    Epage = Spage + PARTSIZE - 1
    if Epage > pagecount then Epage = pagecount
    if page > PARTSIZE then
        response.write("<a href=""all_list.asp?bid=" & Abid & "&sid=" & Asid & "&page=" & Spage - 1 & """>[<<]</a>")
    end if
    for i = Spage to Epage
        if i = page then
            response.write("[<font color=red><b>" & i & "</b></font>]")
        else
            response.write("[<a href=""all_list.asp?bid=" & Abid & "&sid=" & Asid & "&page=" & i & """>" & i & "</a>]")
        end if
    next
    if Epage < pagecount then
        response.write("<a href=""all_list.asp?bid=" & Abid & "&sid=" & Asid & "&page=" & Epage + 1 & """>[>>]</a>")
    end if
    if Spage <> 1 then response.write("[<a href=""all_list.asp?bid=" & Abid & "&sid=" & Asid & "&page=1"">首页</a>]")
    if Epage <> pagecount then response.write("[<a href=""all_list.asp?bid=" & Abid & "&sid=" & Asid & "&page=" & pagecount & """>尾页</a>]")
    response.write("</td></tr></table><br>")    
end if
rs.close
set rs=nothing
%>