超长文章内容如何进行分页并生成HTML文件?
日期：2011-09-17 浏览次数：20977 次
| 以下是程序源代码： <% 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> |
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
