📄 newslist.asp
字号:
var MaxIndex=0,ObjInArray=false,EndIndex=0,ElIndex=-1;
for (i=0;i<ListObjArray.length;i++)
{
if (ListObjArray[i].Selected==true)
{
if (ListObjArray[i].Index>=MaxIndex) MaxIndex=ListObjArray[i].Index;
}
if (el==ListObjArray[i].Obj)
{
ObjInArray=true;
ElIndex=i;
EndIndex=ListObjArray[i].Index;
}
}
if (ElIndex>MaxIndex)
{
if (MaxIndex>0)
for (i=MaxIndex-1;i<EndIndex;i++)
{
ListObjArray[i].Obj.className='TempletSelectItem';
ListObjArray[i].Selected=true;
}
else
{
ListObjArray[ElIndex].Obj.className='TempletSelectItem';
ListObjArray[ElIndex].Selected=true;
}
}
else
{
if (ObjInArray)
{
for (i=EndIndex;i<MaxIndex-1;i++)
{
ListObjArray[i].Obj.className='TempletSelectItem';
ListObjArray[i].Selected=true;
}
if (ElIndex>=0)
{
ListObjArray[ElIndex].Obj.className='TempletSelectItem';
ListObjArray[ElIndex].Selected=true;
}
}
}
}
}
else
{
for (i=0;i<ListObjArray.length;i++)
{
if (el==ListObjArray[i].Obj)
{
ListObjArray[i].Obj.className='TempletSelectItem';
ListObjArray[i].Selected=true;
}
else
{
ListObjArray[i].Obj.className='TempletItem';
ListObjArray[i].Selected=false;
}
}
}
}
function IntialListObjArray()
{
var CurrObj=null,j=1;
for (var i=0;i<document.all.length;i++)
{
CurrObj=document.all(i);
if (CurrObj.ContentID!=null)
{
ListObjArray[ListObjArray.length]=new NewsOrDownLoadObj(CurrObj,j,false);
j++;
}
}
}
function NewsOrDownLoadObj(Obj,Index,Selected)
{
this.Obj=Obj;
this.Index=Index;
this.Selected=Selected;
}
function PreviewNews()
{
var SelectedContent='',SelectedTF=false;
for (i=0;i<ListObjArray.length;i++)
{
if (ListObjArray[i].Selected==true)
{
SelectedTF=true;
window.open('Read.asp?Table=FS_News&ID='+ListObjArray[i].Obj.ContentID);
}
}
if (!SelectedTF) alert('请选择要预览的内容!');
}
function RefreshNews()
{
location='RefreshFile.asp';
}
function DelContent()
{
var SelectedNews='';
for (i=0;i<ListObjArray.length;i++)
{
if (ListObjArray[i].Selected==true)
{
if ((ListObjArray[i].Obj.ContentID!=null)&&(ListObjArray[i].Obj.ContentTypeStr!=null))
{
if (SelectedNews=='') SelectedNews=ListObjArray[i].Obj.ContentID;
else SelectedNews=SelectedNews+'***'+ListObjArray[i].Obj.ContentID;
}
}
}
if (SelectedNews!='') {if (confirm('确定要删除吗？')) location='?Action=DelNews&DelNewsID='+SelectedNews;}
else alert('请选择删除内容');
}
function ClickMenu(MenuObj)
{
var CurrObj=null;
var IMGObj=document.body.getElementsByTagName('IMG');
for (var i=0;i<IMGObj.length;i++)
{
CurrObj=IMGObj(i);
if (CurrObj.className=='BtnMouseOver') CurrObj.className='';
}
var el=event.srcElement;
MenuObj.releaseCapture();
MenuObj.className="menu";
for (var i=0;i<MenuObj.children.length;i++)
{
var CurrObj=MenuObj.children(i);
for (var j=0;j<CurrObj.children.length;j++)
{
if (CurrObj.children(j).className=='MenuShow') {CurrObj.children(j).className='Menu';}
}
}
if (el.ExeFunction!=null) eval(el.ExeFunction);
}
</script>
<script src="../SysJS/ContentMenu.js" language="JavaScript"></script>
<body topmargin="2" leftmargin="2" scroll=auto onclick="ClickNewsOrDownLoad(event);" onselectstart="return false;">
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#999999">
<tr bgcolor="#EEEEEE">
<td height="26" colspan="5" valign="middle">
<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="35" align="center" alt="删除内容" onClick="DelContent();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">删除</td>
<td width=2 class="Gray">|</td>
<td width="35" align="center" alt="刷新新闻" onClick="RefreshNews();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">生成</td>
<td width=2 class="Gray">|</td>
<td width="35" align="center" alt="预览" onClick="PreviewNews();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">预览</td>
<td width=2 class="Gray">|</td>
<td width=35 align="center" alt="后退" onClick="top.GetEkMainObject().history.back();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">后退</td>
<td> </td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" height="90%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td colspan="5" height="2"></td>
</tr>
<tr>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="40%" height="26" class="ButtonListLeft"> <div align="center">名称</div></td>
<td nowrap class="ButtonList"> <div align="center">栏目</div></td>
<td width="20%" height="26" class="ButtonList"> <div align="center">时间</div></td>
<td width="20%" nowrap class="ButtonList">
<div align="center">归档时间</div></td>
</tr>
<%
Dim NewsSql,RsNewsObj,PicStr,News_For_Var
NewsSql = "Select * from FS_News order by ID desc"
Set RsNewsObj = Server.CreateObject(G_FS_RS)
RsNewsObj.Open NewsSql,RecordConn,1,1
if Not RsNewsObj.Eof then
Dim News_Page_Size,News_Page_No,News_Page_Total,News_Record_All,ContentTypeStr
News_Page_Size = 20
News_Page_No = Request.Querystring("News_Page_No")
if News_Page_No <= 0 or News_Page_No = "" then News_Page_No = 1
RsNewsObj.PageSize = News_Page_Size
News_Page_Total = RsNewsObj.PageCount
if (Cint(News_Page_No) > News_Page_Total) then News_Page_No = News_Page_Total
RsNewsObj.AbsolutePage = News_Page_No
News_Record_All = RsNewsObj.RecordCount
for News_For_Var = 1 to RsNewsObj.PageSize
if RsNewsObj.Eof then Exit For
if RsNewsObj("HeadNewsTF")<>"1" and RsNewsObj("PicNewsTF")<>"1" then
PicStr = "../../Images/Info/WordNews.gif"
ContentTypeStr = "1"
elseif RsNewsObj("HeadNewsTF")="1" then
PicStr = "../../Images/Info/TitleNews.gif"
ContentTypeStr = "2"
else
PicStr = "../../Images/Info/PicNews.gif"
ContentTypeStr = "3"
end if
if RsNewsObj("FileExtName") = "asp" then
PicStr = "../../Images/Info/asp.gif"
end If
%>
<tr>
<td nowrap> <table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="<% = PicStr %>"></td>
<td nowrap><span ContentTypeStr="<% = ContentTypeStr %>" AuditTF="" class="TempletItem" ContentID="<% = RsNewsObj("NewsID") %>" align="center">
<% = Left(RsNewsObj("Title"),26) %>
</span> </td>
</tr>
</table></td>
<td nowrap> <div align="center">
<%
Dim RsClassObj
Set RsClassObj = Conn.Execute("Select ClassCName from FS_NewsClass where ClassID='" & RsNewsObj("ClassID") & "'")
if Not RsClassObj.Eof then
Response.Write(RsClassObj("ClassCName"))
else
Response.Write("栏目不存在")
end if
Set RsClassObj = Nothing
%>
</div></td>
<td nowrap> <div align="center">
<% = RsNewsObj("AddDate") %>
</div></td>
<td nowrap><div align="center"><% = RsNewsObj("FileTime") %></div></td>
</tr>
<%
RsNewsObj.MoveNext
Next
end if
%>
</table>
</td>
</tr>
</table>
<table width="100%" height="26" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="26" class="buttonlistleft">翻页 <% = NewsPageStr %> </td>
</tr>
</table>
</body>
</html>
<%
Set RsNewsObj = Nothing
Set Conn = Nothing
Set RecordConn = Nothing
Function GetNewsOptionValue(Flag,FieldName)
Dim GetLocation,CheckLength
Dim CheckArray ,i
GetLocation = 0
CheckArray = Array("type","contribution","audit","deleted","link","rec","sbs","marquee","bulletin","filter","focus","classical","today","showreview","reviewtf")
for i = LBound(CheckArray) to UBound(CheckArray)
if CheckArray(i) = FieldName then
GetLocation = i
end if
Next
CheckLength = UBound(CheckArray) + 1 - GetLocation
if Not IsNull(Flag) then
if GetLocation > 0 then
if Len(Flag) < CheckLength then
GetNewsOptionValue = ""
else
GetNewsOptionValue = Mid(Flag,1,GetLocation)
end if
else
GetNewsOptionValue=""
end if
else
GetNewsOptionValue=""
end if
End Function
Function NewsPageStr()
NewsPageStr = "NO.<b>"& News_Page_No &"</b>, "
NewsPageStr = NewsPageStr & "Totel:<b>"& News_Page_Total &"</b>, RecordCounts:<b>" & News_Record_All &"</b> "
if News_Page_Total = 1 then
NewsPageStr = NewsPageStr & " <img src=""../../images/FirstPage.gif"" border=0 alt=首页> " & Chr(13) & Chr(10)
NewsPageStr = NewsPageStr & " <img src=""../../images/prePage.gif"" border=0 alt=上一页> " & Chr(13) & Chr(10)
NewsPageStr = NewsPageStr & " <img src=""../../images/nextPage.gif"" border=0 alt=下一页> " & Chr(13) & Chr(10)
NewsPageStr = NewsPageStr & " <img src=""../../images/endPage.gif"" border=0 alt=尾页> " & Chr(13) & Chr(10)
else
if cint(News_Page_No) <> 1 and cint(News_Page_No) <> News_Page_Total then
NewsPageStr = NewsPageStr & " <span onclick=""ChangePageNO('1','News_Page_No');"" style=""cursor:hand;""><img src=""../../images/FirstPage.gif"" border=0 alt=首页></span> " & Chr(13) & Chr(10)
NewsPageStr = NewsPageStr & " <span onclick=""ChangePageNO('" & News_Page_No - 1 & "','News_Page_No');"" style=""cursor:hand;""><img src=../../images/prePage.gif border=0 alt=上一页></span> " & Chr(13) & Chr(10)
NewsPageStr = NewsPageStr & " <span onclick=""ChangePageNO('" & News_Page_No + 1 & "','News_Page_No');"" style=""cursor:hand;""><img src=../../images/nextPage.gif border=0 alt=下一页></span> " & Chr(13) & Chr(10)
NewsPageStr = NewsPageStr & " <span onclick=""ChangePageNO('" & News_Page_Total & "','News_Page_No');"" style=""cursor:hand;""><img src=../../images/endPage.gif border=0 alt=尾页></span> " & Chr(13) & Chr(10)
elseif cint(News_Page_No) = 1 then
NewsPageStr = NewsPageStr & " <img src=../../images/FirstPage.gif border=0 alt=首页> " & Chr(13) & Chr(10)
NewsPageStr = NewsPageStr & " <img src=../../images/prePage.gif border=0 alt=上一页> " & Chr(13) & Chr(10)
NewsPageStr = NewsPageStr & " <span onclick=""ChangePageNO('" & News_Page_No + 1 & "','News_Page_No');"" style=""cursor:hand;""><img src=../../images/nextPage.gif border=0 alt=下一页></span> " & Chr(13) & Chr(10)
NewsPageStr = NewsPageStr & " <span onclick=""ChangePageNO('" & News_Page_Total & "','News_Page_No');"" style=""cursor:hand;""><img src=../../images/endpage.gif border=0 alt=尾页></span> " & Chr(13) & Chr(10)
else
NewsPageStr = NewsPageStr & " <span onclick=""ChangePageNO('1','News_Page_No');"" style=""cursor:hand;""><img src=../../images/FirstPage.gif border=0 alt=首页></span> " & Chr(13) & Chr(10)
NewsPageStr = NewsPageStr & " <span onclick=""ChangePageNO('" & News_Page_No - 1 & "','News_Page_No');"" style=""cursor:hand;""><img src=../../images/prePage.gif border=0 alt=上一页></span> " & Chr(13) & Chr(10)
NewsPageStr = NewsPageStr & " <img src=../../images/nextPage.gif border=0 alt=下一页></span> " & Chr(13) & Chr(10)
NewsPageStr = NewsPageStr & " <img src=../../images/endpage.gif border=0 alt=尾页> " & Chr(13) & Chr(10)
end if
end if
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -