www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/makehtmlall.asp

    <%Admin="InfoMake"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_info.asp"-->
<!--#include file="top.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta copy="WWW.2KY.CN 共享世纪">
<title>批量生成HTML</title>
<link rel="stylesheet" href="admin.css" type="text/css">
</head>
<body>
<%
'==========================================
'
'  晓宇听幽新闻文章管理系统 2004
'
'  主页地址:http://www.xoYu.com
'
'==========================================
'程序名称:晓宇听幽新闻文章管理系统
'英文名称:xoYu News 2004 Professional
'程序创建时间:2003-7-10
'程序完成时间:2003-9-11
'最后修改时间:2003-10-10
'==========================================
Ds=timer()
set rs=server.createobject("adodb.recordset")
if request("type")="date" then
  if request("Dday")<>"" then
    Ddate=request("Dyear")&"-"&request("Dmonth")&"-"&request("Dday")
    sql="select id from info where date like '"&Ddate&"%'"
  else
    Ddate=""&request("Dyear")&"-"&request("Dmonth")&"-"
    sql="select id from info where date like '"&Ddate&"%'"
  end if
elseif request("type")="new" then
  if request("newshu")>0 then
   sql="select top "&cint(request("newshu"))&" id from info order by date desc"
  end if
elseif request("type")="list" then
 if request("ts")<>"" then
  rs.open ("select * from infotype where ts like '"&request("ts")&"%'"),conn,1,1
  if not rs.eof then
   do while not rs.eof
   sqqq=sqqq& ""&rs("id")&", "
   rs.MoveNext
   loop
  end if
  rs.close
  sql="select id from info where tid in ("&sqqq&")"
 end if
elseif request("type")="xoYuStudioID" then
  xoYuStudioID=replace(request("xoYuStudioID"),",",", ")
  sql="select id from info where id in("&xoYuStudioID&")"
elseif request("type")="all" then
  sql="select id from info order by date desc"
end if

if sql<>"" then
response.write"<b><font color=""#FF0000"">正在生成文章内容页的Html页,请等待......</font></b><span id=showImport></span><IE:Download ID=""oDownload"" STYLE=""behavior:url(#default#download)"" />"
   if request("p")<>"" then
     p=cint(request("p"))
     D=request("D")
   else
     p=1
     D=Ds
   end if
MaxPerPage=100
rs.open sql,conn,1,1
if not rs.eof then
rs.pagesize=MaxPerPage '得到每页数
mpage=rs.pagecount     '得到总页数
allshu=rs.recordcount  '得到总数
rs.move  (p-1)*MaxPerPage
do while not rs.eof
i=i+1
call MakeHtml()
if i>=MaxPerPage then exit do
rs.movenext
loop
end if
rs.close
Sshu=MaxPerPage*p-MaxPerPage+1
Tshu=Sshu+i-1

if allshu<Sshu then
 set rs=nothing
 conn.close
 set conn=nothing
 response.redirect "makehtmlall.asp?type=ok&type2="&request("type")&"&shu="&request("shu")&"&D="&d&"&p="&p+1&""
 response.end
else
 response.write"<meta http-equiv=""refresh"" content=""0;url='makehtmlall.asp?type="&request("type")&"&xoYuStudioID="&request("xoYuStudioID")&"&ts="&request("ts")&"&newshu="&request("newshu")&"&Dyear="&request("Dyear")&"&Dmonth="&request("Dmonth")&"&Dday="&request("Dday")&"&shu="&Tshu&"&D="&D&"&p="&p+1&"'"">"
 response.write"<br>正在生成:第("&Sshu&"-"&Tshu&")个 共"&allshu&"个"
end if

Sub MakeHtml()
response.write"<script>function onDownloadDone(downDate){showImport.innerHTML=downDate}oDownload.startDownload('makehtml.asp?id="&rs("id")&"',onDownloadDone)</script>"
end Sub
else
sql="select count(*) from info"
rs2=conn.execute(sql)
shu=rs2(0)
set rs=nothing
conn.close  
set conn=nothing
response.write"<b>批量生成HTML文章内容页"
if request("type")="ok" then
if request("type2")="xoYuStudioID" then
response.write("<script>alert('成功:共生成页面("&request("shu")&")个,总费时("&FormatNumber((timer()-request("D")),2)&")秒,完成时间("&Now()&")\n\n点击[确定]返回');history.go(-1)</script>")
response.end
else
response.write"<br><br>操作成功:共生成页面<font color=""#FF0000"">"&request("shu")&"</font>个,总费时<font color=""#FF0000"">"&FormatNumber((timer()-request("D")),2)&"</font>秒,完成时间"&Now()&""
end if
end if
response.write"</b><ul><li><form name=""xoYuStudio"" method=""post"" action=""makehtmlall.asp?type=date"">按日期生成文章Html页:<select size=""1"" name=""Dyear"">"
for i=2001 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=""buttonface"" value=""确认"" type=""submit""></form></li><li><form name=pdd method=""post"" action=""makehtmlall.asp?type=new"">"
response.write"生成最新<input size=8 name=""newshu"" value=""0"">个文文章Html页<input name=""change"" class=""buttonface"" value=""确认"" type=""submit""></form></li><li>"
response.write"<form name=pid method=""post"" action=""makehtmlall.asp?type=all"">生成所有文章Html页<input name=""change"" class=""buttonface"" value=""确认"" type=""submit""> (共<font color=""#FF0000"">"&shu&"</font>个)</form></li></ul>"
end if%>
</body></html>