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>