📄 downloadlist.asp
字号:
}
}
}
}
if (SelectedNews!='') OpenWindow('Frame.asp?FileName=NewsToSpecial.asp&PageTitle=添加到新闻专题&NewsID='+SelectedNews,350,120,window);
else alert('请选择新闻');
}
function AddToJS()
{
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 ((ListObjArray[i].Obj.ContentTypeStr=='1')||(ListObjArray[i].Obj.ContentTypeStr=='3'))
{
if (SelectedNews=='') SelectedNews=ListObjArray[i].Obj.ContentID;
else SelectedNews=SelectedNews+'***'+ListObjArray[i].Obj.ContentID;
}
}
}
}
if (SelectedNews!='') OpenWindow('Frame.asp?FileName=NewsToJs.asp&Types=PicJs&PageTitle=添加到JS&NewsID='+SelectedNews,350,135,window);
else alert('请选择新闻');
}
function ShowAddMenu()
{
var MenuObj=document.all.AddContentMenu;
var el=event.srcElement;
MenuObj.style.display='';
MenuObj.style.posLeft=el.offsetLeft;
MenuObj.style.posTop=el.offsetHeight;
MenuObj.className="menushow";
MenuObj.setCapture();
}
function MouseOverRightMenu()
{
var el=event.srcElement;
if (el.tagName!='TD') return;
if (el.ExeFunction==null) return;
if (el.style.backgroundColor=="highlight") {el.style.backgroundColor='';el.style.color='black';}
else {el.style.backgroundColor="highlight";el.style.color='white';}
}
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);
}
function AuditOneContent(NewsID,DownloadID)
{
OpenWindow('Frame.asp?FileName=CheckContent.asp&OperateType=Check&PageTitle=审核新闻&NewsID='+NewsID+'&DownloadID='+DownloadID,220,105,window);
location.href=location.href;
}
function UnAuditOneContent(NewsID,DownloadID)
{
OpenWindow('Frame.asp?FileName=CheckContent.asp&OperateType=UnCheck&PageTitle=q取消审核&NewsID='+NewsID+'&DownloadID='+DownloadID,220,105,window);
location.href=location.href;
}
</script>
<body topmargin="2" leftmargin="2" onclick="ClickNewsOrDownLoad(event);" onselectstart="return false;">
<%
Dim SearchScope,SearchType,SearchContent,SearchBeginTime,SearchEndTime
Dim News_Search_Sql,DownLoad_Search_Sql
Dim SearchDisplayStr,AdvanceSearchDisplayStr,BtnOpenAdvanceSearchDisplayStr
SearchScope = Request("SearchScope")
SearchType = Request("SearchType")
SearchContent = Request("SearchContent")
SearchBeginTime = Request("SearchBeginTime")
SearchEndTime = Request("SearchEndTime")
if SearchContent <> "" then
SearchDisplayStr = ""
if SearchBeginTime <> "" and SearchBeginTime <> "" then
AdvanceSearchDisplayStr = ""
BtnOpenAdvanceSearchDisplayStr = "none"
else
AdvanceSearchDisplayStr = "none"
BtnOpenAdvanceSearchDisplayStr = ""
end if
else
if SearchBeginTime <> "" and SearchBeginTime <> "" then
SearchDisplayStr = ""
AdvanceSearchDisplayStr = ""
BtnOpenAdvanceSearchDisplayStr = "none"
else
SearchDisplayStr = "none"
AdvanceSearchDisplayStr = "none"
BtnOpenAdvanceSearchDisplayStr = ""
end if
end if
Select Case SearchScope
Case "All"
if SearchType <> "" then
if SearchType <> "" and SearchContent <> "" then
News_Search_Sql = " and " & SearchType & " like '%" & SearchContent & "%'"
DownLoad_Search_Sql = ""
end if
if SearchBeginTime <> "" and SearchEndTime <> "" then
If IsSqlDataBase=0 then
News_Search_Sql = News_Search_Sql & " and (AddDate between #" & SearchBeginTime & "# and #" & SearchEndTime & "#)"
DownLoad_Search_Sql = " and (AddTime between #" & SearchBeginTime & "# and #" & SearchEndTime & "#)"
Else
News_Search_Sql = News_Search_Sql & " and (AddDate between '" & SearchBeginTime & "' and '" & SearchEndTime & "')"
DownLoad_Search_Sql = " and (AddTime between '" & SearchBeginTime & "' and '" & SearchEndTime & "')"
End If
end if
end if
Case "News"
if SearchType <> "" then
if SearchType <> "" and SearchContent <> "" then
News_Search_Sql = " and " & SearchType & " like '%" & SearchContent & "%'"
DownLoad_Search_Sql = ""
end if
if SearchBeginTime <> "" and SearchEndTime <> "" then
If IsSqlDataBase=0 then
News_Search_Sql = News_Search_Sql & " and (AddDate between #" & SearchBeginTime & "# and #" & SearchEndTime & "#)"
Else
News_Search_Sql = News_Search_Sql & " and (AddDate between '" & SearchBeginTime & "' and '" & SearchEndTime & "')"
End If
DownLoad_Search_Sql = ""
end if
end if
Case "DownLoad"
if SearchType <> "" then
if SearchType <> "" and SearchContent <> "" then
News_Search_Sql = ""
DownLoad_Search_Sql = ""
end if
if SearchBeginTime <> "" and SearchEndTime <> "" then
News_Search_Sql = ""
If IsSqlDataBase=0 then
DownLoad_Search_Sql = " and (AddTime between #" & SearchBeginTime & "# and #" & SearchEndTime & "#)"
Else
DownLoad_Search_Sql = " and (AddTime between '" & SearchBeginTime & "' and '" & SearchEndTime & "')"
End If
end if
end if
Case Else
News_Search_Sql = ""
DownLoad_Search_Sql = ""
end Select
If Request.QueryString("Audit")="IsAuditTF" then
News_Search_Sql =News_Search_Sql & " and auditTF=1"
DownLoad_Search_Sql =News_Search_Sql & " and auditTF=1"
ElseIf Request.QueryString("Audit")="NoAuditTF" then
News_Search_Sql =News_Search_Sql & " and auditTF=0"
DownLoad_Search_Sql =News_Search_Sql & " and auditTF=0"
Else
End If
%>
<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=55 align="center" alt="添加栏目" onClick="top.GetEkMainObject().location='ClassAdd.asp?ParentID=<% = ClassID %>';" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">添加栏目</td>
<td width=2 class="Gray">|</td>
<td width=55 align="center" alt="添加内容" onClick="ShowAddMenu();" onMouseMove="BtnMouseOver(this);//ShowAddMenu();" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">添加内容</td>
<td width=2 class="Gray">|</td>
<td width=55 align="center" alt="新闻列表" onClick="top.GetEkMainObject().location='NewsList.asp?ClassID=<% = ClassID %>';" onMouseMove="BtnMouseOver(this);//ShowAddMenu();" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">新闻列表</td>
<td width=2 class="Gray">|</td>
<%If sHaveValueTF = true then%>
<td width=55 align="center" alt="商品列表" onClick="top.GetEkMainObject().location='ProductList.asp?ClassID=<% = ClassID %>';" onMouseMove="BtnMouseOver(this);//ShowAddMenu();" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">商品列表</td>
<td width=2 class="Gray">|</td>
<%End if%>
<td width=45 align="center" alt="显示已审核内容" onClick="auditcontent();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">已审核</td>
<td width=2 class="Gray">|</td>
<td width=45 align="center" alt="显示未审核内容" onClick="noauditcontent();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">未审核</td>
<td width=2 class="Gray">|</td>
<td width=35 align="center" alt="审核" onClick="Audit(true);" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">审核</td>
<td width=2 class="Gray">|</td>
<td width=55 align="center" alt="取消审核" onClick="Audit(false);" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">取消审核</td>
<td width=2 class="Gray" style="display:none">|</td>
<td width=55 align="center" style="display:none" alt="加入专题" onClick="AddToSpecial();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">加入专题</td>
<td width=2 class="Gray" style="display:none">|</td>
<td width=55 align="center" style="display:none" alt="加入JS" onClick="AddToJS();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">加入JS</td>
<td width=2 class="Gray">|</td>
<td width=55 align="center" alt="评论管理" onClick="ReviewManage();" 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="ShowSearchArea();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">搜索</td>
<td width=2 class="Gray" style="display:none">|</td>
<td width=55 align="center" style="display:none" alt="取消搜索"onClick="CancelSearch();" 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="95%" 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="10%" height="26" class="ButtonList"> <div align="center">状态</div></td>
<td width="20%" height="26" class="ButtonList"> <div align="center">时间</div></td>
<td width="15%" class="ButtonList"> <div align="center">操作</div></td>
</tr>
<%
Dim DownLoadSql,RsDownLoadObj,DownLoad_For_Var
DownLoadSql = "Select * from FS_DownLoad where ClassID='" & ClassID & "' " & DownLoad_Search_Sql & " order by AddTime desc"
Set RsDownLoadObj = Server.CreateObject(G_FS_RS)
RsDownLoadObj.Open DownLoadSql,Conn,1,1
if Not RsDownLoadObj.Eof then
Dim DownLoad_Page_Size,DownLoad_Page_No,DownLoad_Page_Total,DownLoad_Record_All
DownLoad_Page_Size = 20
DownLoad_Page_No = Request.Querystring("DownLoad_Page_No")
if DownLoad_Page_No <= 0 or DownLoad_Page_No = "" then DownLoad_Page_No = 1
RsDownLoadObj.PageSize = DownLoad_Page_Size
DownLoad_Page_Total = RsDownLoadObj.PageCount
if (Cint(DownLoad_Page_No) > DownLoad_Page_Total) then DownLoad_Page_No = DownLoad_Page_Total
RsDownLoadObj.AbsolutePage = DownLoad_Page_No
DownLoad_Record_All = RsDownLoadObj.RecordCount
for DownLoad_For_Var = 1 to RsDownLoadObj.PageSize
if RsDownLoadObj.Eof then Exit For
%>
<tr>
<td height="22" nowrap> <table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="../../Images/arrow.gif"></td>
<td nowrap><span ContentTypeStr="4" AuditTF="" class="TempletItem" ContentID="<% = RsDownLoadObj("DownLoadID") %>" align="center">
<% = Left(RsDownLoadObj("Name"),26) %>
</span> </td>
</tr>
</table></td>
<td nowrap> <div align="center" class="TempletItem">下载 </div></td>
<td height="22" nowrap> <div align="center" class="TempletItem">
<% if RsDownLoadObj("AuditTF")=1 then
response.Write("<font color=blue>已审批</font>")
else
response.Write("<font color=red>未审批</font>")
end if
%>
</div></td>
<td height="22" nowrap> <div align="center" class="TempletItem">
<% = RsDownLoadObj("AddTime") %>
</div></td>
<%if RsDownLoadObj("AuditTF")=0 then%>
<td align="center" nowrap onClick="AuditOneContent('','<%=RsDownLoadObj("DownloadID")%>')" style="cursor:hand;">审核</td>
<%Else%>
<td align="center" nowrap onClick="UnAuditOneContent('','<%=RsDownLoadObj("DownloadID")%>')" style="cursor:hand;">取消审核</td>
<%End if%>
</tr>
<%
RsDownLoadObj.MoveNext
Next
end if
%>
</table>
</td>
</tr>
<tr>
<td height="20" class="ButtonListLeft">
<table width="100%" height="100%" border="0" cellpadding="3" cellspacing="0">
<tr>
<td><div align="right"><% = DownLoadPageStr %>
</div></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
<div id="AddContentMenu" class="menu" onMouseOver="MouseOverRightMenu();" onMouseOut="MouseOverRightMenu();" onClick="ClickMenu(this);" style="display:none;">
<table width="100%;" height="80" border="0" cellspacing="0" cellpadding="0" bgcolor="#eeeeee">
<tr align="center">
<td height="20" style="cursor:hand;" ExeFunction="top.GetEkMainObject().location='NewsWords.asp?ClassID='+ClassID;">文字新闻</td>
</tr>
<tr align="center">
<td height="20" ExeFunction="top.GetEkMainObject().location='NewsPic.asp?ClassID='+ClassID;">图片新闻</td>
</tr>
<tr align="center">
<td height="20" ExeFunction="top.GetEkMainObject().location='NewsTitle.asp?ClassID='+ClassID;">标题新闻</td>
</tr>
<tr align="center">
<td height="20" ExeFunction="top.GetEkMainObject().location='DownLoad.asp?ClassID='+ClassID;">下 载</td>
</tr>
<%if sHaveValueTF = True then%>
<tr align="center">
<td height="20" ExeFunction="top.GetEkMainObject().location='../mall/mall_addProducts.asp?ClassID='+ClassID;">商 品</td>
</tr>
<%End if%>
</table>
</div>
<%
Set RsDownLoadObj = Nothing
Set Conn = Nothing
Function DownLoadPageStr()
DownLoadPageStr = "位置:<b>"& DownLoad_Page_No &"</b>/<b>"& DownLoad_Page_Total &"</b> "
if DownLoad_Page_Total = 1 then
DownLoadPageStr = DownLoadPageStr & " <img src=""../../images/FirstPage.gif"" border=0 alt=首页> " & Chr(13) & Chr(10)
DownLoadPageStr = DownLoadPageStr & " <img src=""../../images/prePage.gif"" border=0 alt=上一页> " & Chr(13) & Chr(10)
DownLoadPageStr = DownLoadPageStr & " <img src=""../../images/nextPage.gif"" border=0 alt=下一页> " & Chr(13) & Chr(10)
DownLoadPageStr = DownLoadPageStr & " <img src=""../../images/endPage.gif"" border=0 alt=尾页> " & Chr(13) & Chr(10)
else
if cint(DownLoad_Page_No) <> 1 and cint(DownLoad_Page_No) <> DownLoad_Page_Total then
DownLoadPageStr = DownLoadPageStr & " <span onclick=""ChangePageNO('1','DownLoads_Page_No');"" style=""cursor:hand;""><img src=""../../images/FirstPage.gif"" border=0 alt=首页></span> " & Chr(13) & Chr(10)
DownLoadPageStr = DownLoadPageStr & " <span onclick=""ChangePageNO('" & DownLoad_Page_No - 1 & "','DownLoad_Page_No');"" style=""cursor:hand;""><img src=../../images/prePage.gif border=0 alt=上一页></span> " & Chr(13) & Chr(10)
DownLoadPageStr = DownLoadPageStr & " <span onclick=""ChangePageNO('" & DownLoad_Page_No + 1 & "','DownLoad_Page_No');"" style=""cursor:hand;""><img src=../../images/nextPage.gif border=0 alt=下一页></span> " & Chr(13) & Chr(10)
DownLoadPageStr = DownLoadPageStr & " <span onclick=""ChangePageNO('" & DownLoad_Page_Total & "','DownLoad_Page_No');"" style=""cursor:hand;""><img src=../../images/endPage.gif border=0 alt=尾页></span> " & Chr(13) & Chr(10)
elseif cint(DownLoad_Page_No) = 1 then
DownLoadPageStr = DownLoadPageStr & " <img src=../../images/FirstPage.gif border=0 alt=首页> " & Chr(13) & Chr(10)
DownLoadPageStr = DownLoadPageStr & " <img src=../../images/prePage.gif border=0 alt=上一页> " & Chr(13) & Chr(10)
DownLoadPageStr = DownLoadPageStr & " <span onclick=""ChangePageNO('" & DownLoad_Page_No + 1 & "','DownLoad_Page_No');"" style=""cursor:hand;""><img src=../../images/nextPage.gif border=0 alt=下一页></span> " & Chr(13) & Chr(10)
DownLoadPageStr = DownLoadPageStr & " <span onclick=""ChangePageNO('" & DownLoad_Page_Total & "','DownLoad_Page_No');"" style=""cursor:hand;""><img src=../../images/endpage.gif border=0 alt=尾页></span> " & Chr(13) & Chr(10)
else
DownLoadPageStr = DownLoadPageStr & " <span onclick=""ChangePageNO('1','DownLoad_Page_No');"" style=""cursor:hand;""><img src=../../images/FirstPage.gif border=0 alt=首页></span> " & Chr(13) & Chr(10)
DownLoadPageStr = DownLoadPageStr & " <span onclick=""ChangePageNO('" & DownLoad_Page_No - 1 & "','DownLoad_Page_No');"" style=""cursor:hand;""><img src=../../images/prePage.gif border=0 alt=上一页></span> " & Chr(13) & Chr(10)
DownLoadPageStr = DownLoadPageStr & " <img src=../../images/nextPage.gif border=0 alt=下一页></span> " & Chr(13) & Chr(10)
DownLoadPageStr = DownLoadPageStr & " <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 + -