示例代码，用于在 asp 中取得远程页面中的特定内容

发布时间：2023-07-27 14:10:17 所属栏目：Asp教程来源：

导读：用ASP获取远程网页的指定内容，可以轻易获取到别人网页的指定的某些内容，其实也就是ASP小偷程序原理了，需要的朋友可以参考下。

代码如下：

<%

'用ASP获取远程目标网页指定内容，代码由广州网站

用ASP获取远程网页的指定内容，可以轻易获取到别人网页的指定的某些内容，其实也就是ASP小偷程序原理了，需要的朋友可以参考下。

代码如下：

<%

'用ASP获取远程目标网页指定内容，代码由广州网站建设http://www.cuoxin.com提供

On Error Resume Next

Server.ScriptTimeOut=9999999

Function getHTTPPage(Path)

t = GetBody(Path)

getHTTPPage=BytesToBstr(t,"GB2312")

End function

Function Newstring(wstr,strng)

Newstring=Instr(lcase(wstr),lcase(strng))

if Newstring<=0 then Newstring=Len(wstr)

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 GetBody(url)

on error resume next

Set Retrieval = CreateObject("Microsoft.XMLHTTP")

With Retrieval

.Open "Get", url, False, "", ""

.Send

GetBody = .ResponseBody

End With

Set Retrieval = Nothing

End Function

'ASP获取远程网页指定内容开始

Dim wstr,str,url,start,over,dtime

a="开始内容" 'ASP获取目标网页内容开始标记

b="结束内容" 'ASP获取网页内容结束标记

url="http://sc.cuoxin.com/"

wstr=getHTTPPage(url)

start=Newstring(wstr,a)

over=Newstring(wstr,b)

body=mid(wstr,start,over-start)

response.write ""&body&"" '输出获取到的网页内容

'ASP获取远程网页指定内容结束

%>

上面的代码可以获取指定网页的内容，如果是全部获取就更简单了

核心代码:

'ASP获取远程网页指定内容开始

Dim wstr,str,url,start,over,dtime

url="http://sc.cuoxin.com/"

wstr=getHTTPPage(url)

body=wstr

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!