ASP+FSO+框架实现ASP生成htm并分页的方法(批量) _ASP技巧

HtmlStartName=Request.Querystring("HtmlStartName")'获得生成htm文件名前缀

Dim sql'搜索字符串,这里我就直接打开表不用搜索变量了，搜索条件按自己写就可以

sql="select * from Hotel where [City] = '" & City & "' "

Dim oRs'数据操作对象

Dim PageCounts'实现分页生成必须得知呀有多少页

Set oRs = Server.CreateObject("ADODB.Recordset")

oRs.Open Sql,oConn,1,1'找开酒店等于City变量的表

oRs.pagesize=10'十个记录为一页

PageCounts=oRs.pagecount'得出要生成多少个页面，循环生成使用

Dim fs'定义fso文件对象

Dim folders'存放生成静态页的文件夹名称

Dim Filestart'定义生成htm文件前缀

Set fs=Server.CreateObject("Scripting.FileSystemObject")

Dim i

for i=1 to PageCounts'开始循环生成页面,也就是分页生成了

page=i

oRs.absolutepage=i'页码

rowcount=oRs.pagesize'当页记录数

folders=server.mappath("CityHtml")

if (fs.FolderExists(folders)) then'判断文件夹是否存在

else

fs.CreateFolder(folders)'不存在则创建CityHtml文件夹

end if

if i=1 then

Filestart=HtmlStartName'如果为第一页则定义文件名为传值名.例如beijing则为beijing.htm

else

Filestart=HtmlStartName&i'如果第二页则为beijing+1例如有两页也就是i等于2则为 beijing2.htm如此类推...(.htm后缀就在后面加上)

end if

Dim files'定义生成文本文件名称变量

Dim filez'定义文件路径名称变量

files=Filestart&".txt"'本文件名称

filez=folders&"\"&"files'文本文件路径

'册除文件

Dim checkfile'检查文本文件是否已经存在,是则删除

checkfile=server.mappath("CityHtml\"&Filestart&".htm")'检查htm文件是否已经存在,是则删除

if (fs.FileExists(checkfile)) then'检查htm文件是否已经存在,是则删除

Dim df'定义文件对象*删除文件使用*

Set df=fs.GetFile(checkfile)'定义要册除的文件