<%
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>
减小字体
增大字体