Baidu Short URL -сервис Введение: http://www.baidu.com/search/dwz.html
Обычно он реализован в PHP, так как использовать ASP для реализации, на самом деле очень прост.
------------------------------------------------------ ------------------------------------------------------ ------------------------------------------------------ ------- ------------------------------------------- ----------------
<%@Language = vbscript codepage = 65001%>
<%
Response.charset = utf-8
Session.codepage = 65001
Session.Timeout = 1440
Server.ScriptTimeout = 99999
'Удаленное приобретение
Функция PothttPage (Posturl, Postset, PostData, Postreferr)
Если instr (lcase (posturl), http: //) = 0, тогда
PosTHTTPPAGE = $ NULL $: Функция выхода
Конец, если
При ошибке резюме следующим
Dim Pothtp
'SET POSTHTTP = server.createObject (msxml2.xmlhttp)
'SET POSTHTTP = SERVER.CreateObject (microsoft.xmlhttp)
SET POSTHTTP = 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, false
Posthttp.setrequStheader-длину, Len (postdata)
Posthttp.setrequestheader-тип контента, приложение/xwww-form-urlencoded
Posthttp.setrequestheader Рефера, Postreferr
Posthttp.send postdata
Если posthttp.reamstate <> 4 и posthttp.status <> 200, тогда
Установите pothttp = ничего
PosTHTTPPAGE = $ NULL $: Функция выхода
Конец, если
Posthttppage = bytestobstr (postttp.responsebody, postset)
Установите pothttp = ничего
Если err.number <> 0 err.clear
Если postppage = или isnull (posthttppage), то posthttppage = $ null $
Конечная функция
Функция Bytestobstr (тело, CSET)
Dim objstream
Установить 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 = ничего
Конечная функция
Функция urlencoding (datastr)
Dim Strreturn, Si, Thiskr, InnerCode, Hight8, Low8
Strreturn =
Для Si = 1 к Len (datastr)
Thophr = Mid (datastr, si, 1)
Если abs (asc (thiscr)) <& hff, тогда
Strreturn = strreturn & thiskr
Еще
InnerCode = ASC (ThastChr)
Если внутренний код <0, тогда
InnerCode = innerCode + & H10000
Конец, если
Hight8 = (innerCode и & hff00)/ & hff
Low8 = innerCode и & hff
Strreturn = strreturn & % и hex (hight8) и % и hex (low8)
Конец, если
Следующий
Urlencoding = strreturn
Конечная функция
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, полученные с помощью ответа.write: & v_date & <br/>
Dim V_JSON: SET V_JSON = TOOBject (v_Date)
Response.write оригинальный веб -сайт: & v_json.longurl & <br/>
Response.write короткий URL: & v_json.tinyurl & <br/>
Установить v_json = ничего
%>
<script language = jscript runat = server>
Функция toObject (json) {
Eval (var O = + json);
Вернуть O;
}
</script>
------------------------------------------------------ ------------------------------------------------------ ------------------------------------------------------ ------------------------------------------------------ ------------------------------------------------------ ----------------------------------------------—-- ------------------------------------------------------ --------
Результаты приведенного выше следующих:
Полученные данные JSON: {longurl: http:///www.vevb.com//develop//asp/v74697,
Оригинальный веб -сайт: http://www.vevb.com/develop/asp/v74697
Полученный короткий URL -адрес: http://www.dwz.cn/2ggul
Выше всего пишет принцип работы.