<form id="hz9zz"></form>
    • <form id="hz9zz"></form>
    

      

      <nobr id="hz9zz"></nobr>
      <form id="hz9zz"></form>
      3.   
          
      明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！
                   
        
                           
        
                        		  
        
                 
              
                
      將指定的asp文件內容生成HTML文件
                
                  發表時間：2024-06-03             來源：明輝站整理相關軟件相關文章人氣：          
              
      [摘要]<%Function GetPage(url) dim RetrievalSet Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get", url, False ...
      <%
      Function GetPage(url) 
      dim Retrieval
      Set Retrieval = CreateObject("Microsoft.XMLHTTP") 
      With Retrieval 
      .Open "Get", url, False ', "", "" 
      .Send 
      GetPage = BytesToBstr(.ResponseBody)
      End With 
      Set Retrieval = Nothing 
      End Function
      Function BytesToBstr(body)
      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 = "GB2312"
      BytesToBstr = objstream.ReadText 
      objstream.Close
      set objstream = nothing
      End Function
      on error resume next
      Url="http://www.taiang.com.cn/index.asp"
      response.write "開始更新首頁..."
      wstr = GetPage(Url)
      Set fs=Server.CreateObject("Scripting.FileSystemObject")
      'if not MyFile.FolderExists(server.MapPath("/html/")) then 
      'MyFile.CreateFolder(server.MapPath("/html/"))'
      'end if
      If (fs.FileExists(server.MapPath("./")&"\index.htm")) Then
      fs.DeleteFile(server.MapPath("./")&"\index.htm")
      End If
      Set CrFi=fs.CreateTextFile(server.MapPath("./")&"\index.htm")
      Crfi.Writeline(wstr)
      set CrFi=nothing
      set fs=nothing
      response.write "...<font color=red>更新完成！</font>"
      %>



              
              
                 
              
                                            
                              		       
                          
                           		  
        
                            
      
日韩精品一区二区三区高清