movie-to-htm.asp

ASP源码 / 影视音乐

<!--#include file="conn.asp"-->
<%
id=request.QueryString("id")
Dim URL,Update,startimer,endtimer,overdate
URL="http://www.dohao.com/Movie/admin/list.asp?id="&id
Update=GetURL(URL)
overdate=bytes2bstr2(Update)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath("../../M_List/DoHao_Com_" &id&".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
rs.close
set rs=nothing
response.write"<script>alert('----成功生成看电影-观看页面----');history.back();</Script>"
%>