点击这里给我发消息 点击这里给我发消息

超长文章内容如何进行分页并生成HTML文件?

添加时间:2013-12-6
    相关阅读: 程序 HTML JavaScript
以下是程序源代码:
<% 
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>
咨询热线:020-85648757 85648755 85648616 0755-27912581 客服:020-85648756 0755-27912581 业务传真:020-32579052
广州市网景网络科技有限公司 Copyright◎2003-2008 Veelink.com. All Rights Reserved.
广州商务地址:广东省广州市黄埔大道中203号(海景园区)海景花园C栋501室
= 深圳商务地址:深圳市宝源路华丰宝源大厦606
研发中心:广东广州市天河软件园海景园区 粤ICP备05103322号 工商注册