ASP短链接API接口网站建设程序,客户在建设网站的时候感觉网站的链接地址太长,所以要我们在他们的网站里引入短链接,通过这几天的努力,我们终于达到客户的要求了。
appkey = "7054d19939c421f573f04448cd6f392"
long_url = request("url")
url = "http://www.mynb8.com/api2/sina?appkey="&appkey&"&long_url="&long_url
Set objXML = server.CreateObject("MSXML2.ServerXMLHTTP")
objXML.open "GET", url, False
objXML.send()
mystr= objXML.responSetext
mystr=split(mystr,",")
s=mystr(3)
s=replace(s,"\","")
s=replace(s,"}","")
s=replace(s,"""","")
s=replace(s,"short_url:","")
ASP短链接API接口网站建设程序展示完毕,本人亲测。