news_myfolder.asp

后台目录:qwbAdmin/Login.asp 登陆用户名:admin 登陆密码:admin

          <% =  Fs_news.allInfotitle %>
          标题</div></td>
      <td width="12%" class="xingmu"><div align="center">状态</div></td>
      <td width="7%" class="xingmu"><div align="center">审核</div></td>
      <td width="30%" class="xingmu"><div align="center">操作</div></td>
    </tr>
    <%
		if obj_newslist_rs.eof then
			   obj_newslist_rs.close
			   set obj_newslist_rs=nothing
			   Response.Write"<TR  class=""hback""><TD colspan=""7""  class=""hback"" height=""40"">没有"& Fs_news.allInfotitle &"。</TD></TR>"
		else
			   str_showTF = 1
				obj_newslist_rs.PageSize=int_RPP
				cPageNo=NoSqlHack(Request.QueryString("Page"))
				If cPageNo="" Then cPageNo = 1
				If not isnumeric(cPageNo) Then cPageNo = 1
				cPageNo = Clng(cPageNo)
				If cPageNo<=0 Then cPageNo=1
				If cPageNo>obj_newslist_rs.PageCount Then cPageNo=obj_newslist_rs.PageCount 
				obj_newslist_rs.AbsolutePage=cPageNo
				for i=1 to obj_newslist_rs.pagesize
					if obj_newslist_rs.eof Then exit For 
						Str_GetPopID = obj_newslist_rs("PopID")
						if Str_GetPopID = 5 then
							Str_PopID = "<IMG Src=""images/newstype/5.gif"" border=""0"" alt=""总置顶"& Fs_news.allInfotitle &",点击查看简洁内容"">"
							str_Top = "<a href=News_Manage.asp?NewsID="& obj_newslist_rs("NewsID")&"&Action=signUnTop  onClick=""{if(confirm('确定解除总固顶吗？')){return true;}return false;}"">解固</a>"
						Elseif Str_GetPopID = 4 then
							Str_PopID = "<IMG Src=""images/newstype/4.gif"" border=""0"" alt=""栏目置顶"& Fs_news.allInfotitle &",点击查看简洁内容"">"
							str_Top = "<a href=News_Manage.asp?NewsID="& obj_newslist_rs("NewsID")&"&Action=signUnTop  onClick=""{if(confirm('确定解除栏目固顶吗？')){return true;}return false;}"">解固</a>"
						Elseif Str_GetPopID = 3 then
							Str_PopID = "<IMG Src=""images/newstype/3.gif"" border=""0"" alt=""总推荐"& Fs_news.allInfotitle &",点击查看简洁内容"">"
							str_Top = "<a href=News_Manage.asp?NewsID="& obj_newslist_rs("NewsID")&"&Action=signTop  onClick=""{if(confirm('确定固顶吗？')){return true;}return false;}"">固顶</a>"
						Elseif Str_GetPopID = 2 then
							Str_PopID = "<IMG Src=""images/newstype/2.gif"" border=""0"" alt=""栏目推荐"& Fs_news.allInfotitle &",点击查看简洁内容"">"
							str_Top = "<a href=News_Manage.asp?NewsID="& obj_newslist_rs("NewsID")&"&Action=signTop onClick=""{if(confirm('确定固顶吗？')){return true;}return false;}"">固顶</a>"
						Elseif Str_GetPopID = 0 then
							Str_PopID = "<IMG Src=""images/newstype/0.gif"" border=""0"" alt=""一般"& Fs_news.allInfotitle &",点击查看简洁内容"">"
							str_Top = "<a href=News_Manage.asp?NewsID="& obj_newslist_rs("NewsID")&"&Action=signTop onClick=""{if(confirm('确定固顶吗？')){return true;}return false;}"">固顶</a>"
						End if
						if obj_newslist_rs("isUrl") = 1 then
							str_UrlTitle = "<a href="""& obj_newslist_rs("URLAddress") &""" target=""_blank""><Img src=""../images/folder/url.gif"" border=""0"" alt=""标题新闻,点击转到标题地址""></img></a>"
						Else
							str_UrlTitle = ""
							if obj_newslist_rs("isPicNews") = 1 then
								tmp_pictf="<a href=""javascript:m_PicUrl('News_Pic_Modify.asp?NewsID="&obj_newslist_rs("NewsID")&"')""><Img src=""../images/folder/img.gif"" alt=""图片新闻,点击更改图片"" border=""0""></img></a>"
							else
								tmp_pictf="<Img src=""../images/folder/folder_1.gif"" alt=""文字新闻""></img>"
							end if
						end if
	%>
    <tr> 
      <td width="6%" height="18" class="hback" id=item$pval[CatID]) style="CURSOR: hand"  onmouseup="opencat(M_Newsid<% = obj_newslist_rs("ID")%>);"  language=javascript><% = Str_PopID %></td>
      <td width="45%" class="hback"> <% = str_UrlTitle %> <% = tmp_pictf %> <a href="News_edit.asp?NewsID=<% = obj_newslist_rs("NewsID")%>&ClassID=<% = obj_newslist_rs("ClassID")%>" title="添加日期：<% = obj_newslist_rs("addtime")%>"> 
        <% = GotTopic(obj_newslist_rs("Newstitle"),50)%>
        </a></td>
      <td class="hback"> <div align="center"><%
	  if obj_newslist_rs("isRecyle")=1 then
	  	Response.Write("<span class=""tx"">回收站</span>")
	  Elseif obj_newslist_rs("isRecyle")=0 and obj_newslist_rs("isdraft")=1 then
	  	Response.Write("草稿箱")
	  End if
	  if obj_newslist_rs("isRecyle")=0 and obj_newslist_rs("isdraft")=0 then
	  	response.Write("正常"& Fs_news.allInfotitle &"")
	  End if
	  %></div></td>
      <td class="hback"><div align="center"> 
          <%if obj_newslist_rs("isLock")=1 then response.Write"<a href=""News_Manage.asp?NewsID="& obj_newslist_rs("NewsId") &"&Action=singleCheck"" onClick=""{if(confirm('确定通过审核吗？')){return true;}return false;}""><span class=""tx""><b>×</b></span></a>":else response.Write"<a href=""News_Manage.asp?NewsID="& obj_newslist_rs("NewsId") &"&Action=singleUnCheck"" onClick=""{if(confirm('确定锁定吗？')){return true;}return false;}""><b>√</b></a>"%>
        </div></td>
      <td class="hback"><div align="center"> 
          <%if obj_newslist_rs("isRecyle")=1 then%>
          <a href="News_Recyle.asp">回收站</a>
		<%Elseif obj_newslist_rs("isdraft")=1 then%>
          <a href="News_edit.asp?NewsID=<% = obj_newslist_rs("NewsID")%>&ClassID=<% = obj_newslist_rs("ClassID")%>">修改</a>｜<a href="News_MyFolder.asp?NewsID=<% = obj_newslist_rs("NewsID")%>&Action=draftDel"  onClick="{if(confirm('确定要删除吗？')){return true;}return false;}">删除</a> 
		  <%Else%>
          <a href="News_edit.asp?NewsID=<% = obj_newslist_rs("NewsID")%>&ClassID=<% = obj_newslist_rs("ClassID")%>">修改</a>｜<a href="News_MyFolder.asp?NewsID=<% = obj_newslist_rs("NewsID")%>&Action=signDel"  onClick="{if(confirm('确定要删除吗？\n\n如果你在系统参数设置中设置删除<% =  Fs_news.allInfotitle %>到回收站\n<% =  Fs_news.allInfotitle %>将删除到回收站中!\n必要时候可还原')){return true;}return false;}">删除</a> 
          <%End if%>
        </div></td>
    </tr>
    <tr id="M_Newsid<% = obj_newslist_rs("ID")%>" style="display:none"> 
      <td height="35" colspan="5" class="hback"> <table width="100%" border="0" cellspacing="1" cellpadding="2" class="table">
          <tr class="hback"> 
            <td width="45%" height="20" class="hback"><font style="font-size:12px"> 
              <% =  Fs_news.allInfotitle %>
              类型： 
              <%
		if  split(obj_newslist_rs("NewsProperty"),",")(0) then Response.Write("荐｜")
		if  split(obj_newslist_rs("NewsProperty"),",")(1) then Response.Write("滚｜")
		if  split(obj_newslist_rs("NewsProperty"),",")(2) then Response.Write("评｜")
		if  split(obj_newslist_rs("NewsProperty"),",")(3) then Response.Write("稿｜")
		if  split(obj_newslist_rs("NewsProperty"),",")(4) then Response.Write("远图｜")
		if  split(obj_newslist_rs("NewsProperty"),",")(5) then Response.Write("头｜")
		if  split(obj_newslist_rs("NewsProperty"),",")(6) then Response.Write("热｜")
		if  split(obj_newslist_rs("NewsProperty"),",")(7) then Response.Write("精｜")
		if  split(obj_newslist_rs("NewsProperty"),",")(8) then Response.Write("规｜")
		if  split(obj_newslist_rs("NewsProperty"),",")(9) then Response.Write("公｜")
		if  split(obj_newslist_rs("NewsProperty"),",")(10) then Response.Write("幻｜")
		%>
              </font></td>
            <td width="22%" class="hback"><font style="font-size:12px">日期： 
              <% = obj_newslist_rs("addtime")%>
              </font></td>
            <td width="14%" class="hback"><font style="font-size:12px">作者： 
              <% = obj_newslist_rs("author")%>
              </font></td>
            <td width="19%" class="hback"><font style="font-size:12px">来源： 
              <% = obj_newslist_rs("source")%>
              </font></td>
          </tr>
        </table></td>
    </tr>
    <%
			  obj_newslist_rs.MoveNext
		  Next
	%>
  </form>
  <tr> 
    <td height="18" colspan="5" class="hback"> <table width="98%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="79%" colspan="2" align="right"> <%
			response.Write "<p>"&  fPageCount(obj_newslist_rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)
		End if
	%> </td>
        </tr>
      </table></td>
  </tr>
</table>
<script language="javascript" type="text/javascript" src="../../FS_Inc/wz_tooltip.js"></script>
</body>
</html>
<%
set Fs_news = nothing
%>
<script language="JavaScript" type="text/JavaScript" src="js/Public.js"></script>
<script language="JavaScript" type="text/JavaScript">
function opencat(cat)
{
  if(cat.style.display=="none"){
     cat.style.display="";
  } else {
     cat.style.display="none"; 
  }
}
function SelectAllClass(){
  for(var i=0;i<document.form_m.s_Classid.length;i++){
    document.form_m.s_Classid.options[i].selected=true;}
}
function UnSelectAllClass(){
  for(var i=0;i<document.form_m.s_Classid.length;i++){
    document.form_m.s_Classid.options[i].selected=false;}
}

function CheckAll(form)  
  {  
  for (var i=0;i<form.elements.length;i++)  
    {  
    var e = myForm.elements[i];  
    if (e.name != 'chkall')  
       e.checked = myForm.chkall.checked;  
    }  
	}
function m_PicUrl(gotoURL) {
	   var open_url = gotoURL;
	   window.open(open_url,'','status=0,directories=0,resizable=0,toolbar=0,location=0,scrollbars=1,width=550,height=480');
}
</script>
<!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->