[ÇóÖú]Êý¾Ý¿âÊý¾ÝÑ­»·ÏÔʾµÄͬʱ´ÓµÚÒ»Ìõ¼Ç¼¿ªÊ¼TRÑÕÉ«½»Ìæ±ä»¯

ìÅÒ¹

ºìÉ«²¿·ÖΪÊý¾ÝÑ­»·£¬Ò²¼´´ÓµÚÒ»ÐпªÊ¼½»Ìæ³öÏÖ£¬²»Êǵã¸èÈËÄÇÒ»ÐпªÊ¼±äÉ«£¡

<!--#include file="inc.asp"-->
<!--#include file="qq_dgconn.asp"-->
<script language="JavaScript" type="text/JavaScript">
function checkclick(msg){if(confirm(msg)){event.returnValue=true;}else{event.returnValue=false;}}
</script>
<script language="JavaScript" type="text/javascript" for="checkbox" event="onclick">
tr_bgcolor(this);
</script>
<script language="JavaScript" type="text/javascript">
<!--
function tr_bgcolor(c){
    var tr = c.parentNode.parentNode;
    tr.rowIndex % 2 == 0 ? tr.style.backgroundColor = c.checked ? '#eee' : '' : tr.style.backgroundColor = c.checked ? '#eee' : '';
}
function selall(obj){
    for (var i=0; i<obj.form.elements.length; i++)
    if (obj.form.elements[i].type == 'checkbox' && obj.form.elements[i] != obj){
        obj.form.elements[i].checked = obj.checked;
        tr_bgcolor(obj.form.elements[i]);
    }
}
//-->
</script>  
<%
If bbs94kk.myadmin<>9 Then
Response.Write"<script>alert('¶Ô²»Æð£¬Äú²»ÊǹÜÀíÔ±£¬²»ÄܽøÈ룡');history.go(-1);</script>"
end if
bbs94kk.head("¹ÜÀíµã¸èÁбí")
dim sql,rs,i,page_count,Pcount,totalrec,mytotalrec,currentPage,Content
totalrec=connDG.execute("select count(id) from media")(0)
mytotalrec=connDG.execute("select count(id) from media where incept='"&bbs94kk.myname&"' or incept='È«Ìå»áÔ±'")(0)
Content=Content&"<table border='0' cellpadding=0 cellspacing=0 align=center width='100%'><tr height='25'><td width='33.3%' align=center><a href=qq_dglistall.asp>ËùÓеã¸èÁбí</a></td><td width='33.3%' align=center><a href=qq_dglistme.asp>Îҵĵã¸èÁбí</a></td><td width='33.3%' align=center><a href=qq_dgwrite.asp>ÎÒÒªµã¸è</a></td></tr>"&_
"<tr><td align=center valign=middle colspan='3'><a href=qq_dglistall.asp><b>ÂÛ̳×ܵã¸èÁбí</b></a>Çåµ¥¹²ÓÐ[<font color=red><b>"&totalrec&"</b></font>]¸ö,ÆäÖÐ<a href=qq_dglistme.asp>[<b>"&bbs94kk.myname&"</b>]</a>µÄ×£¸£Çåµ¥¹²ÓÐ[<font color=red><b>"&mytotalrec&"</b></font>]¸ö¡£<font color=green><Ö±½Óµã»÷¸èÃûÐÀÉÍ></font></td></tr></table><br>"&_
"<form name='kk' method='POST' action='qq_dgdel.asp?Action=DelOptFile'><table border='1' cellpadding=0 cellspacing=0 align=center width='100%'><tr height='25'><td colspan=7 style='border-top:1px #cccccc;' align=center>--== ÂÛ̳µã¸ę̀-¹ÜÀíµã¸èÁбí ==--</td></tr><tr><td width='10%' height='22' align=center>µã¸èÈË</td><td width='10%' height='22' align=center>¶Ô·½ÐÕÃû</td><td width='15%' height='22' align=center>¸èÃû</td><td width='16%' height='22' align=center>ʱ¼ä</td><td width=* height='22' align='center'>×£¸£Óï</td><td width='10%' height='22' align=center colspan='2'>²Ù×÷</td></tr>"
set rs=server.createobject("adodb.recordset")
sql="select * from media Order By sendtime Desc"
rs.open sql,connDG,1,1
if rs.eof and rs.bof then
currentpage=0
Content=Content&"<tr><td valign=middle colspan=7>µ±Ç°Ã»Óеã¸èÁбí</td></tr>"
else
currentPage=request.querystring("page")
if currentpage="" or isNumeric(currentpage) = 0 then
currentpage=1
else
currentpage=clng(currentpage)
if err then
currentpage=1
err.clear
end if
end if
rs.PageSize = 10
rs.AbsolutePage=currentpage
page_count=0
totalrec=rs.recordcount
while (not rs.eof) and (not page_count = rs.PageSize)
Content=Content&"<tr><td align=center valign=middle><a href='userinfo.asp?name="&rs("sender")&"'><font color=blue>"&rs("sender")&"</font></a></td><td align=center valign=middle>"
if trim(rs("incept"))<>"È«Ìå»áÔ±" then
Content=Content&"<a href='userinfo.asp?name="&rs("incept")&"')><font color=#CC66FF>"&rs("incept")&"</font></a>"
else
Content=Content&"<font color=olive>"&rs("incept")&"</font>"
end if
Content=Content&"</td><td align=center valign=middle><a href='qq_dgplay.asp?url="&replace(rs("url"),chr(32),"%20",1)&"&medianame="&replace(rs("medianame"),chr(32),"%20")&"' target=_blank>"&rs("medianame")&"</a></td><td align=center valign=middle>"&rs("sendtime")&"</td><td align=left valign=middle>"&rs("content")&"</td><td align=center valign=middle><a href=qq_admindgedit.asp?id="&rs("id")&">[±à¼­]</a></td><td align=center valign=middle><input type=checkbox name='checkbox' value="&rs("id")&"></td></tr>"
page_count = page_count + 1
rs.movenext
wend
end if
Content=Content&"</table>"
Content=Content&"<table border='0' cellpadding='0' cellspacing='0' align=center width='100%'><tr height='25'><td align=center><input type=checkbox name='selectall' onclick='selall(this)'> È«Ñ¡  <input class='button' value='ɾ³ýËùÑ¡' type='button'  onclick=""if(confirm('ɾ³ýºó½«²»Äָܻ´£¡ÄúÈ·¶¨ÒªÉ¾³ýÂð£¿'))form.submit()"" /></FORM></td></tr></table>"
dim endpage
Pcount=rs.PageCount
Content=Content&"<table border=0 cellpadding=0 cellspacing=0 Width='100%' align=center><tr><td valign=middle nowrap>Ò³´Î£º<b>"&currentpage&"</b>/<b>"&Pcount&"</b>ҳÿҳ<b>10</b>Ìõ¹²ÓÐ<b>"&totalrec&"</b>Ìõµã¸è</td><td valign=middle nowrap><div align=right><p>·ÖÒ³£º"
if currentpage > 4 then
Content=Content&"<a href=""?page=1"">[1]</a> ..."
end if
if Pcount>currentpage+3 then
endpage=currentpage+3
else
endpage=Pcount
end if
for i=currentpage-3 to endpage
if not i<1 then
if i = clng(currentpage) then
Content=Content&"<font color=red>["&i&"]</font>"
else
Content=Content&"<a href=""?page="&i&""">["&i&"]</a>"
end if
end if
next
if currentpage+3 < Pcount then
Content=Content&"... <a href=""?page="&Pcount&""">["&Pcount&"]</a>"
end if
Content=Content&"</p></div></font></td></tr></table>"
Call BBS94KK.ShowTable("¹ÜÀíµã¸èÁбí",Content)
rs.close
set rs=nothing
call CloseDB()
bbs94kk.footer()
%>

¡î¶ÀÎÇ¡î

Äܲ»ÄܸæÖªÎÒÉϱߵĴúÂëÔõô¸Äѽ£¬µÈ¡­¡­

~~¾«ÁéС½ã$

ÆäʵʹÓÃasp½øÐÐÆæÊýºÍżÊýµÄÅжÏÒ²¿ÉÒÔ×öµ½£¬²»ÐèҪʹÓÃjs×ö
<%
i=0
if (i mod 2)=0 then
color="red"
end if
%>
<tr><td bgcolor="<%=color%>"></td></tr>
<%i=i+1%>