日期:2011-09-17 浏览次数:20988 次
以下是程序源代码: <% dim fname,fso,fout,htmlcode dim htmlbody,htmlbody1,page_n htmlbody=request.form("body") page_n=len(htmlbody)-len(replace(htmlbody,"$","")) ’生成文件名的函数 function makefilename(fname) fname = fname fname = replace(fname,"-","") fname = replace(fname," ","") fname = replace(fname,":","") fname = replace(fname,"PM","") fname = replace(fname,"AM","") fname = replace(fname,"上午","") fname = replace(fname,"下午","") makefilename=fname end function if request.querystring("action")="add" then for i=0 to page_n fname=makefilename(now()) if i=0 then ppage=0 else ppage=i-1 end if if i=0 and page_n>i then npage=i+1 else npage=page_n end if shtml=split(htmlbody,"$")(i) & vbcrlf shtml=shtml&"<br><a href="""&fname&"_"&ppage&".html"">上一页</a> <a href="""&fname&"_"&npage&".html"">下一页</a>" Set fso = Server.CreateObject("Scripting.FileSystemObject") Set fout = fso.CreateTextFile(Server.MapPath(fname&"_"&i&".html")) fout.WriteLine shtml fout.close next response.write"<SCRIPT language=JavaScript>alert(’成功生成"&page_n+1&"个HTML页’);this.location.href=’javascript:history.back();’</SCRIPT>" end if %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>爱易学习网_超长文件分页并生成HTML文件简单示例</title> </head> <body> <form name="form1" method="post" action="?action=add"> 文章内容: <br> <textarea name="body" cols="60" rows="8"> 第一页内容 $ 第二页内容 $ 第三页内容</textarea> <br> <input type="submit" name="Submit" value="提交"> </form> </body> </html> |