史上最精简HTML生成ASP代码（可直接用于W78）
<!--#include file="conn.asp"--> //连接数据库
<meta http-equiv="Refresh" />
<%sql = "SELECT * FROM news order by id desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,conn,1,3
do while not rs.eof%>
<%url = "http://XXX/shownews.asp?id="&rs("id")&""
set http=Server.createobject("Msxml2.XMLHTTP")
Http.open "GET",url,false
Http.send()
set objStream = Server.CreateObject("ADODB.Stream")
objStream.type = 1
objStream.open
objstream.write http.responseBody
objstream.saveToFile server.mappath("html/"&rs("id")&".htm"),2
objstream.close
rs.movenext
loop
rs.close
set rs=nothing
Response.Write " 操作成功！"%>
标签: 代码
