📄 news_myfolder.asp
字号:
<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="lib/cls_main.asp" -->
<!--#include file="../../FS_Inc/Function.asp"-->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../FS_InterFace/NS_Function.asp" -->
<!--#include file="../../FS_Inc/Func_page.asp" -->
<%'Copyright (c) 2006 Foosun Inc. Code by Simpwind.Xie
Response.Buffer = True
Response.Expires = -1
Response.CacheControl = "no-cache"
Dim Conn,User_Conn
Dim CharIndexStr,strShowErr
Dim Fs_news,obj_news_rs,obj_news_rs_1,isUrlStr,str_Href,obj_cnews_rs,news_count,str_Href_title,str_action,str_ClassID,news_SQL
Dim obj_newslist_rs,newslist_sql,strpage,str_showTF,str_ClassID_1,str_Editor,str_Keyword,str_GetKeyword,str_ktype,tmp_draft
Dim select_count,select_pagecount,i,Str_GetPopID,Str_PopID,str_check,str_UrlTitle,icNum,str_addType,str_addType_1
Dim str_Rec,str_isTop,str_hot,str_pic,str_highlight,str_bignews,str_filt,str_Constr,str_Top,tmp_pictf,tmp_isRecyle
Dim str_s_classIDarray,tmp_splitarrey_id,tmp_splitarrey_Classid,tmp_i,str_Move_type,str_t_classID,C_NewsIDarrey,Tmp_rs,Tmp_TF_Rs
Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo
int_RPP=20'设置每页显示数目
int_showNumberLink_=8 '数字导航显示数目
showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1
str_nonLinkColor_="#999999" '非热链接颜色
toF_="<font face=webdings title=""首页"">9</font>" '首页
toP10_=" <font face=webdings title=""上十页"">7</font>" '上十
toP1_=" <font face=webdings title=""上一页"">3</font>" '上一
toN1_=" <font face=webdings title=""下一页"">4</font>" '下一
toN10_=" <font face=webdings title=""下十页"">8</font>" '下十
toL_="<font face=webdings title=""最后一页"">:</font>"
MF_Default_Conn
MF_User_Conn
MF_Session_TF
'权限判断
'Call MF_Check_Pop_TF("NS_Class_000001")
'得到会员组列表
set Fs_news = new Cls_News
Fs_News.GetSysParam()
If Not Fs_news.IsSelfRefer Then response.write "非法提交数据":Response.end
if Request("Action") = "signDel" then
if fs_news.ReycleTF = 1 then
Conn.execute("Update FS_NS_News set isRecyle = 1 where NewsID='"& NoSqlHack(Request.QueryString("NewsID"))&"'")
strShowErr = "<li>"& Fs_news.allInfotitle &"已经删除</li><li>"& Fs_news.allInfotitle &"已经临时放到回收站中</li>"
Else
strShowErr = "<li>"& Fs_news.allInfotitle &"已经彻底删除</li>"
Conn.execute("Delete From FS_NS_News where NewsID='"& NoSqlHack(Request.QueryString("NewsID"))&"'")
'删除浏览权限新闻，以防产生垃圾信息
Conn.execute("Delete From FS_MF_POP where InfoID='"& NoSqlHack(Request.QueryString("NewsID"))&"' and PopType='NS'")
End if
'删除静态文件
'******************保留
Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
Response.end
End if
if Request("Action") = "draftDel" then
strShowErr = "<li>"& Fs_news.allInfotitle &"已经彻底删除</li>"
Conn.execute("Delete From FS_NS_News where NewsID='"& NoSqlHack(Request.QueryString("NewsID"))&"'")
Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
Response.end
End if
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新闻管理___Powered by foosun Inc.</title>
<link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
<tr class="hback">
<td width="100%" class="xingmu"><a href="#" onMouseOver="this.T_BGCOLOR='#404040';this.T_FONTCOLOR='#FFFFFF';return escape('<div align=\'center\'>FoosunCMS4.0<br> Code by Simpwind.Xie <BR>Copyright (c) 2006 Foosun Inc</div>')" class="sd"><strong>我的工作目录</strong></a><a href="../../help?Lable=NS_News_MyFolder" target="_blank" style="cursor:help;'" class="sd"><img src="../Images/_help.gif" border="0"></a>
</td>
</tr>
<tr>
<td height="18" class="hback"><div align="left"><img src="../Images/all_article_icon.gif" width="11" height="10" border="0"> <a href="News_MyFolder.asp" 您所有的文章都在这里>所有<% = Fs_news.allInfotitle %>
</a> ┆<img src="../Images/draft_icon.gif" width="10" height="9"> <a href="News_MyFolder.asp?Action=draft" title="草稿箱里最多放20篇<% = Fs_news.allInfotitle %>在这里">草稿夹</a> ┆<img src="../Images/recycle_icon.gif" width="10" height="11"> <a href="News_MyFolder.asp?Action=reycle">回收站</a> ┆<a href="Class_add.asp?ClassID=<%=Request.QueryString("classid")%>&Action=add">创建栏目</a> ┆<a href="News_add.asp?ClassID=<%=Request.QueryString("classid")%>"> 创建<% = Fs_news.allInfotitle %>
</a> </div></td>
</tr>
</table>
<%if Request.QueryString("ClassId")<>"" then%>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
<tr>
<td class="hback"> 位置导航：<A href="News_Manage.asp">全部新闻</a>
<%response.write fs_news.navigation(NoSqlHack(Request.QueryString("ClassID")))%></td>
</tr>
</table>
<%end if%>
<%
If NoSqlHack(Trim(Request.QueryString("classid"))) <> "" Then
str_ClassID_1 = NoSqlHack(Trim(Request.QueryString("classid")))
Else
str_ClassID_1 = 0
End If
Set obj_news_rs = server.CreateObject(G_FS_RS)
news_SQL = "Select Orderid,id,ClassID,ClassName,ClassEName,IsUrl,AddNewsType from FS_NS_NewsClass where Parentid = '" & str_ClassID_1 & "' and ReycleTF=0 Order by Orderid desc,ID desc"
obj_news_rs.Open news_SQL,Conn,1,3
if fs_news.addNewsType = 1 then str_addType_1 ="News_add.asp":else:str_addType_1 ="News_add_Conc.asp":end if
IF Not obj_news_rs.Eof Then
With Response
.Write "<table width=""98%"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""1"" class=""table"">"
.Write "<tr class=""hback"">"
.Write "<td>"
.Write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"">"
.Write "<tr>"
End With
icNum = 0
Do while Not obj_news_rs.eof
if obj_news_rs("AddNewsType") =1 then
str_addType = "News_add.asp"
Else
str_addType ="News_add_Conc.asp"
End if
if obj_news_rs("IsUrl") = 1 then
isUrlStr = "(<span class=""tx"">外</span>)"
str_Href = ""
str_Href_title = ""& obj_news_rs("ClassName") &""
Else
isUrlStr = ""
str_Href = "<a href="& str_addType &"?ClassID="&obj_news_rs("ClassID")&"><img src=""../images/add.gif"" border=""0"" alt=""添加"& Fs_news.allInfotitle &"""></a>"
str_Href_title = "<a href=""News_MyFolder.asp?ClassID="& obj_news_rs("ClassID") &"&Action="& Request.QueryString("Action")&""" title=""点击进入下一级栏目"">"& obj_news_rs("ClassName") &"</a>"
End if
Set obj_news_rs_1 = server.CreateObject(G_FS_RS)
obj_news_rs_1.Open "Select Count(ID) from FS_NS_NewsClass where ParentID='"& obj_news_rs("ClassID") &"'",Conn,1,1
if obj_news_rs_1(0)>0 then
str_action= "<img src=""images/+.gif""></img>"& str_Href_title &""
Else
str_action= "<img src=""images/-.gif""></img>"& str_Href_title &""
End if
obj_news_rs_1.close:set obj_news_rs_1 =nothing
'得到新闻数量
if obj_news_rs("IsUrl") = 0 then
Set obj_cnews_rs = server.CreateObject(G_FS_RS)
obj_cnews_rs.Open "Select ID from FS_NS_News where ClassID='"& obj_news_rs("ClassID") &"' and isRecyle=0 and Editor='"& session("Admin_Name") &"' ",Conn,1,1
obj_cnews_rs.close:set obj_cnews_rs = nothing
Else
news_count = ""
End if
Response.Write"<td height=""22"">"
Response.Write str_action&isUrlStr&"("&str_Href&")"
Response.Write "</td>"
obj_news_rs.MoveNext
icNum = icNum + 1
if icNum mod 5 = 0 then
Response.Write("</tr><tr>")
End if
loop
Response.Write "</tr>"
Response.Write "</table></td>"
Response.Write "</tr>"
Response.Write "</table>"
End If
%>
<%
strpage=request("page")
if len(strpage)=0 Or strpage<1 or trim(strpage)=""Then:strpage="1":end if
if Trim(Request.QueryString("Action")) = "draft" then:tmp_draft = " and isdraft=1 and isRecyle=0":Else:tmp_draft = "":End if
if Trim(Request.QueryString("Action")) = "reycle" then:tmp_isRecyle = " and isRecyle=1":Else:tmp_isRecyle = "":End if
if Trim(Request.QueryString("ClassID")) <>"" then:str_ClassID = " and ClassID='"& Request.QueryString("Classid")&"'":Else:str_ClassID = "":End if
newslist_sql = "Select ID,NewsID,PopID,ClassID,NewsTitle,IsURL,isPicNews,URLAddress,Editor,Hits,NewsProperty,isLock,isdraft,isRecyle,addtime,author,source from FS_NS_News where Editor='"& session("Admin_Name")&"' "& tmp_draft & tmp_isRecyle & str_ClassID &" Order by PopID desc,addtime desc,ID desc"
Set obj_newslist_rs = Server.CreateObject(G_FS_RS)
obj_newslist_rs.Open newslist_sql,Conn,1,1
%>
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
<form name="myForm" method="post" action="News_Manage.asp">
<tr class="xingmu">
<td colspan="2" class="xingmu"> <div align="center"> </div>
<div align="center">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -