欢迎光临爱时尚女性网
载入中…
 

asp抓取页面

2013-5-13 编辑:admin 来源:爱时尚女性网 阅读次数:
  导读: ...
  1. <%
  2. if trim(request.form("url"))<>"" then
  3. dim VBody:VBody=GetResStr(trim(request.form("url")))
  4. dim Res:Res=VBody
  5. dim code:code=GetCode(VBody,"charset= {0,}([^ ]+) {0,}""")
  6. end if
  7. %>
  8. <html>
  9. <head>
  10. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  11. <title>抓取页面title>
  12. head>
  13. <body style="font-size:12px;margin:50px 0 0 20px;">
  14. <form name="geturl" action="ss.asp" method="post">
  15. 请输入%20name=" type=text value="<%=trim(request.form(" P >>< <input > url?))%>? size="60" url?>
  16. form>
  17. 页面编码:<%=code%> <br />
  18. <textarea cols=150 rows=30><%=Res%>textarea>
  19. body>
  20. html>
  21. <%
  22. function GetResStr(URL)
  23. dim ResBody,ResStr,PageCode
  24. Set Http=server.createobject("msxml2.serverxmlhttp.3.0")
  25. Http.setTimeouts 10000, 10000, 10000, 10000
  26. Http.open "GET",URL,False
  27. Http.Send()
  28. If Http.Readystate =4 Then
  29. If Http.status=200 Then
  30. ResStr=http.responseText
  31. ResBody=http.responseBody
  32. PageCode=replace(GetCode(ResStr,"charset=([^\""].*)"""),chr(13)&chr(10),"")
  33. GetResStr=BytesToBstr(http.responseBody,trim(PageCode))
  34. End If
  35. End If
  36. End Function
  37. '函数名:BytesToBstr
  38. '作用:转换二进制数据为字符
  39. '参数:Body-二进制数据,Cset-文本编码方式
  40. Function BytesToBstr(Body,Cset)
  41. Dim Objstream
  42. Set Objstream = Server.CreateObject("adodb.stream")
  43. objstream.Type = 1
  44. objstream.Mode =3
  45. objstream.Open
  46. objstream.Write body
  47. objstream.Position = 0
  48. objstream.Type = 2
  49. objstream.Charset = Cset
  50. BytesToBstr = objstream.ReadText
  51. objstream.Close
  52. set objstream = nothing
  53. End Function
  54. '函数名:GetCode
  55. '作用:转换二进制为字符
  56. '参数:str-待查询字符串,regstr-正则表达式
  57. Function GetCode(str,regstr)
  58. Dim Reg
  59. set Reg= new RegExp
  60. Reg.IgnoreCase = True
  61. Reg.MultiLine = True
  62. Reg.Pattern =regstr
  63. Set Cols = Reg.Execute(str)
  64. str=Cols(0).SubMatches(0)
  65. GetCode=str
  66. end function
  67. %>

文章出自:爱时尚女性网www.aspjc.com,尊重版权是美德,转载请保留原地址,感谢合作!

 
 
链接交换请联系:QQ:790646582 首页链接要求百度快照在一周以内,不符合以上要求的各站,我们将定期把友情连接转入内页,谢谢合作。
Copyright @ 2012-2015 爱时尚女性网 保留所有权利吉ICP备14005127号-1 服务QQ:175529508 e-mail:zk8312@163.com
本站部分资源来自网友上传,如果无意之中侵犯了您的版权,请联系本站,本站将在3个工作日内删除。