asp文章转成html文件

SQL_Code.asp

<%
 '取网页数据
 Function GetHttp(url)
 Dim Retrieval,GetBody
  Set Retrieval = CreateObject("Microsoft.XMLHTTP")
  Retrieval.Open "Get", url, False
  Retrieval.Send
  GetBody=Retrieval.ResponseBody
  GetHttp=BytesToBstr(GetBody)
  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
 
 '------------------------WriteToHtml--------------------
 Sub WriteToHtml(Fpath,Templet)
 Set fs = CreateObject("Scripting.FileSystemObject")
 Set f = fs.CreateTextFile(Server.MapPath(Fpath), True)
 f.write(Templet)
 f.close
 Set f = nothing
 Set fs = nothing
 End Sub

%>

IndexToHtml.asp

<!--#include file="../Sql_Code.asp"-->
<%
 Response.Clear
 Response.write "<script language=""JavaScript"">" & VBCrlf & "parent.document.all.viewcode.innerHtml='';" & VBCrlf & "parent.document.all.viewcode.innerText='';" & VBCrlf

 Select Case Lcase(Trim(Request("Type")))
 
  Case "index"
   URL="http://www.jwj.cn/movie/Html/Index_Html.asp"
  TBody=GetHTTP(URL)
  WriteToHtml "../Index.html",TBody
  Response.Write ("parent.document.all.viewcode.innerHTML=""　 - System Waring : Make Index.Html File Success."";" & VBcrlf)
 Case Else
  Response.Write ("parent.document.all.viewcode.innerHTML=""　 - System Waring : Unknow Error !"";" & VBcrlf)
 End Select
 Response.write ("</script>")
 
%>

MakeHtml.asp

<br><br><Span OnClick="javascript:View.location.href='IndexToHtml.asp?Type=Index';" style="cursor:hand"><Font color=Blue>生成静态首页</Font></Span> - Index.Html
<div style="display:none"><iframe id="View" name="View" src="" width="100%" frameborder="0" scrolling="no"></iframe></div>
<br><div id="viewcode" style="color:#FF0000"></div>