WEB技术论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

搜索
热搜: ASP asp.net php
查看: 142|回复: 0
打印 上一主题 下一主题

asp载取快递返回信息 asp载取指定内容,asp截取字符串

[复制链接]

534

主题

541

帖子

2044

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
2044
跳转到指定楼层
楼主
发表于 2018-8-7 21:59:42 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
<!--#include file="lib/base.asp"-->

<%
'截取字符串,1.包括起始和终止字符,2.不包括 3.包含起始字符,4.包含终止字符,httpCode = GetHttpPage(getUrl, false),leixing=StrCut(httpCode,"<span>宝贝类型:</span><em>","</em>",2)
Function strCut(strContent,StartStr,EndStr,CutType)
        Dim strHtml,S1,S2
        strHtml = strContent
        On Error Resume Next
        Select Case CutType
        Case 1
                S1 = InStr(strHtml,StartStr)
                S2 = InStr(S1,strHtml,EndStr)+Len(EndStr)
        Case 2
                S1 = InStr(strHtml,StartStr)+Len(StartStr)
                S2 = InStr(S1,strHtml,EndStr)
                if s1=Len(StartStr) then
                s1=0
                end if
        Case 3
            S1 = InStr(strHtml,StartStr)
                S2 = InStr(S1,strHtml,EndStr)
        Case 4
            S1 = InStr(strHtml,StartStr)+Len(StartStr)
                S2 = InStr(S1,strHtml,EndStr)+Len(EndStr)
                                if s1=Len(StartStr) then
                s1=0
                end if
        End Select
        If Err Then
                strCute = "<p align='center'>没有找到需要的内容。</p>"
                Err.Clear
                Exit Function
                end if
if s1=0 or s2=0 then
strCut=""               
        Else
                strCut = Mid(strHtml,S1,S2-S1)
        End If
End Function

Function GetHttpPage(HttpUrl, IsAsync)
        If Err Then
                Err.Clear
        End If
        On Error Resume Next
        Dim Http
        Set Http = Server.Createobject("MSXML2.XMLHTTP")
        Http.open "GET", HttpUrl, IsAsync, "", ""
        Http.Send()
        If IsAsync Or Http.Readystate<>4 Then
                Set Http = Nothing
                GetHttpPage = "$False$"
                Exit Function
        End If
        GetHTTPPage = bytesToBSTR(Http.responseBody,"utf-8")
        Set Http = Nothing
        If Err Then
                Err.Clear
                Set Http = Nothing
                GetHttpPage = "$False$"
        End If
End Function

Function BytesToBstr(Body,Cset)
        If Len(Body) = 0 Then
                BytesToBstr = ""
                Exit Function
        End If
        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
dim geturl:geturl=("http://m.kuaidi100.com/query?type=yuantong&postid=D065594961&id=1&valicode=")
dim strTest:strTest = GetHttpPage(getUrl, false)
dim data:data=StrCut(strTest,"[{","}]",2)
data=replace(replace(replace(data,"""",""),"{",""),"},","@")
data=split(data,"@")
dim i
for i=0 to ubound(data)
Response.Write data(i)&"<br/>"
dim content:content=StrCut(data(i),"context:",",ftime",2)
Response.Write content&"<br/>"
next
%>
爱仿站的中年人
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

|手机版|码农集营 ( ) 深圳龙岗交友群

GMT+8, 2018-11-7 19:11 , Processed in 0.081798 second(s), 22 queries .

Powered by 码农集营 X3.4

快速回复 返回顶部 返回列表