[求助]静态分页
求静态分页程序，ASP+FSO的，，？？
有高手会么？
看看我这篇文章对你有用没：
http://jclman.bokee.com/viewdiary.15014402.html
最近在做自己的承天新闻系统时候涉及到了HTML页的生成，于是参考了部分关于HTML生成的原理，便获得了一些心得。
生成HTML的方法我知道的有两种。
一，使用FSO组件的方法。
其核心代码就是：
<%
newfile=server.mappath("newfile.html") //建立生成目录及文件名
Set fso = Server.CreateObject("Scripting.FileSystemObject") //建立fso对象
set out = fso.createtextfile(newfile, true) //新建文件newfile.html,若该文件已存在，则覆盖它
out.close
set fso=nothing
response.write"新文件已建立"
%>
对文件的操作主要有写入东西，读取东西并写入，删除文件
1，那么文件建立成功后我们怎么向文件里面写入东西呢？
其实很简单，就是在新建文件后再加入一句写入内容命令
Out.writeline htmlcode
<%
newfile=server.mappath("newfile1.html") //建立生成目录及文件名
htmlcode=”这就是我写入的内容”
Set fso = Server.CreateObject("Scripting.FileSystemObject") //建立fso对象
set out = fso.createtextfile(newfile, true) //新建文件newfile1.html,若该文件已存在，则覆盖它
out.writeline htmlcode //写入内容
out.close
set fso=nothing
response.write"新文件已建立并已写入东西"
%>
2，那么我们可以向文件里面写东西了，怎么来读取我们要写的内容呢？
这个问题涉及到两个方面，一个就是读取网络中远程文件再生成文件，这里就用到了xmlhttp方法：
<%
set xml = server.createobject("microsoft.xmlhttp")
xml.open "get", "http://127.0.0.1/showart.asp?id=10", false //把地址替换成你要生成的文件地址,一定要用http://开头的绝对路径,不能写相对路径
xml.send
htmlcode=xml.responsebody
htmlcode=bytestobstr(bodytext,"gb2312")
set xml = nothing
newfile=server.mappath("newfile1.html") //建立生成目录及文件名
Set fso = Server.CreateObject("Scripting.FileSystemObject") //建立fso对象
set out = fso.createtextfile(newfile, true) //新建文件newfile1.html,若该文件已存在，则覆盖它
out.writeline htmlcode //写入内容
out.close
set fso=nothing
response.write"新文件已建立并已写入从http;//读取来的内容"
%>
另一个就是从本地模板读取，这里用到FSO的opentextfile，下面是读取yuan.txt的内容并生成readresult.html：
<%
Newfile= server.mappath("readresult.html”)
Openfile= server.mappath("yuan.txt”) //读取文件的路径
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set open=fso.opentextfile(openfile)
Opentext=open.readall //读取文件的内容
Open.close
Set out=fso.createtextfile(newfile,true)
Out.writeline opentext
Out.close
Set fso=nothing
response.write("新文件readresult.html已建立并已写入从本地yuan.txt读取来的内容")
%>
3，文件读取了写入了也生成了，那么我们怎么来移动，复制和删除文件呢？
这里用到file.move,file.copy和file.delete
<%
file= server.mappath(delete.txt) //要操作文件的路径
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set out=fso.getfile(file)
Out.delete
set fso=nothing
response.write("删除yuan1.txt文件成功")
%>
到次为止，我对运用FSO对文件的操作也感觉比较有结构了。
[此贴子已经被作者于2007-5-8 18:59:26编辑过]
