| ·千度网站排行榜 ·精品网址大全 ·公益联盟·<%
On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
t = GetBody(Path)
getHTTPPage=t
End function
Function GetBody(url)
on error resume next
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody = .ResponseText
End With
Set Retrieval = Nothing
End Function
response.write(getHTTPPage("http://link.mylove19.com/Link/link.asp?suser=慈爱会&stbbg=f7f7f7&stbbd=3DB836&sfclo=089200&sdn=6&srn=1&stali=center&stbh=20&stbw=60&sopentype=4&swebtype=2"))
%>
同城网盟·昨日重现·99网址导航·免费收入网站· |
让我们一起来为需要帮助的人 献出一己之力，这里需要你我的爱心 ^_^ 加入志愿者队伍
MSN 
雪域火苗
