生成页面，怎么改才可以批量生成100个

生成页面，如何改才可以批量生成100个？

<%
dim objXmlHttp,binFileData,objAdoStream 
id=100
set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP") 
objXmlHttp.open "GET","http://"&request.ServerVariables("HTTP_HOST")&"/show.asp?id="&id&"",false
objXmlHttp.send() 
binFileData = objXmlHttp.responseBody 
set objAdoStream = Server.CreateObject("ADODB.Stream") 
objAdoStream.Type = 1 
objAdoStream.Open() 
objAdoStream.Write(binFileData) 
objAdoStream.SaveToFile server.MapPath("/"&id&".html"),2 
objAdoStream.Close() 
set objAdoStream=nothing 
set objXmlHttp=nothing 
%>

请问如何修改为能批量生成show.asp?id=xxx是可以一次性生成1到100的id页面的内容？
------解决思路----------------------
动态获取ID就好了
------解决思路----------------------

引用:

<%
dim objXmlHttp,binFileData,objAdoStream 
id=100
set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP") 
objXmlHttp.open "GET","http://"&request.ServerVariables("HTTP_HOST")&"/show.asp?id="&id&"",false
objXmlHttp.send() 
binFileData = objXmlHttp.responseBody 
set objAdoStream = Server.CreateObject("ADODB.Stream") 
objAdoStream.Type = 1 
objAdoStream.Open() 
objAdoStream.Write(binFileData) 
objAdoStream.SaveToFile server.MapPath("/"&id&".html"),2 
objAdoStream.Close() 
set objAdoStream=nothing 
set objXmlHttp=nothing 
%>

请问如何修改为能批量生成show.asp?id=xxx是可以一次性生成1到100的id页面的内容？

上面写成一个函数，循环调用函数即可了
------解决思路----------------------
<%
function creathtm(id)
dim objXmlHttp,binFileData,objAdoStream 
set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP") 
objXmlHttp.open "GET","http://"&request.ServerVariables("HTTP_HOST")&"/show.asp?id="&id&"",false
objXmlHttp.send() 
binFileData = objXmlHttp.responseBody 
set objAdoStream = Server.CreateObject("ADODB.Stream") 
objAdoStream.Type = 1 
objAdoStream.Open() 
objAdoStream.Write(binFileData) 
objAdoStream.SaveToFile server.MapPath("/"&id&".html"),2 
objAdoStream.Close() 
set objAdoStream=nothing 
set objXmlHttp=nothing 
end function

id=100
for i=1 to 100
creathtm(id+i-1)
next
%>