-
林朝风
发布于 2012-02-04 14:13
-
收藏
ASP: 复制代码 代码如下: <% Option Explicit Response.Buffer = true Response.ContentType = "text/html" Response.Charset = "gb2312″ Dim Url, Result Url = "http://ping.baidu.com/ping/RPC2" Result = BytesToBstr(SendPing(Url), "gb2312..