asp获取网络时间

百度提供的校时服务器

<%
Function TimeToSecond(Str)'时间转为秒函数
Str = DateDiff("s",Str,"1970-01-01 08:00:00")
TimeToSecond = Str
End Function

Function SecondToTime(Str)'秒转为时间函数
Str = DateAdd("s",Str,"1970-01-01 08:00:00")
SecondToTime = Str
End Function'

'得到北京时间
function getBeijingTime()
SinaHtml=GetURL("https://gss0.baidu.com/8aQDcnSm2Q5IlBGlnYG/app?module=beijingtime")
SinaHtml=Bytes2BStr(SinaHtml)
SinaHtml=cutStr(SinaHtml)

SinaHtml=SecondToTime(SinaHtml)

alltime=split(SinaHtml," ")

getBeijingTime=alltime(1)
End function

'得到北京日期
function getBeijingDate()
SinaHtml=GetURL("https://gss0.baidu.com/8aQDcnSm2Q5IlBGlnYG/app?module=beijingtime")
SinaHtml=Bytes2BStr(SinaHtml)
SinaHtml=cutStr(SinaHtml)

SinaHtml=SecondToTime(SinaHtml)

getBeijingDate=SinaHtml
End function

''截取取回字符串 获得时间的长字符串格式
function cutStr(str)
times=""
times=right(str,15)
times=left(times,10)
cutStr=times
end function
' 二进制转字符串
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
end if
next
bytes2bstr = strreturn
end function

' 获取远程HTML
Function GetURL(url)
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "GET", url, False
.Send
set GetURL=server.CreateObject("adodb.stream")
GetURL = .responseBody
if len(.responsebody)<10 then
response.write "获取远程文件 <a href="&url&" target=_blank>"&url&"</a> 失败。"
response.end
end if

End With
Set Retrieval = Nothing
End Function

response.Write(getBeijingTime()&"<br/>")
response.Write(getBeijingDate())
%>本回答被提问者采纳