您现在的位置： 万盛学电脑网 >> 程序编程 >> 网络编程 >> asp编程 >> 正文
asp抓取页面的代码
作者：佚名 责任编辑：admin 更新时间：2022-06-22
<%
if trim(request.form("url"))<>"" then
dim VBody:VBody=GetResStr(trim(request.form("url")))
dim Res:Res=VBody
dim code:code=GetCode(VBody,"charset= {0,}([^ ]+) {0,}""")
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>抓取页面</title>
</head>
<body style="font-size:12px;margin:50px 0 0 20px;">
<form name="geturl" action="ss.asp" method="post">
请输入%20name=" type=text value="<%=trim(request.form(" P >>< <input > url?))%>? size="60" url?>
</form>
页面编码:<%=code%> <br />
<textarea cols=150 rows=30><%=Res%></textarea>
</body>
</html>
<%
function GetResStr(URL)
dim ResBody,ResStr,PageCode
Set Http=server.createobject("msxml2.serverxmlhttp.3.0")
Http.setTimeouts 10000, 10000, 10000, 10000
Http.open "GET",URL,False
Http.Send()
If Http.Readystate =4 Then
If Http.status=200 Then
ResStr=http.responseText
ResBody=http.responseBody
PageCode=replace(GetCode(ResStr,"charset=([^""].*)"""),chr(13)&chr(10),"")
GetResStr=BytesToBstr(http.responseBody,trim(PageCode))
End If
End If
End Function
'函数名:BytesToBstr
'作用:转换二进制数据为字符
'参数:Body-二进制数据,Cset-文本编码方式
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
'函数名:GetCode
'作用:转换二进制为字符
'参数:str-待查询字符串,regstr-正则表达式
Function GetCode(str,regstr)
Dim Reg
set Reg= new RegExp
Reg.IgnoreCase = True
Reg.MultiLine = True
Reg.Pattern =regstr
Set Cols = Reg.Execute(str)
str=Cols(0).SubMatches(0)
GetCode=str
end function
%>
- 上一个程序编程： Asp加密函数的代码
- 下一个程序编程： ASP与ACCESS连接的常用两种方式
