当前位置:首页 > 网站维护 > 列表

ASP 批量分批生成静态文件

来源:浦一科技点击:时间:2016-10-18 关键词:ASP 批量生成 静态文件
ASP批量生成静态HTML的实例程序,可以批量生成,也可以批量删除,页面没有怎么美化,关键是想实现ASP生成静态的功能。生成HTML速度很快DimStarTimeDimcnt:cnt=1StarTime=Timer()start=request("start"

ASP批量生成静态HTML的实例程序,可以批量生成,也可以批量删除,页面没有怎么美化,关键是想实现ASP生成静态的功能。生成HTML速度很快

Dim StarTime
Dim cnt:cnt = 1
StarTime = Timer()

start = request("start") '获取本轮指针的开始位置
If IsNumeric(start) Then start = CLng(start) Else start=1
If start=0 Then start = 1

set rs4=server.createobject("adodb.recordset")
sql="select * from gjc"
rs4.open sql,conn,1,1
rs4.AbsolutePosition = start
while not rs4.eof and cnt < 21
k=rs4("tags")
py=rs4("pinyin")
title=rs4("title")

Call CheckAndCreateFolder("/ganxi/"&py)
FileName="/ganxi/"&py&"/index.html" '要生成的文件路径及地址
UrlPath ="http://www.021jz.com.cn/2.asp?key="&k&"&t="&title&"&"
Call SaveToFile(FileName,GetTheHTMLCode(UrlPath))

cnt = cnt + 1
start = start + 1
rs4.movenext
wend
if not rs4.eof Then '通过刷新的方式进行下一轮请求,并将指针变量start传递到下一轮
response.write "<meta http-equiv='refresh' content='0;URL=?start="&start&"'>"
else

Dim EndTime
EndTime = Timer()
sj=FormatNumber((EndTime - StarTime) * 1000, 3)
sj=sj/1000

response.write "<script language='javascript'>" & chr(13)
response.write "alert('批量生成成功,所需时间:"&sj&" 秒');" & Chr(13)
response.write "window.document.location.href='index.asp?page="&pg&"';"&Chr(13)
response.write "</script>" & Chr(13)
Response.End
end if

服务项目

网站建设

网站建设

通过SEO优化技术,提供更多的展示机会,带来大量精准流量和询盘,每月意向客户增长20%。

手机网站建设

手机网站建设

手机网站的时代强势来袭,赢在全网营销时代,手机+电脑双剑合璧,把握商机滴水不漏。

网站维护

网站维护

一个好的网站需要定期或不定期地更新内容,才能不断地吸引更多的浏览者,增加访问量。

整合网络营销

整合营销

为了建立、维护和传播品牌,以及加强客户关系,而对品牌进行计划、实施和监督的一系列营销

预约建站
免费提供网站优化
领取关键词