超長文章內容如何進行分頁並產生HTML檔案?

來源:互聯網
上載者:User
分頁|產生html

以下是程式原始碼:
<% 
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>



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。