<%''转载请保留版权:711网络(www.tc711.com) QQ:187367103

On Error Resume Next            '忽略掉所有非致命性错误
   Server.Scripttimeout=999   '设置运行超时
 
sDate = Application("tc711.com")
If IsEmpty(sDate) Or DateDiff("n",sDate,Now())>1 Then
        '当没有记录时间或记录时间与当前服务器时间不一至时生成HTML并记录下当前时间
        Application.Lock
        Application("tc711.com") = Now()        '记录当时的时间
        Application.UnLock
  
  
   Function Getbody(Url)           '然后调用xmlhttp组件创建一个对象并进行初始化设置。
   On Error Resume Next
   Set Retrieval = Createobject("Microsoft.Xmlhttp")
    
   Retrieval.Open "Get", Url, False, "", ""
   Retrieval.Send
   Getbody = Retrieval.Responsebody
   Set Retrieval = Nothing
   End Function
 
  Function BytesToBstr(body,Cset)         '默认的utf-8编码转换成gb2312编码
    dim objstream
    set objstream = Server.CreateObject("adodb.stream")
    objstream.Type = 1
    objstream.Mode =3
    objstream.Open
    objstream.Write body
    objstream.Position = 0
    objstream.Type = 2
    objstream.Charset = Cset
    BytesToBstr = objstream.ReadText
    objstream.Close
    set objstream = nothing
  End Function
   pageurl="http://www.tc711.com/2006"  '这个自己修改即可
   url=pageurl &"/index.asp" '动态页地址
   pageurls="index.html" '生成的静态页地址
   pageurlss=server.MapPath(pageurls)
   set fso= Server.CreateObject("Scripting.FileSystemObject")
   set pagefile=fso.CreateTextFile(pageurlss,true)
   page=Gethttppage(url)
   'response.Write page
   pagefile.WriteLine page
   pagefile.close
   response.Write("----生成成功！！<a href="&pageurls&">返回查看</a>")
   else
      response.Write("----不需要生成-----")
   End If

''转载请保留版权:711网络(www.tc711.com) QQ:187367103

%>