生成静态页面

<%
Dim URL,Update,startimer,endtimer,overdate
url="../index_html.asp"
Update=GetURL(URL)
overdate=bytes2bstr2(Update)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath("index.html"))
fout.WriteLine overdate
fout.close

Const adTypeText = 2
Function GetURL(URL)
    Set Retrieval = CreateObject("Microsoft.XMLHTTP")
    With Retrieval
        .Open "GET", url, False
        .Send
        GetURL = .responsebody
    End With
    Set Retrieval = Nothing
End Function
Function Bytes2bStr2(vin)
 Dim BytesStream,StringReturn

 Set BytesStream = Server.CreateObject("ADODB.Stream")
 With BytesStream
  .Type = adTypeText  
  .Open              
  .WriteText vin          

  .Position = 0           
                          
  .Charset = "GB2312"      
  .Position = 2            
  StringReturn = .ReadText
  .close                   
 End With
 Set BytesStream = Nothing 
 Bytes2bStr2 = StringReturn
End Function
response.write"<script>alert('更新成功!');history.back();</Script>"
%>