asp生成静态页的代码

<%
exec="select top 10 id,url from ruby where url=''"'这里是想到网速的问题!
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,3,3
do while not rs.eof

Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set file_w = fs.CreateTextFile(server.MapPath("./html/"&rs("id")&".html"))
file_w.WriteLine("测试")
response.Write("Success!
生成生成html文件。文件已保存到："&server.MapPath("./html/"&rs("id")&".html")&"
")
file_w.close
set file_w=nothing
set fs=nothing
rs("url")="./html/"&rs("id")&".html"
rs.update
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=Nothing
%>

=================

<%
Function bstr(vIn)
Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bstr = strReturn
End Function

Function GetURL(url)
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "GET", url, false
.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
.Send
GetURL = .ResponseBody
End With
Set Retrieval = Nothing
GetURL=bstr(GetURL)
End Function%>
<%
Server.ScriptTimeout = 999999
Set FOS =Server.CreateObject("Scripting.FileSystemObject")
exec="select id from ruby order by id desc" '考虑到网速的问题
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3

do while not rs.eof
if FOS.FileExists(server.MapPath(rs("id")&".html"))=true then
Response.write"文件"&rs("id")&".htm 已生成
"
else
htmstr=getUrl("http://www.cuku.net/html/show.asp?id="&rs("id"))
Set file_w = FOS.CreateTextFile(server.MapPath(""&rs("id")&".html"),true)
file_w.WriteLine(htmstr)
response.Write ("Success!
生成生成html文件。文件已保存到：/"&rs("id")&".html")&"
"
file_w.close
set file_w=nothing
end if
if rs.eof then
response.write"生成完成"
exit do
end if
rs.movenext
loop
set FOS=nothing
rs.close
set rs=nothing
conn.close
set conn=Nothing
%>
<%
'exec="select top 10 id,url from ruby where url=''"'这里是想到网速的问题!
'set rs=server.createobject("adodb.recordset")
'rs.open exec,conn,1,3
'if rs.eof then
'response.Write("没有记录")
'else
'do while not rs.eof
'
'Set fs=Server.CreateObject("Scripting.FileSystemObject")
'Set file_w = fs.CreateTextFile(server.MapPath("./html/"&rs("id")&".html"))
'file_w.WriteLine("测试")
'response.Write("Success!
生成生成html文件。文件已保存到："&server.MapPath("./html/"&rs("id")&".html")&"
")
'file_w.close
'set file_w=nothing
'set fs=nothing
'rs("url")="./html/"&rs("id")&".html"
'rs.update
'rs.movenext
'loop
'rs.close
'set rs=nothing
'conn.close
'set conn=Nothing
'end if

%>