<%
ServerURL="http://google.com/" '要抓的網址
Set Mail1 = Server.CreateObject("CDO.Message")
Mail1.CreateMHTMLBody ServerURL,31
AA=Mail1.HTMLBody
Set Mail1 = Nothing
AA=replace(AA,"<","< ")
Response.Write AA %>
全站熱搜
<%
ServerURL="http://google.com/" '要抓的網址
Set Mail1 = Server.CreateObject("CDO.Message")
Mail1.CreateMHTMLBody ServerURL,31
AA=Mail1.HTMLBody
Set Mail1 = Nothing
AA=replace(AA,"<","< ")
Response.Write AA %>