4 then
exit function
end if
getHTTPPage=BytesToBstr(Http.responseBody,"GB2312")
set http=nothing
if err.number0 then err.Clear
end function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
objstream.Charset = "GB2312"
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
Dim Url,Html,tstitle,totitle
tstitle=""
totitle=""
Url="http://localhost:89/location.dll/guess?x="&ditulon&"&y="&ditulat&""
Html = getHTTPPage(Url)
Title=GetBody(Html,tstitle,totitle,False,False)
mapctext=Split(title,",")(0)
mapetext=Split(title,",")(1)
mapctext=Split(title," ")(0)
%>
悬赏30分,有满意答案,立即赠送剩余的70分!
在线等…………
|