例如一个文章页面（1.asp）,共有11条记录，每页显示10条记录，生成静态网页后变成1.htm,1_2.htm，如何利用ASP生成具有分页的静态网页呢？ [转自：711网络工作室 http://www.tc711.com]
<%
Dim htm_lr,FileName,Fso,Ts,Path,I,J
取记录....
J=0
Do While Not Rs.Eof
For I = 1 To 10
If Not Rs.Eof Then
htm_lr = html_lr&""&vbCrLf
End If
Rs.MoveNext
Next
J=J+1
FileName = "file_"&J&".htm"
Call SaveFile(FileName,htm_lr)
Loop
Sub SaveFile(FileName,Data)
Set Fso=createobject("scripting.filesystemobject")
If instr(filename,":\")<>0 then
path=filename
Else
path=server.MapPath(FileName)
End If
Set ts=Fso.createtextfile(path,true)
ts.writeline(data)
ts.close
set ts=nothing
set Fso=nothing
End Sub
%> [转自：711网络工作室 http://www.tc711.com]
