<%@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 = "https://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
                                            %>
                                        

                                            <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
                                            <% Option Explicit
                                            '=========================================================
                                            ' File      : .asp
                                            ' Version   : 1.0.0.0
                                            ' Create    : 
                                            ' Modify    : 
                                            '=========================================================
                                            ' 1.0.0.0   : 
                                            '========================================================= %>
                                            

                                            <% Dim mobile,datatype,token,url,strMid,oid,sign
                                            mobile = "13063012364"
                                            strMid = 777    '用户中心查看您的mid
                                            oid = 777   '用户中心查看您的oid
                                            datatype = "txt"
                                            token = "00d5cb1fac5dc5cbfe2ff218292a2dfd33"    '用户中心查看您的token
                                            url = "https://api.ip138.com/mobile/?"
                                            sign = MD5_32("mobile="&mobile&"&token="&token)
                                            %>

                                            <script type="text/javascript">
                                            
                                            </script>
                                            <script type="text/javascript" src="<%= url&"mobile="&mobile&"&callback=find&mid="&strMid&"&id="&oid&"&sign="&sign %>"></script>