查询系统 <%On Error Resume NextServer.ScriptTimeOut=9999999Function getHTTPPage(Path) t = GetBody(Path) getHTTPPage=BytesToBstr(t,"GB2312")End function Function GetBody(url) on error resume next Set Retrieval = CreateObject("Microsoft.XMLHTT
<%On Error Resume NextServer.ScriptTimeOut=9999999Function getHTTPPage(Path) t = GetBody(Path) getHTTPPage=BytesToBstr(t,"GB2312")End function Function GetBody(url) on error resume next Set Retrieval = CreateObject(&quo