Else's blog

<!--#include file="conn.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!<br>生成生成html文件。文件已保存到："&server.MapPath("./html/"&rs("id")&".html")&"<br>")    
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
%>