Traditional Culture Encyclopedia - Weather inquiry - [Urgent] Please help change the weather in the code below to Tai'an's weather~
[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)
- Previous article:What are the poems about famous mountains and rivers?
- Next article:Translation of learning pleasure
- Related articles
- How to make egg white into cream?
- Why is the temperature difference between sunny and rainy days greater in winter?
- What kind of experience is it to live in Taian?
- Poems about a clear conscience
- My girlfriend and I are in a long-distance relationship, and I find that we are getting farther and farther away. What should I do?
- Introduction to the labyrinth map of Xianjian Inn (with pictures)
- Self-defense What's the name of 4steam
- February 20 10 (that is, the 25th day of the first lunar month, the Spring Festival is coming soon) I want to climb Mount Tai. Who can recommend and help estimate the specific tourist routes and costs
- Xiaomi Mijia projector 2 Pro evaluation: built-in Xiao Ai classmate, omni-directional auto-correction focusing
- A must-see attraction in Xiachuan Island.