|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们)分页|天生html以下是程序源代码:
<%
dimfname,fso,fout,htmlcode
dimhtmlbody,htmlbody1,page_n
htmlbody=request.form("body")
page_n=len(htmlbody)-len(replace(htmlbody,"$",""))
’天生文件名的函数
functionmakefilename(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
endfunction
ifrequest.querystring("action")="add"then
fori=0topage_n
fname=makefilename(now())
ifi=0then
ppage=0
else
ppage=i-1
endif
ifi=0andpage_n>ithen
npage=i+1
else
npage=page_n
endif
shtml=split(htmlbody,"$")(i)&vbcrlf
shtml=shtml&"<br><ahref="""&fname&"_"&ppage&".html"">上一页</a><ahref="""&fname&"_"&npage&".html"">下一页</a>"
Setfso=Server.CreateObject("Scripting.FileSystemObject")
Setfout=fso.CreateTextFile(Server.MapPath(fname&"_"&i&".html"))
fout.WriteLineshtml
fout.close
next
response.write"<SCRIPTlanguage=JavaScript>alert(’乐成天生"&page_n+1&"个HTML页’);this.location.href=’javascript:history.back();’</SCRIPT>"
endif
%>
<html>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<title>阿里西西_超长文件分页并天生HTML文件复杂示例</title>
</head>
<body>
<formname="form1"method="post"action="?action=add">
文章内容:
<br>
<textareaname="body"cols="60"rows="8">
第一页内容
$
第二页内容
$
第三页内容</textarea>
<br>
<inputtype="submit"name="Submit"value="提交">
</form>
</body>
</html>
asp对于服务器的要求较高,一般的服务器如果访问量一大就垮了,不得不重启。 |
|