[Urgent] Please help change the weather in the code below to Tai'an's weather~
p>
<%@ Language=VBScript %>
<%
'Get remote file
Function GetURL(url)
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "GET", url, False
.Send
GetURL = .responsebody
GetURL = Bytes2BStr(GetURL) < /p>
if len(.responsebody)<100 then
response.write "Error: Get URL"
response.end
end if
End With
Set Retrieval = Nothing
End Function
'
Question supplement: Binary Function bytes2bstr(vin)
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
< p>end ifnext
bytes2bstr = strreturn
End Function
'Get the text between specific words
Function GetBetween(Text0, Text1, Text2)
tmp_pos_1 = Instr(Text0, Text1)
tmp_pos_2 = Instr(Text0, Text2)
GetBetween = Mid(Text0, tmp_pos_1 + len(Text1), tmp_pos_2 - tmp_pos_1 - len(Text1))
End Function
function city(code)