📄 jsfreeview.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% Option Explicit %>
<!--#include file="../../Conn.asp"-->
<!--#include file="../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../inc/Session.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 SP2 Free
'Copyright (C) 2006-2008 Kesion.Com All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407
'程序版权：科汛网络
'程序开发：科汛网络开发组（总策划：林文仲）
'E-Mail :kesioncms@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com
'演示站点：http://test.kesion.com
'郑重声明:
' ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
' ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
' ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
Dim KSCls
Set KSCls = New JSFreeView
KSCls.Execute()
Set KSCls = Nothing
Class JSFreeView
Private KSCMS
Private ArticleSql,ArticleRS,JSID
Private i,totalPut,CurrentPage,MaxPerPage
Private Sub Class_Initialize()
MaxPerPage=15
Set KSCMS=New CommonCls
End Sub
Private Sub Class_Terminate()
Call KSCMS.CloseConn()
Set KSCMS=Nothing
End Sub
Sub Execute
JSID=Request.QueryString("JSID")
if Not isempty(request("page")) and request("page")<>"" then
currentPage=Cint(request("page"))
else
currentPage=1
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Article列表</title>
</head>
<link href="../Inc/Admin_Style.CSS" rel="stylesheet">
<script language="JavaScript" src="../JS/Common.js"></script>
<script language="JavaScript" src="../JS/ContextMenu.js"></script>
<script language="JavaScript" src="../JS/SelectElement.js"></script>
<script language="JavaScript">
var Page='<%=CurrentPage%>';
var JSID='<%=JSID%>';
parent.document.title='显示当前自由JS的所有文章';
var DocElementArrInitialFlag=false;
var DocElementArr = new Array();
var DocContextMenuArr=new Array();
var SelectedFile='',SelectedFolder='';
function document.onreadystatechange()
{
if (DocElementArrInitialFlag) return;
InitialDocElementArr('FolderID','SelectObjID');
InitialContextMenu();
DocElementArrInitialFlag=true;
}
function InitialContextMenu()
{
DocContextMenuArr[DocContextMenuArr.length]=new ContextMenuItem("parent.Delete();",'删 除(D)','disabled');
DocContextMenuArr[DocContextMenuArr.length]=new ContextMenuItem("parent.location.reload();",'刷 新(Z)','disabled');
}
function DocDisabledContextMenu()
{
DisabledContextMenu('FolderID','SelectObjID','删 除(D)','','','','','')
}
function ArticleMoveOut(ID)
{
location.href="JS_ArticleMoveOut.asp?Page="+Page+"&NewsID="+ID+"&JSID="+JSID;
}
function Delete(op)
{
GetSelectStatus('FolderID','SelectObjID');
if (SelectedFile!='')
{
if (confirm("确定要执行删除操作吗？"))
ArticleMoveOut(SelectedFile);
}
else
alert('请选择要删除的文章');
}
function GetKeyDown()
{
if (event.ctrlKey && event.keyCode==68)
Delete('');
else
if (event.keyCode==46)Delete('');
event.cancelBubble=true;
}
</script>
<body scroll=no topmargin="0" leftmargin="0" onclick="SelectElement();" onkeydown="GetKeyDown();" onselectstart="return false;">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<table width="100%" height="25" border="0" cellpadding="0" cellspacing="1">
<tr align="center">
<td width="482" height="25" class="sortbutton"> <div align="center">文章标题</div></td>
<td width="220" class="sortbutton">更新时间</td>
</tr>
<%
ArticleSql="select * from [KS_Article] where JSID Like '%" & JSId & "%' and DelTF=0 order by AddDate desc"
SET ArticleRS=Server.CreateObject("AdoDb.RecordSet")
ArticleRS.Open ArticleSql,conn,1,1
IF ArticleRS.eof and ArticleRS.bof THEN
Response.Write("<tr colspan=3><td align=center><strong>此自由JS还没加入文章!</font></td></tr>")
ELSE
totalPut=ArticleRS.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
Call showContent
Call KSCMS.ShowPageParamter (totalput,MaxPerPage,"JSFreeView.asp",True,"篇",currentPage,"JSID=" & JSID)
else
if (currentPage-1)*MaxPerPage<totalPut then
ArticleRS.move (currentPage-1)*MaxPerPage
Call showContent
Call KSCMS.ShowPageParamter (totalput,MaxPerPage,"JSFreeView.asp",True,"篇",currentPage,"JSID=" & JSID)
else
currentPage=1
Call showContent
Call KSCMS.ShowPageParamter (totalput,MaxPerPage,"JSFreeView.asp",True,"篇",currentPage,"JSID=" & JSID)
end if
end if
END IF
%>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><hr></td>
</tr>
<tr>
<td align="right">
<input type="button" name="Submit" value="预览" onClick="location.href='JSView.asp?CanView=1&JSID=<%=JSID%>';">
<input type="button" name="Submit2" value="删除" onClick="Delete()">
<input type="button" name="Submit" value="关闭" onClick="window.parent.close()">
</td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
<% Set ArticleRS = Nothing
End Sub
sub showContent
do while not ArticleRS.eof
%>
<tr>
<td width="482"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20"> <span SelectObjID="<%=ArticleRS("NewsID")%>">
<%IF Cint(ArticleRS("PicNews"))=1 THEN
Response.Write("<img src=../Images/Folder/TheSmallPicNews1.gif border=0 align=absmiddle>")
ELSE
Response.Write("<img src=../Images/Folder/TheSmallWordNews1.gif border=0 align=absmiddle>")
END IF
%>
<span style="cursor:default"><%=Left(ArticleRS("Title"),28)%></span> </span> </td>
</tr>
</table></td>
<td width="220" align="center">
<%IF YEAR(NOW())&MONTH(NOW())&DAY(NOW())=YEAR(ArticleRS("AddDate"))&MONTH(ArticleRS("AddDate"))&DAY(ArticleRS("AddDate")) THEN Response.Write("<Font color=red>"&ArticleRS("AddDate")&"</font>") ELSE Response.Write(ArticleRS("AddDate")) END IF%>
</td>
</tr>
<%i=i+1
if i>=MaxPerPage then Exit Do
ArticleRS.movenext
loop
ArticleRS.close
conn.close
%>
<tr>
<td align="right" colspan="3">
<%
End Sub
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -