关于 XMLHTTP 的一些收藏

最新推荐文章于 2024-10-08 15:02:33 发布

kingapex1

最新推荐文章于 2024-10-08 15:02:33 发布

阅读量938

点赞数

分类专栏： asp 文章标签： function 正则表达式 html class url string

asp 专栏收录该内容

14 篇文章 0 订阅

订阅专栏

<%
'正则表达式的HTML分离函数

Function stripHTML(strHTML)
'Strips the HTML tags from strHTML

Dim objRegExp, strOutput
Set objRegExp = New Regexp

objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<.+?>"

'Replace all HTML tag matches with the empty string
strOutput = objRegExp.Replace(strHTML, "")

'Replace all < and > with < and >
strOutput = Replace(strOutput, "<", "<")
strOutput = Replace(strOutput, ">", ">")

stripHTML = strOutput 'Return the value of strOutput

Set objRegExp = Nothing
End Function
%>

<head><title>怎样取出网页里的部分内容</title></head>
<%
on error resume next
Private d_exsit
Dim Retrieval
Dim TakenHTML

Function GetHtml(url)
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.open "GET", url, False, "", ""
.Send
GetHtml = .responsebody
End With
Set Retrieval = Nothing
End Function

Function bin2str(binstr)
Dim varlen,clow,ccc,skipflag
skipflag=0
ccc = ""
varlen=LenB(binstr)
For i=1 To varlen
If skipflag=0 Then
clow = MidB(binstr,i,1)
If AscB(clow) > 127 Then
ccc =ccc & Chr(AscW(MidB(binstr,i+1,1) & clow))
skipflag=1
Else
ccc = ccc & Chr(AscB(clow))
End If
Else
skipflag=0
End If
Next
bin2str = ccc
End Function