<%
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 %>

 

文章標籤
全站熱搜
創作者介紹
創作者 kinomelma 的頭像
kinomelma

基尼而絲(G.N.A.S)的大世界

kinomelma 發表在 痞客邦 留言(1) 人氣(960)