html中asp页面代码怎么写,WEB-ASP:返回一个ASP页面执行后的静态HTML代码-ASP教程,ASP应用...

用这个获取页面内容，然后用邮件发出去！下面是远程获取内容的代码

content=gethttppage(“http://www.google.net”)

response.write content

function gethttppage(url)

on error resume next

dim http

set http=server.createobject(“msxml2.xmlhttp”)

http.open “get”,url,false

http.send()

if http.readystate<>4 then exit function

gethttppage=bytes2bstr(http.responsebody)

set http=nothing

if err.number<>0 then err.clear

end function

function bytes2bstr(vin)

dim strreturn

dim i,thischarcode,nextcharcode

strreturn = “”

for i = 1 to lenb(vin)

thischarcode = ascb(midb(vin,i,1))

if thischarcode < &h80 then

strreturn = strreturn & chr(thischarcode)

else

nextcharcode = ascb(midb(vin,i+1,1))

strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))

i = i + 1

end if

next

bytes2bstr = strreturn

end function