indextohtm.asp

ASP源码 / 影视音乐

<%
Dim URL,Update,startimer,endtimer,overdate
URL="http://www.dohao.com/movie/index_mb.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>"
%>