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 

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

http://www.cnblogs.com/12go/archive/2011/12/14/2287667.html 用asp.net实现远程获取其他网站页面指...
  • CrackLibby
  • CrackLibby
  • 2015年09月25日 17:21
  • 1235

asp读取解析JSON的几种方法

方法一(使用MSScriptControl.ScriptControl):
  • cncco
  • cncco
  • 2015年11月21日 01:51
  • 11755

使用git命令修改指定的commit提交记录并提交到远程服务器的方法

【正文】     如果要修改最新的一次commit,我们知道可以使用 git commit --amend 命令。但是如果我们想要修改更早的提交记录,应该怎么做呢?比如我现在按照时间从旧到新,有 C...
  • Qidi_Huang
  • Qidi_Huang
  • 2017年03月13日 12:49
  • 2275

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

http://www.cnblogs.com/12go/archive/2011/12/14/2287667.html 用asp.net实现远程获取其他网站页面指...
  • CrackLibby
  • CrackLibby
  • 2015年09月25日 17:21
  • 1235

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

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

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

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

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

====================================================== 注:本文源代码点此下载 =============================...
  • javazhuanzai
  • javazhuanzai
  • 2012年01月16日 05:17
  • 253

C#远程获取网页内容,多多学习了

  • 2010年04月28日 09:09
  • 4KB
  • 下载

PHP获取远程div内容

  • 2017年05月20日 16:48
  • 553B
  • 下载

调用XML/RSS/FEED/远程博客等内容以自定义格式网页显示的方法-By 清宇 xyz9981

  • 2009年05月28日 15:28
  • 34KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:asp 远程内容提取
举报原因:
原因补充:

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