安徽25选5走势:百度短网址服务之asp应用实现

作者: 来源: 更新时间:2012-06-09 15:09:05 点击:

安徽25选5直播 www.by7yj.cn 百度短网址服务介绍://www.baidu.com/search/dwz.html

一般都是php实现的,那么如何利用asp实现呢,其实也很简单,看我下面写的这个临时的demo(将以下代码保存为asp文件运行即可):

-------------------------------代码区开始-----------------------------------

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
    Response.Charset = "UTF-8"
    Session.Codepage = 65001
    Session.Timeout = 1440
    Server.Scripttimeout = 99999

'远程获取
Function PostHttpPage(PostUrl,PostSet,PostData,PostReferer)
    If InStr(LCase(PostUrl),"//") = 0 Then
        PostHttpPage = "$Null$":Exit Function
    End If
    On Error Resume Next
    Dim PostHttp
    '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.setRequestHeader "Content-Length",Len(PostData)
    PostHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    PostHttp.setRequestHeader "Referer", PostReferer
    PostHttp.Send PostData
    If PostHttp.Readystate <> 4 And PostHttp.status <> 200 Then
        Set PostHttp = Nothing
        PostHttpPage = "$Null$":Exit function
    End If
    PostHttpPage = BytesToBstr(PostHttp.responseBody,PostSet)
    Set PostHttp = Nothing
    If Err.number<>0 Then Err.Clear
    If PostHttpPage = "" Or IsNull(PostHttpPage) Then PostHttpPage = "$Null$"
End Function
Function BytesToBstr(Body,Cset)
    Dim Objstream
    Set Objstream = Server.CreateObject("adodb.stream")
    objstream.Type = 1
    objstream.Mode =3
    objstream.Open
    objstream.Write body
    objstream.Position = 0
    objstream.Type = 2
    objstream.Charset = Cset
    BytesToBstr = objstream.ReadText
    objstream.Close
    set objstream = nothing
End Function

Function UrlEncoding(DataStr)
    Dim StrReturn,Si,ThisChr,InnerCode,Hight8,Low8
    StrReturn = ""
    For Si = 1 To Len(DataStr)
        ThisChr = Mid(DataStr,Si,1)
        If Abs(Asc(ThisChr)) < &HFF Then
            StrReturn = StrReturn & ThisChr
        Else
            InnerCode = Asc(ThisChr)
            If InnerCode < 0 Then
               InnerCode = InnerCode + &H10000
            End If
            Hight8 = (InnerCode  And &HFF00)\ &HFF
            Low8 = InnerCode And &HFF
            StrReturn = StrReturn & "%" & Hex(Hight8) &  "%" & Hex(Low8)
        End If
    Next
    UrlEncoding = StrReturn
End Function

Dim test_Url:test_Url = "url=//www.by7yj.cn/develop/asp/v74697"
Dim p_Data:p_Data = UrlEncoding(test_Url)
Dim v_Date:v_Date = PostHttpPage("//www.dwz.cn/create.php","UTF-8",p_Data,"//www.dwz.cn")
Response.write "获取的json数据:" & v_Date & "<br/>"
Dim v_Json:Set v_Json = toObject(v_Date)
Response.Write "原始网址:" &  v_Json.longurl & "<br/>"
Response.Write "获取的短网址:" &  v_Json.tinyurl & "<br/>"
Set v_Json = Nothing
%>
<script language="JScript" runat="Server">
function toObject(json) {
  eval("var o=" + json);
  return o;
}
</script>

-------------------------------代码区结束-----------------------------------

上面代码运行结果如下:

获取的json数据:{"longurl":"http:\/\/安徽25选5直播 www.by7yj.cn\/develop\/asp\/v74697","status":0,"tinyurl":"http:\/\/www.dwz.cn\/2gGUl"}
原始网址://www.by7yj.cn/develop/asp/v74697
获取的短网址://www.dwz.cn/2gGUl


上面只是简单的写了操作原理,具体的功能应用大家可以自己根据自己的情况操作了。
  • 在战火中诞生的党中央机关报(连载一) 2018-12-13
  • 陕西守艺人丨传承自父亲的老油坊,是我人生的希望之光 2018-12-12
  • 儿童家具质量抽检三成不合格 家长选购需注意 2018-12-12
  • 学会了脆皮炸香蕉 再也不会把香蕉放到烂啦-美食资讯 2018-12-12
  • 高通出局 未来iPhone modem芯片将完全由英特尔提供 2018-12-11
  • 《中国气候变化蓝皮书》:年平均气温显著上升 2018-12-11
  • 回复@海之宁:其中跟你不对付的小寻子、真理论者都是批咱的主力军也!小海童鞋作何解释? 2018-12-11
  • 偶像玄幻剧陆续定档 悠长暑假荧屏满溢青春气息 2018-12-10
  • 蔡奇主持市委常委会会议 学习总书记对脱贫攻坚工作重要指示 2018-12-10
  • 河北一保时捷车主疑遭枪击 警方悬赏9万元通缉 2018-12-10
  • 端午节 收艾草(组图) 2018-12-09
  • 假期三天每日过万警力保市民平安 2018-12-09
  • 尧都农商银行全力推进服务“三农”工作 2018-12-09
  • 交通小事故,几分钟就能处理完 2018-12-09
  • 辽宁贯彻十九大精神:领导沉下去 群众用心学 2018-12-08
  • 263| 565| 692| 885| 801| 794| 797| 530| 290| 240|