Implementierung der ASP -Anwendung von Baidu Short URL -Dienst

Baidu Kurzer URL -Dienst Einführung: http://www.baidu.com/search/dwz.html

Es wird im Allgemeinen in PHP implementiert. Die Verwendung von ASP für die Implementierung ist also sehr einfach.

-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------- --------------------------------------- ----------------

<%@Sprache = vbscript Codepage = 65001%>

<%

Antwort.CharSet = UTF-8

Sitzung.CodePage = 65001

Sitzung.TimeOut = 1440

Server.ScriptTimeout = 99999

'Fernakquisition

Funktion posthttppage (posturl, postset, postdata, potreferr)

Wenn Instrument (lase (posturl), http: //) = 0 dann

Posthttppage = $ null $: Beendenfunktion

Ende wenn

Bei der nächsten Fehleraufnahme als nächstes

Dim posthtp

'Set posthttp = server.createObject (msxml2.xmlhttp)

'Set postHttp = server.createObject (microsoft.xmlhttp)

Set postTHTTP = server.createObject (msxml2.ServerxMlHttp)

'Set posthttp = server.createObject (msxml2.ServerxMlHttp.3.0)

'Set postHttp = server.createObject (msxml2.ServerxMlHttp.4.0)

Posthttp.settimeouts 10000, 10000, 15000, 15000

Posthttp.open post, posturl, falsch

Posthttp.setrequStheader-Inhaltslänge, Len (Postdata)

Posthttp.setRequestheader-Inhaltstyp, Anwendung/x-www-form-urlencoded

Posthttp.setRequestHeader Referer, postreferr

Posthttp.send postdata

Wenn posthttp.reamstate <> 4 und posthttp.status <> 200 dann

Setze posthttp = nichts

Posthttppage = $ null $: Beendenfunktion

Ende wenn

Posthttppage = byTestObstr (posthttp.ResponseBody, postset)

Setze posthttp = nichts

Wenn err.number <> 0 das err.clear

Wenn PostPPage = oder isnull (posthttppage) dann posthttppage = $ null $

Endfunktion

Funktion byTestObstr (Körper, cset)

Dimer Objstream

Setzen Sie objstream = server.createObject (adodb.stream)

objstream.type = 1

objstream.mode = 3

objstream.open

objstream.write?

objstream.position = 0

objstream.type = 2

objstream.charset = cset

ByTestObstr = objstream.readText

objstream.close

objstream einstellen = nichts

Endfunktion

Funktionsfunktionsurlencodierung (DataStr)

Dim Streturn, Si, ThisKr, Innercode, Hight8, Low8

Streturn =

Für Si = 1 bis Len (DatenAstr)

Ththr = mid (DataStr, Si, 1)

Wenn ABS (ASC (thiscr)) <& hff dann dann

Streturn = Streturn & ThisKR

Anders

InnerCode = ASC (tintchr)

Wenn Innercode <0 dann

Innercode = Innercode + & H10000

Ende wenn

Hight8 = (Innercode und & hff00)/ & hff

LOW8 = Innercode und & HFF

Streturn = Streturn & % & Hex (Hight8) & % & Hex (Low8)

Ende wenn

Nächste

Urlencoding = Streturn

Endfunktion

DIM Test_url: test_url = url = http://www.vevb.com/develop/asp/v74697

Dim p_data: p_data = urlencoding (test_url)

DIM V_DATE: v_date = posthtpppage (http://www.dwz.cn/create.php, utf-8, p_data, http://www.dwz.cn)

JSON -Daten erhalten von response.write: & v_date & <br/>

DIM V_JSON: Setzen Sie v_json = toobject (v_date)

Antwort.Write Original -Website: & v_json.longurl & <br/>

Response.write Short URL: & v_json.tinyurl & <br/>

Setzen Sie v_json = nichts

%>

<script Language = jscript runat = server>

Funktion toobject (json) {

Eval (var o = + json);

Rückkehr O;

}

</script>

-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ----------------------------------------------------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- --------

Die Ergebnisse des obigen Codes sind wie folgt:

JSON -Daten erhalten: {Longurl: http:///www.vevb.com//develop//asp/v74697,status: 0, Tinyurl: http: ///www.dwz.cn/2gggul}}

Original -Website: http://www.vevb.com/develop/asp/v74697

Die kurze URL erhalten: http://www.dwz.cn/2ggul