[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

next

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)