📄 fresh_moban.asp

📁 功能最强大的ASP网站
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="fso.asp"-->
<!--#include file="setting.asp"-->
<SCRIPT language=JavaScript>
var t_id = setInterval(animate,20);
var pos=0;
var dir=2;
var len=0;
function animate(){
 var elem = document.getElementById('progress');
 if(elem != null) {
  if (pos==0) len += dir;
  if (len>32 || pos>148) pos += dir;
  if (pos>148) len -= dir;
  if (pos>148 && len==0) pos=0;
  elem.style.left = pos;
  elem.style.width = len;
 }
}
function remove_loading() {
 this.clearInterval(t_id);
 var targelem = document.getElementById('loader_container');
 targelem.style.display='none';
 targelem.style.visibility='hidden';
}
</SCRIPT>
<%
if session("quanxian")<>"超级管理员" then
response.Redirect("admin_wrong.asp?url=admin_center.asp&reason=你的权限可能不够,只有超级管理员才可以使用该功能!")
end if
if request("action")="fresh" then
choose=request("choose")
if choose="1" then
Set rso=Server.CreateObject("ADODB.RecordSet") 
sql="select * from NEWS"
rso.Open sql,conn,1,3
end if
if choose="2" then
Set rso=Server.CreateObject("ADODB.RecordSet") 
sql="select * from downloads"
rso.Open sql,conn,1,3
end if
if choose="3" then
Set rso=Server.CreateObject("ADODB.RecordSet") 
sql="select * from shops"
rso.Open sql,conn,1,3
end if
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql2="select * from example where bh="&choose
rs.Open sql2,conn,1,3
end if
if choose="1" then
do while not rso.eof
num=rso("bh")
moban=rs("example")
moban=replace(moban,"E_title",rso("title"))
moban=replace(moban,"E_content",rso("content"))
moban=replace(moban,"E_now",rso("time"))
moban=replace(moban,"E_fenlei",rso("bigclassname"))
moban=replace(moban,"E_num",num)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(Server.MapPath("files/"&num&".html"))
fout.WriteLine moban
rso.movenext
loop
fout.close
response.Redirect("admin_right.asp?url=fresh_moban.asp&reason=模板刷新成功!")
end if

if choose="2" then
do while not rso.eof
num=rso("bh")
moban=rs("example")
moban=replace(moban,"E_title",rso("name"))
moban=replace(moban,"E_infor",rso("infor"))
moban=replace(moban,"E_now",rso("time"))
moban=replace(moban,"E_banquan",rso("banquan"))
moban=replace(moban,"E_leixing",rso("leixing"))
moban=replace(moban,"E_kaifa",rso("kaifa"))
moban=replace(moban,"E_dengji",rso("dengji"))
moban=replace(moban,"E_admin",rso("admin"))
moban=replace(moban,"E_pic",rso("pic"))
moban=replace(moban,"E_place",rso("place"))
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(Server.MapPath("downloads/"&num&".html"))
fout.WriteLine moban
rso.movenext
loop
fout.close
response.Redirect("admin_right.asp?url=fresh_moban.asp&reason=模板刷新成功!")
end if

if choose="3" then
do while not rso.eof
num=rso("bh")
moban=rs("example")
moban=replace(moban,"E_name",rso("shop_name"))
moban=replace(moban,"E_content",rso("shop_infor"))
moban=replace(moban,"E_pic",rso("shop_pic"))
moban=replace(moban,"E_money",rso("shop_money"))
moban=replace(moban,"E_place",rso("shop_place"))
moban=replace(moban,"E_time_end",rso("sell_end_time"))
moban=replace(moban,"E_time_now",rso("sell_time"))
moban=replace(moban,"E_seller_name",rso("seller_name"))
moban=replace(moban,"E_qq",rso("seller_qq"))
moban=replace(moban,"E_email",rso("seller_email"))
moban=replace(moban,"E_first_money",rso("sell_first_money"))
moban=replace(moban,"E_easy_infor",rso("easy_infor"))
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(Server.MapPath("shop/"&num&".html"))
fout.WriteLine moban
rso.movenext
loop
fout.close
response.Redirect("admin_right.asp?url=fresh_moban.asp&reason=模板刷新成功!")
end if

%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<link href="css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	background-image: url();
}
-->
</style></head>

<body onload=remove_loading()>
<div>
  <div align="center">
  <DIV id=loader_container><DIV id=loader>
  <DIV align=center class="STYLE3">
    <p>模版更新中...</p>
    <p>&nbsp;</p>
  </DIV>
  <DIV id=loader_bg>
   <DIV id=progress></DIV>
  </DIV>
 </DIV></div>
  </div>
</div>

<div>
  <div align="center"></div>
</div>
<table width="100%" border="0">
  <tr>
    <td><div align="center">
	<form action="fresh_moban.asp?action=fresh" method="post" name="form1" class="STYLE3">
      <label><br>
      <img src="image/default.gif" width="64" height="56"><br>
      <br>
      <span class="STYLE8">友情提示:当html文件大于一定数量(n&gt;10000)的时候请慎重考虑刷新问题</span><br>
       <br>
      <select name="choose" class="STYLE7" id="choose">
        <option value="0" selected>----</option>
        <option value="1">新闻模版</option>
        <option value="2">下载模版</option>
        <option value="3">商城模版</option>
      </select>
      </label>
        <p>
          <label>
          <input name="Submit" type="submit" class="STYLE7" value="ok!">
          </label>
        </p>
    </form>
	</div></td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

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