私のキーの認証が成功しました
転載する場合は出典を明示してください http://blog.csdn.net/qxs965266509 、ご注意ください!
Aicha Express API 説明書 API アドレス:
以前: http://api.ickd.cn/?com=[]&nu=[]&id=[]&type=[]&encode=[]&ord=[]&lang=[]
現在: http://api.ickd.cn/?id=[]&secret=[]&com=[]&nu=[]&type=[]&encode=[]&ord=[]&lang=[]
パラメータの説明
Response.Charset="gb2312"
Server.ScriptTimeout = 999999999
ディム検索
薄暗いURL、nu、com
com = Request("com")'会社
Dim AppKey、SendURL、ResponseTxt
AppKey = "xxxxxxxxxx" 'XXXXXX を http://www.ickd.cn/reg.html で申請した KEY に置き換えてください
SendURL="http://api.ickd.cn/?id="&AppKey&"&com="&com&"&nu="&nu&"&type=json&encode=GBK"'UTF8 を使用する場合は、encode=utf8 であることを確認してください
「データを送信する」
ResponseTxt=fopen(SendURL) '//ソースコードを取得する関数
'データ送信コンポーネントを呼び出す
関数 fopen(URL)
薄暗いobjXML
'Set objXML=CreateObject("MSXML2.SERVERXMLHTTP.3.0") 'XMLHTTP コンポーネントを呼び出します。サーバーがサポートしていない場合は、次の 2 つのいずれかを使用して再試行してください。
objXML=Server.CreateObject("Microsoft.XMLHTTP") を設定します
'objXML=Server.CreateObject("MSXML2.XMLHTTP.4.0") を設定します
'objXML.SetTimeouts 5000, 5000, 30000, 10000' DNS 名の解析のタイムアウト、Winsock 接続の確立のタイムアウト、データ送信のタイムアウト、および応答受信のタイムアウト。単位はミリ秒
objXML.Open "GET",URL,False 'APIクエリデータを同期的に取得します
objXML.Send() '送信
If objXML.Readystate<>4 then 'ステータスは 4 ではありません。エラー
Response.Write "{status:0,errCode:100,message:'データ取得エラー'}"
終了関数
終了したら
'Readystate 属性は XML ファイル データの現在のステータスを返します。戻り値は次のとおりです:
'0-UNINITIALIZED: XML オブジェクトは生成されましたが、ファイルはロードされませんでした。
'1-LOADING: ロードは進行中ですが、ファイルの解析はまだ開始されていません。
'2-LOADED: 一部のファイルはロードおよび解析されましたが、オブジェクト モデルはまだ有効になっていません。
'3-INTERACTIVE: ロードされた部分ファイルに対してのみ有効です。この場合、オブジェクト モデルは有効ですが、読み取り専用です。
'4-COMPLETED: ファイルは完全にロードされており、ロードが成功したことを示します。
fopen=objXML.ResponseBody
fopen=BytesToBstr(objXML.ResponseBody)' は情報を返し、関数定義エンコーディングを使用します。トランスコードする必要がある場合は、
を選択してください。
objXML=Nothing'Close を設定します
Err.number0 の場合
Response.Write "{status:0,errCode:100,message:'データ取得エラー'}"
エラークリア
終了したら
関数の終了
関数 BytesToBstr(body)
薄暗いオブジェクトストリーム
Set objstream = Server.CreateObject("Adodb.Stream") '// adodb.stream コンポーネントを呼び出します
objstream.Type = 1
objstream.Mode =3
objstream.開く
objstream.本文を書く
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "GBK" '元のデフォルトのエンコーディングを GB2312 エンコーディングに変換します。そうしないと、XMLHTTP を直接使用して中国語の文字を含む Web ページを呼び出すと、コードが文字化けします
BytesToBstr = objstream.ReadText
objstream.閉じる
objstream = 何も設定しない
関数の終了
Response.ResponseTxt の書き込み
%>