神马品牌网60度酒泡酒后多少度:asp生成html问题
来源：百度文库 编辑：神马品牌网 时间：2024/04/29 03:12:38
是用来读取库中的更多文件的
共有5页
more.asp?page=1
more.asp?page=2
more.asp?page=3
more.asp?page=4
more.asp?page=5
我怎么通过fso将其分别生成五个html文件呢?同时命名为
more_1.htm
more_2.htm
more_3.htm
more_4.htm
more_5.htm
静态页中有 首页,下一页,上一页,未页等
如何制作??
先谢谢了.
先20分,满意后再20分,共40分.
为何要用fso，直接在一个页面显示不通的内容不就完了，这样做即省地方还方便管理
我的MSN是aswangyang@hotmail.com ，你要是真的想学那我教你
<%
top="<html><head><title>新闻</title></head><body>"
top=top&request("content")
botom="</body></html>"
msg=request.Form("content1")
msg=top&msg&botom
Set fs=Server.CreateObject("Scripting.FileSystemObject")
all_tree2=server.mappath("news")&""&chan_data(now)
if (fs.FolderExists(all_tree2)) then'判断今天的文件夹是否存在
else
fs.CreateFolder(all_tree2)
end if
pass=chan_file(now)
randomize '使用系统计时器来初始化乱数产生器
pass=rnd(pass)
pass=get_pass(pass)
pass=left(pass,10)
file1=pass
files=file1&".txt"
'all_tree2为以今天日期命名的文件夹名称
filez=all_tree2&""&files
set ts = fs.createtextfile(filez,true) '写文件
for z=1 to len(msg)
write_now=mid(msg,z,1)
ts.write(write_now)
next
ts.close
set ts=nothing '文件生成
if err.number<>0 or err then%>
<script language="javascript">
alert("不能完成")
</script>
<%else%>
<script language="javascript">
alert("已完成")
history.back();
</script>
<%
end if
Set MyFile = fs.GetFile(filez)
all_tree2=server.mappath("news")&""&chan_data(now)
if (fs.FolderExists(all_tree2)) then
else
fs.CreateFolder(all_tree2)
end if
MyFile.name= left(MyFile.name,len(MyFile.name)-4)&".htm"
set MyFile=nothing
set fs=nothing
set fdir=nothing
%>