原理：通过浏览器传送变量，如hFNHTML5中文学习网 - HTML5先行者学习网

http://127.0.0.1/shengcheng.asp?id=90hFNHTML5中文学习网 - HTML5先行者学习网

代码：
if SaveFile("/new/"&id&".html","http://127.0.0.1/news.asp?id="&id&"") then 中hFNHTML5中文学习网 - HTML5先行者学习网

/new"&id&".html",是你生成的文件和路径。http://127.0.0.1/news.asp?id="&id&""是asp的路径
大家可以自己设置修改，其中 "&id&" 是读取浏览器的变量。网址改成你自己的。hFNHTML5中文学习网 - HTML5先行者学习网

使用方法，给你的文章列表添加一个连接，如 http://127.0.0.1/shengcheng.asp?id=90hFNHTML5中文学习网 - HTML5先行者学习网

90这个变量相信大家会调用吧，这样就能在/new目录下生成按照id排列的html文章了hFNHTML5中文学习网 - HTML5先行者学习网

shengcheng.asp文件如下：hFNHTML5中文学习网 - HTML5先行者学习网

<%   
 
Dim id   
 
id = Request("id")   
 
%>   
 
<%   
 
if SaveFile("/new/"&id&".html","http://127.0.0.1/news.asp?id="&id&"") then   
 
Response.write "已生成"   
 
else   
 
Response.write "没有生成"   
 
end if  
 
function SaveFile(LocalFileName,RemoteFileUrl)   
 
Dim Ads, Retrieval, GetRemoteData   
 
On Error Resume Next   
 
Set Retrieval = Server.CreateObject("Microso" & "ft.XM" & "LHTTP") '//把单词拆开防止杀毒软件误杀  
 
With Retrieval   
 
.Open "Get", RemoteFileUrl, False, "", ""   
 
.Send   
 
GetRemoteData = .ResponseBody   
 
End With   
 
Set Retrieval = Nothing   
 
Set Ads = Server.CreateObject("Ado" & "db.Str" & "eam") '//把单词拆开防止杀毒软件误杀  
 
With Ads   
 
.Type = 1   
 
.Open   
 
.Write GetRemoteData   
 
.SaveToFile Server.MapPath(LocalFileName), 2   
 
.Cancel()   
 
.Close()   
 
End With   
 
Set Ads=nothing   
 
if err <> 0 then   
 
SaveFile = false   
 
err.clear   
 
else   
 
SaveFile = true   
 
end if   
 
End function   
 
%> 
 

随着网站访问量的加大，每次从数据库读取都是以效率作为代价的，很多用ACCESS作数据库的更会深有体会，静态页加在搜索时，也会被优先考虑。互联网上流行的做法是将数据源代码写入数据库再从数据库读取生成静态面，这样无形间就加大了数据库。将现有的ASP页直接生成静态页，将会节省很多。