<%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from hotel where htmltime < '"& now()&"'"
rs.open sql,conn,1,3
if not (rs.eof and rs.bof) then
strHTML = GetHttpPage("http://www.qq-oo.com/web/hotel_show.asp?id="&rs("id")&"&city="&rs("city")&"",0)
Call WriteToFile("web/hotel_"&rs("id")&".html", strHTML)
conn.execute ("update hotel set htmltime='"&now()+uphtmltime&"' where id="&rs("id"))
'Response.Write "web/hotel_"&rs("id")&".html update hotel set htmltime='"&now()+uphtmltime&"' where id="&rs("id")
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
%>