ASP调用手机号码查询接口示例

方法1:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<% Option Explicit
'=========================================================
' File      : .asp
' Version   : 1.0.0.0
' Create    : 
' Modify    : 
'=========================================================
' 1.0.0.0   : 
'========================================================= %>
<% Dim mobile,datatype,token,url

mobile = "13063012364"
datatype = "txt"
token = "00d5cb1fac5dc5cbfe2ff218292a2dfd33"    '用户中心查看您的token
url = "http://api.ip138.com/mobile/?mobile="&mobile&"&datatype="&datatype&"&token="&token

Response.Write (GetURL(url))

Function GetURL(url)
    on error resume next
    dim Retrieval
    Set Retrieval = Server.CreateObject("MSXML2.ServerXMLHTTP")
            Retrieval.setTimeouts 600000, 600000, 600000, 600000
            Retrieval.Open "GET", url, false
            Retrieval.Send
            GetURL = Retrieval.ResponseBody
    Set Retrieval = Nothing
    GetURL=BytesToBstr(GetURL,"utf-8")
End Function

Function BytesToBstr(strBody,CodeBase)
        dim objStream
        set objStream = Server.CreateObject("Adodb.Stream")
        objStream.Type = 1
        objStream.Mode =3
        objStream.Open
        objStream.Write strBody
        objStream.Position = 0
        objStream.Type = 2
        objStream.Charset = CodeBase
        BytesToBstr = objStream.ReadText 
        objStream.Close
        set objStream = nothing
End Function
 %>






Copyright © 2014 ASP技巧教程源码大全 All Rights Reserved
晋ICP备14006235号-3 页面执行时间:93.750毫秒 返回顶部