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

 

Posted by kinomelma at 痞客邦 PIXNET Comments(1) Trackback(0) Hits(44)

Shorten Url Recommend to Front page Forward by E-mail Forward to Guestbook

▲top

open trackbacks list Trackbacks (0)

Comments (1)

Post Comment
  • #1 ^0^ on 2009/10/25 15:45

  • LQSUWWDJSX

    ---------------------------------
    在家無聊嗎 偶爾也來生活樂子吧!!
    偷菜不稀奇了 快來非爽不可吧!!^^
    您不可錯過的生活情趣
    非爽不可
    ---------------------------------

Comment Permissions: Allow commenting

Leave Comment

*Name/Nickname
E-mail
Personal Website
Comment Title
*Comment
* Private Comment