<%?
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,":","PM","AM","上午","下午","")?
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&" ?"?
Set?fso?=?Server.CreateObject("Scripting.FileSystemObject")?
Set?fout?=?fso.CreateTextFile(Server.MapPath(fname&"_"&i&".html"))?
fout.WriteLine?shtml?
fout.close?
next?
response.write""?
end?if?
%>?
?
?
?"
阿里西西_超长文件分页并生成HTML文件简单示例?
?
?
(编辑:91站长网)
【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!
|