<!--#include file="Top.asp" -->
<%
GetErrInfo=" 【提示：下面是您创建的部落中,加入的文章,如果你认为文章不符合要求,可以退稿】"
IF CblogObj.GetRequest("ActIon")="quit" Then
	Dim ClassID,ClassNames
	ClassID=CblogObj.GetRequest("ID")
	ClassNames=CblogObj.GetRequest("ClassName")
	IF ISNUMERIC(ClassID) THEN
		Conn.execute ("Update Article Set Article_Bl=Null Where Article_ID="& ClassID &" And Article_Bl=(Select ClassName From Tb_BuoLuo Where UserID="&Session("UserID")&" And Bid=0 And ClassName='"& ClassNames &"')")
		'发短消息代码处！
		GetErrInfo="<div class=""doen"">【 操作成功提示:退掉文章成功！ 】</div>"
	Else
		GetErrInfo="<div class=""err"">【 操作失败提示：您的ID号错误!】</div>"
	End IF
End IF
%>
<table width="99%" border="0" align="center" cellpadding="5" cellspacing="0">
  <tr> 
    <td height="30" bgcolor="#FFFFFF"><table width="300" border="0" align="right" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="120" class="box3"> <div align="center"><a href="Article_GroupByBl.Asp">我创建的部落</a></div></td>
          <td>-</td>
          <td width="120" class="box3"> <div align="center"><a href="Article_GroupByAddBl.Asp">我加入的部落</a></div></td>
          <td>-</td>
          <td width="120" class="box3"> <div align="center"><a href="Article_GroupByBlList.Asp">部落文章管理</a></div></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td height="30" bgcolor="#FFFFFF" class="h1"><img src="img/GuestBook.gif" width="23" height="21"> 
      部落文章管理 
      <hr size="0"></td>
  </tr>
  <tr> 
    <td valign="top" bgcolor="#FFFFFF" class="h1"> <table width="100%" border="0" cellspacing="0" cellpadding="10">
        <tr> 
          <td class="box"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="2%" valign="middle"><img src="img/3.gif" width="16" height="16"></td>
                <td width="98%" valign="middle"><%=GetErrInfo%></td>
              </tr>
            </table></td>
        </tr>
        <tr height="5"> 
          <td height="5"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="2" cellspacing="1" class="box2">
        <tr bgcolor="#CCCCCC"> 
          <td width="23" height="20">&nbsp;</td>
          <td width="454"><strong>日志标题</strong></td>
          <td width="130"><strong>所属部落</strong></td>
          <td width="87"><strong>动作</strong></td>
        </tr>
        <form name="form1" method="post" action="Article_Del.Asp">
          <%
Dim WhereStr,ClassName,SqlStr,RsCount,ArticleArr
WhereStr="Where Article_Hid<>1 And Article_Bl In (Select ClassName From Tb_BuoLuo Where UserID="& Session("UserID") &" And Bid=0) "
ClassName=CBlogObj.QueryStringPage("ClassName",True)
if ClassName<>"" then 
	WhereStr=WhereStr&" and Article_Bl='"&ClassName&"'"
end if
SqlStr="select Article_ID,Article_Title,Article_Bl,User_ID from Article "&WhereStr&" order by Article_ID desc"
Set Rs = Server.CreateObject("Adodb.RecordSet")
Rs.open SqlStr,Conn, 1, 1
SqlCount=SqlCount+1
If rs.eof Then
	response.write("<tr><td height=25 colspan=5><div align=center>没有任何日志加入到您所创建的部落中！</div></td></tr>")
	RsCount=0
	MaxP=1
	Rs.Close:Set Rs=nothing
Else
	Rs.PageSize = 15
	MaxP=rs.PageCount
	rs.AbsolutePage=CblogObj.QueryPage
	RsCount=Rs.RecordCount
	ArticleArr = Rs.GetRows(15)
	Rs.Close:Set Rs=nothing
for iii=0 to Ubound(ArticleArr,2)
%>
          <tr class="tr2" onmouseover="this.className='tr1'" onmouseout="this.className='tr2'"> 
            <td><img src="img/page.gif" width="20" height="20"></td>
            <td><a href="<%=CblogObj.GetDir(ArticleArr(3,iii))%>/Show.Asp?/_articleid/<%=ArticleArr(0,iii)%>.html" target="_blank"><%=ArticleArr(1,iii)%></a></td>
            <td><a href="?ClassName/<%=ArticleArr(2,iii)%>.html"><%=ArticleArr(2,iii)%></a></td>
            <td> <a href="?Action=quit&id=<%=ArticleArr(0,iii)%>&ClassName=<%=ArticleArr(2,iii)%>">退掉此文章</a></td>
          </tr>
          <%
Next
End IF
%>
        </form>
        <tr class="tr2"> 
          <td height="30" colspan="4"> 
            <%CblogObj.PageList RsCount,CblogObj.QueryPage,15,20,false%>
          </td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF">&nbsp;</td>
  </tr>
  <tr bgcolor="#0066CC" height="2"> 
    <td height="2"></td>
  </tr>
</table>


<!--#include file="Foot.asp" -->
