Baidu Short URL Service Introducción: http://www.baidu.com/search/dwz.html
Generalmente se implementa en PHP, por lo que cómo usar ASP para la implementación es realmente muy simple.
-------------------------------------------------- -------------------------------------------------- -------------------------------------------------- ------- ------------------------------------------- ----------------
<%@Lenguaje = VBScript CodePage = 65001%>
<%
Respuesta.Charset = UTF-8
Session.Codepage = 65001
Session.timeout = 1440
Server.scripttimeout = 99999
'Adquisición remota
Función posthttppage (posturl, postset, postdata, postreferr)
If instrer (lcase (posturl), http: //) = 0 entonces
Posthttppage = $ null $: función de salida
Final si
En el currículum de error siguiente
Dim posthtp
'Establecer posthttp = server.createObject (msxml2.xmlhttp)
'Establecer posthttp = server.CreateObject (microsoft.xmlhttp)
Establecer posthttp = server.createObject (msxml2.serverxmlhttp)
'Establecer posthttp = server.createObject (msxml2.serverxmlhttp.3.0)
'Establecer posthttp = server.createObject (msxml2.serverxmlhttp.4.0)
Posthttp.SetTimeOuts 10000, 10000, 15000, 15000
Posthttp.open post, posturl, falso
Posthttp.setrequsTheader contenido-longitud, len (postdata)
Posthttp.setRequestHeader Type de contenido, Application/X-WWW-Form-URLENCODEDEDEDED
Posthttp.setRequestheader referente, postreferr
Posthttp.send postdata
Si posthttp.reamstate <> 4 y posthttp.status <> 200 entonces
Establecer posthttp = nada
Posthttppage = $ null $: función de salida
Final si
Posthttppage = bytestobstr (posthttp.ResponseBody, PostSet)
Establecer posthttp = nada
If Err.number <> 0 el Err.Clear
Si postpage = o isnull (posthttppage) entonces posthttppage = $ null $
Función final
Función bytestobstr (cuerpo, cset)
Dim objstream
Establecer objstream = server.createObject (ADODB.Stream)
objstream.type = 1
objstream.mode = 3
objstream.
objstream.write?
objstream.position = 0
objstream.type = 2
objstream.charset = cset
Bytestobstr = objstream.readText
objstream.close
establecer objstream = nada
Función final
Función urlencoding (dataTastr)
Dim Strreturn, SI, Thiskr, Innercode, Hight8, Low8
Strreturn =
Para Si = 1 a Len (dataTastr)
Thatchr = Mid (dataTastr, Si, 1)
Si ABS (ASC (thatcr)) <& Hff entonces
Strreturn = strreturn y estekr
Demás
Innercode = asc (Thatchr)
Si InnerCode <0 entonces
InnerCode = innerCode + y H10000
Final si
Hight8 = (InnerCode y & Hff00)/ & Hff
Low8 = InnerCode y & HFF
Strreturn = strreturn & % & hex (Hight8) & % & hex (Low8)
Final si
Próximo
Urlencoding = strreturn
Función final
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)
Datos JSON obtenidos por Response.Write: & v_date & <br/>
Dim v_json: set v_json = toObject (v_date)
Response.Write Sitio web original: & v_json.longarl & <br/>
Response.Write Short URL: & v_json.tinyurl & <br/>
Establecer v_json = nada
%>
<script language = jscript runat = servidor>
Function toObject (json) {
Eval (var o = + json);
Regreso o;
}
</script>
-------------------------------------------------- -------------------------------------------------- -------------------------------------------------- -------------------------------------------------- -------------------------------------------------- -------------------------------------------------- -------------------------------------------------- --------
Los resultados del código anterior son los siguientes:
Datos JSON obtenidos: {longurl: http:////www.vevb.com//develovel
Sitio web original: http://www.vevb.com/develop/asp/v74697
La URL corta obtenida: http://www.dwz.cn/2ggul
Lo anterior es simplemente escribir el principio operativo.