asp 远程内容提取

原创 2007年09月26日 17:49:00

<%
function getHTTPPage(url)
 on error resume next
 dim http
 set http=Server.createobject("Microsoft.XmlHTTP")
 Http.open "GET",url,false
 Http.send()
 if Http.readystate<>4 then
  exit function
 end if
 getHTTPPage=bytes2BSTR(Http.responseBody)
 set http=nothing
 if err.number<>0 then err.Clear 
end function
Function bytes2BSTR(vIn)
 dim strReturn
 dim i,ThisCharCode,NextCharCode
 strReturn = ""
 For i = 1 To LenB(vIn)
  ThisCharCode = AscB(MidB(vIn,i,1))
  If ThisCharCode < &H80 Then
   strReturn = strReturn & Chr(ThisCharCode)
  Else
   NextCharCode = AscB(MidB(vIn,i+1,1))
   strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
   i = i + 1
  End If
 Next
 bytes2BSTR = strReturn
End Function
Function NewString(wstr,strng)
 NewString=Instr(wstr,strng)
End Function


Function RemoveHTML(strText)
Dim RegEx

Set RegEx = New RegExp

RegEx.Pattern = "<[^>]*>"
RegEx.Global = True

RemoveHTML = RegEx.Replace(strText, "")
End Function

Function Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
if Newstring<=0 then Newstring=Len(wstr)
End Function

aa=getHTTPPage("http://www.cnxz.cn/agent/brand-list.php")
'start=Newstring(aa,"所有品牌")
'over=Newstring(aa,"<td height=""10"" background=""images/pphc-7.gif""></td>")
'body=mid(aa,start,over-start)

aa=RemoveHTML(aa)
Response.Write aa

 

%>

来自:Http://www.xrss.cn 

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

用asp.net实现远程获取其他网站页面指定内容

http://www.cnblogs.com/12go/archive/2011/12/14/2287667.html   远程获取网页内容.经过一定的处理和灵活应用,可以开发成成体系网站内容采集...

用asp.net实现远程获取其他网站页面指定内容

远程获取网页内容.经过一定的处理和灵活应用,可以开发成成体系网站内容采集系统.通常也叫做"新闻小偷"一般来说.做内容采集分为如下几个大致的步骤:   1.远程获取页面的全部Html源文本.   2...

Asp.net解析HTML并利用XPATH分析提取内容

====================================================== 注:本文源代码点此下载 =============================...

.net实现远程获取其他网站页面内容

.net实现远程获取其他网站页面内容,http://blog.sina.com.cn/s/blog_4efce4d10100ddgh.html
  • WYZSC
  • WYZSC
  • 2011-01-06 11:29
  • 744

PHP获取远程div内容

  • 2017-05-20 16:48
  • 553B
  • 下载

获取远程HTML网页内容

  • 2007-08-20 11:53
  • 93KB
  • 下载

log4j通过SocketAppender将日志内容发送到远程服务器

通过log4j可以实现将日志内容发送到其他服务器,其他机器可以再对日志做统一处理,比如发送邮件,发送短信,日志分析等等。具体demo如下: 1. 客户端代码          客户端代码分为log...
  • pan051
  • pan051
  • 2012-08-16 11:12
  • 3012
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)