📄 refreshmanager.asp
字号:
<% Option Explicit %>
<!--#include file="../../../Inc/Const.asp" -->
<!--#include file="../../../Inc/Cls_DB.asp" -->
<!--#include file="../../../Inc/Cls_Cache.asp" -->
<!--#include file="../../../Inc/Function.asp" -->
<%
Dim DBC,Conn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
%>
<!--#include file="../../../Inc/Session.asp" -->
<!--#include file="../../../Inc/CheckPopedom.asp" -->
<%
'=============================
'读栏目缓存数据
Dim ClassCache
Set ClassCache = New Cls_FsCache
ClassCache.Name="ClassCache"
'ClassInfo=ClassCache.Value
'Set ClassCache=Nothing
'==============================
Dim HaveValueTF
if CInt(GetConfig(20)) = 1 then
HaveValueTF = True
Else
HaveValueTF = False
End if
%>
<head>
<link href="../../../CSS/FS_css.css" rel="stylesheet" type="text/css">
<SCRIPT language="JavaScript" src="../../SysJS/PublicJS.js"></SCRIPT>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body oncontextmenu="return false;" onselectstart="return false;" topmargin="2" leftmargin="2">
<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="ReFreshForm.submit();" 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%" border="0" cellspacing="0" cellpadding="0" align="center">
<form action="ReFreshSave.asp" method="Post" name="ReFreshForm">
<tr>
<td width="45%"><FIELDSET align="right" style="height:220px;width:360px">
<LEGEND align=left>首页、栏目生成设置</LEGEND>
<table width="100%" border="0" cellspacing="3" cellpadding="0">
<%if JudgePopedomTF(Session("Name"),"P030100") then %>
<tr>
<td colspan="2" align="left"><font color=red>生成首页</font>
<input type="checkbox" name="Index" value="1">
</td>
</tr>
<%
Else
Response.write "<tr><td colspan=""2"" align=""left"">您没有权限生成首页!</td></tr>"
End If
If JudgePopedomTF(Session("Name"),"P030300") Then %>
<tr>
<td width="100">生成所有栏目
<input type="checkbox" name="AllClass" value="1">
</td>
<td> </td>
</tr>
<tr>
<td height="100" valign="middle">按栏目生成 </td>
<td align="left"><div style="width:240px;height:140px;border:2px inset transparent;overflow:auto;"> <%=ClassCache.GetAllClasslistInRefresh("0",0,"ClassStr")%> </div></td>
</tr>
<%
Else
Response.write "<tr><td colspan=""2"" align=""left"">您没有权限生成栏目!</td></tr>"
End If
%>
</table>
</FIELDSET></td>
<td width="45%"><FIELDSET align="center" style="height:220px;width:360px;">
<LEGEND align=left>专题页面参数设置</LEGEND>
<table width="100%" border="0" cellspacing="3" cellpadding="0">
<%If JudgePopedomTF(Session("Name"),"P030500") Then %>
<tr>
<td width="100">生成所有的
<input type="checkbox" name="AllSpecial" value="1">
</td>
<td> </td>
</tr>
<tr>
<td height="100" valign="middle">按专题生成 </td>
<td align="left"><div style="width:240px;height:160px;border:2px inset transparent;overflow:auto;"> <%=GetAllSpeciallistInReFresh("0",0)%> </div></td>
</tr>
<%
Else
Response.write "<tr><td colspan=""2"" align=""left"">您没有权限生成专题!</td></tr>"
End If
%>
</table>
</FIELDSET></td>
</tr>
<tr>
<td Width="45%"><FIELDSET align="Right" style="height:220px;width:360px;">
<LEGEND align=left>新闻生成设置</LEGEND>
<table width="100%" border="0" cellspacing="3" cellpadding="0">
<%If JudgePopedomTF(Session("Name"),"P030400") Then %>
<tr>
<td width="100">生成所有的
<input type="checkbox" name="AllNews" value="1">
</td>
<td></td>
</tr>
<tr>
<td>按日期生成
<input type="checkbox" name="DateNews" id="DateNews" value="1">
</td>
<td><input name="NewsFromDate" type="text" id="NewsFromDate" readonly style="width:100px" value="<%=Date()%>" onClick="OpenWindowAndSetValue('../../FunPages/SelectDate.asp',280,120,window,document.ReFreshForm.NewsFromDate);document.ReFreshForm.NewsFromDate.focus();">
到
<input name="NewsTentDate" type="text" id="NewsTentDate" readonly style="width:100px" value="<%=Date()%>" onClick="OpenWindowAndSetValue('../../FunPages/SelectDate.asp',280,120,window,document.ReFreshForm.NewsTentDate);document.ReFreshForm.NewsTentDate.focus();">
</td>
</tr>
<tr>
<td>按最新生成
<input type="checkbox" name="NewNews" value="1">
</td>
<td><input name="NewsNum" type="text" id="NewsNum" style="width:240px" value="10">
</td>
</tr>
<tr>
<td> 按栏目生成</td>
<td><div style="width:240px;height:120px;border:2px inset transparent;overflow:auto;"> <%=ClassCache.GetAllClasslistInRefresh("0",0,"NewsStr")%> </div></td>
</tr>
<%
Else
Response.write "<tr><td colspan=""2"" align=""left"">您没有权限生成新闻!</td></tr>"
End If
%>
</table>
</FIELDSET>
</td>
<td Width="45%"><FIELDSET align="center" style="height:220px;width:360px;">
<LEGEND align=left>下载生成设置</LEGEND>
<table width="100%" border="0" cellspacing="3" cellpadding="0">
<%If JudgePopedomTF(Session("Name"),"P030600") Then %>
<tr>
<td width="100">生成所有的
<input type="checkbox" name="AllDownload" value="1">
</td>
<td></td>
</tr>
<tr>
<td>按日期生成
<input type="checkbox" name="DateDownload" id="DateDownload" value="1">
</td>
<td><input name="DownloadFromDate" type="text" id="DownloadFromDate" readonly style="width:100px" value="<%=Date()%>" onClick="OpenWindowAndSetValue('../../FunPages/SelectDate.asp',280,120,window,document.ReFreshForm.DownloadFromDate);document.ReFreshForm.DownloadFromDate.focus();">
到
<input name="DownloadTentDate" type="text" id="DownloadTentDate" readonly style="width:100px" value="<%=Date()%>" onClick="OpenWindowAndSetValue('../../FunPages/SelectDate.asp',280,120,window,document.ReFreshForm.DownloadTentDate);document.ReFreshForm.DownloadTentDate.focus();">
</td>
</tr>
<tr>
<td>按最新生成
<input type="checkbox" name="NewDownload" value="1">
</td>
<td><input name="DownloadNum" type="text" id="DownloadNum" style="width:240px" value="10">
</td>
</tr>
<tr>
<td> 按栏目生成</td>
<td><div style="width:240px;height:120px;border:2px inset transparent;overflow:auto;"> <%=ClassCache.GetAllClasslistInRefresh("0",0,"DownloadStr")%> </div></td>
</tr>
<%
Else
Response.write "<tr><td colspan=""2"" align=""left"">您没有权限生成下载!</td></tr>"
End If
%>
</table>
</FIELDSET>
</td>
</tr>
<tr>
<td>
<%If HaveValueTF Then %>
<FIELDSET align="right" style="height:220px;width:360px;">
<LEGEND align=left>商品生成设置</LEGEND>
<table width="100%" border="0" cellspacing="3" cellpadding="0">
<%If JudgePopedomTF(Session("Name"),"P030200") Then %>
<tr>
<td width="100">生成所有的
<input type="checkbox" name="AllProduct" value="1">
</td>
<td></td>
</tr>
<tr>
<td>按日期生成
<input type="checkbox" name="DateProduct" id="DateProduct" value="1">
</td>
<td><input name="ProductFromDate" type="text" id="ProductFromDate" readonly style="width:100px" value="<%=Date()%>" onClick="OpenWindowAndSetValue('../../FunPages/SelectDate.asp',280,120,window,document.ReFreshForm.ProductFromDate);document.ReFreshForm.ProductFromDate.focus();">
到
<input name="ProductTentDate" type="text" id="ProductTentDate" readonly style="width:100px" value="<%=Date()%>" onClick="OpenWindowAndSetValue('../../FunPages/SelectDate.asp',280,120,window,document.ReFreshForm.ProductTentDate);document.ReFreshForm.ProductTentDate.focus();">
</td>
</tr>
<tr>
<td>按最新生成
<input type="checkbox" name="NewProduct" value="1">
</td>
<td><input name="ProductNum" type="text" id="ProductNum" style="width:240px" value="10">
</td>
</tr>
<tr>
<td> 按栏目生成</td>
<td><div style="width:240px;height:120px;border:2px inset transparent;overflow:auto;"> <%=ClassCache.GetAllClasslistInRefresh("0",0,"ProductStr")%> </div></td>
</tr>
<%
Else
Response.write "<tr><td colspan=""2"" align=""left"">您没有权限生成商品!</td></tr>"
End If
%>
</table>
</FIELDSET>
<%End If %>
</td>
<td style="display:none"><FIELDSET align="center" style="height:220px;width:360px;">
<LEGEND align=left>RSS生成设置</LEGEND>
<table width="100%" border="0" cellspacing="3" cellpadding="0">
<tr>
<td width="100">生成所有的
<input type="checkbox" name="AllProduct" value="1">
</td>
<td></td>
</tr>
<tr>
<td> 按栏目生成</td>
<td><div style="width:240px;height:160px;border:2px inset transparent;overflow:auto;"> <%=ClassCache.GetAllClasslistInRefresh("0",0,"ProductStr")%> </div></td>
</tr>
</table>
</FIELDSET>
</td>
</tr>
</form>
</table>
</body>
</html>
<%
Function GetAllSpeciallistInReFresh(SpecialID,k)
Dim tRs
Set tRs = Server.CreateObject(G_FS_RS)
tRs.open "Select SpecialID,CName from FS_Special order by ID Desc",Conn,1,1
do while not tRs.eof
GetAllSpeciallistInReFresh = GetAllSpeciallistInReFresh& string(k," ")&"<input type=""checkbox"" name=""SpecialStr"" value="""&tRs(0)&""">" &tRs(1) &"<br>"& vbcrlf
tRs.MoveNext
loop
tRs.close
Set tRs = Nothing
End Function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -