📄 admin_refresh.asp

📁 新闻发布系统
💻 ASP
字号:
<!--#include file = "include.asp"-->
<!--#include file = "admin_Checkmana.asp"-->
<%
if EnoughPopedom("makehtml")=1 then
Response.write"<script>alert(""[操作失败]\n\n你的权限不足！\n\n请与系统管理员联系获得足够的权限！"");location.href=""javascript:history.back()"";</script>"
Response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>生成所有HTML文件</title>
</head>
<body>
<table width="60%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#7ED3A7">
  <tr>
    <td height="23" bgcolor="#F7FFF4">
<table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
        <tr> 
          <td height="26"> <div align="center"><b><strong><font color="#990000">请选择刷新的方式</font></strong></b></div></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td bgcolor="#F7FFF4"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="8"></td>
        </tr>
      </table>
<%
'=========================================================
'产品目录：风讯产品N系列
'软件名称：风讯站点管理系统
'当前版本：2004.I.0225
'最新更新：2004.2.10
'=========================================================
'Copyright (C) 2002-2004 cooin.com. All rights reserved.
'网站: http://www.cooin.com  Foosun.net
'程序制作：轻风云(QQ:655071)
'Email:skeen@cooin.com,skeen@Foosun.net
'论坛支持：风讯在线论坛(http://bbs.cooin.com   http://bbs.foosun.net)
'=========================================================
Ds=timer()

response.write"</b><ul><li><form name=""CooId"" method=""post"" action=""Admin_Refreshs.asp?action=date"">按日期生成信息Html页:<select size=""1"" name=""Dyear"">"
for i=2000 to year(date())
response.write"<option value="""&i&""""
if i=year(date()) then
response.write" selected"
end if
response.write">"&i&"</option>"
next
response.write"</select>-<select size=""1"" name=""Dmonth"">"
for i=1 to 12
response.write"<option value="""&i&""""
if i=month(date()) then
response.write" selected"
end if
response.write">"&i&"</option>"
next
response.write"</select>-<select size=""1"" name=""Dday""><option value=""""> </option>"
for i=1 to 31
response.write"<option value="""&i&""""
if i=day(date()) then
response.write" selected"
end if
response.write">"&i&"</option>"
next
response.write"</select> <input name=""change"" class=Anbutc value=""确认"" type=""submit""></form></li><li><form name=pdd method=""post"" action=""Admin_Refreshs.asp?action=new"">"
response.write"生成最新&nbsp;&nbsp;<input size=8 name=""newshu"" value=""10"">&nbsp;个信息Html页  <input name=""change"" class=Anbutc value=""确认"" type=""submit""></form></li><li>"
response.write"<form name=pid method=""post"" action=""Admin_Refreshs.asp?action=all""> 生成所有信息Html页   <input name=""change"" class=Anbutc value=""确认"" type=""submit""> </form></li>"
set rs = server.createobject("adodb.recordset")
rs.source = "select * from newsclass order by RootID asc,orders asc"
rs.open rs.source,conn,1,1
%>
      <li> 
        <form method="post" action="admin_Refreshs.asp?action=class">
          按栏目生成新闻 　 
          <select name="Dclass" class=Anbutc>
            <%
                        while not rs.eof
                        %>
            <option value="<%=rs("id")%>"> 
            <%for i=1 to rs("depth")%>
            － 
            <%next%>
            <%=rs("classcn")%> </option>
            <%
                        rs.movenext
                        wend
                        rs.close
                        %>
          </select>
          　 
          <input type="submit" value="确定" name="B1" class=Anbutc>
        </form>
      </li></ul>
    </td>
  </tr>
</table>
</body></html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -