ASPHttp使用范例-远程读取别人的页面,并自动写入库

原创 2004年08月09日 13:32:00

<html>
<head>
<title>AUTOGET</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF">
<%'on error resume next
  '-----------建一个叫data的access表,字段(名称,来源,内容)
  Set conn = Server.CreateObject("ADODB.Connection")
  DBPath = Server.MapPath("data.mdb")
  conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath &";"
  Set rs = Server.CreateObject("ADODB.Recordset")
  sql="select * from data"
   rs.open sql,conn,3,2
   '以上完成表的打开

Set HttpObj = Server.CreateObject("AspHTTP.Conn")
dim fd
fd = 111
SearchFolder fd


'以下是过程
Sub SearchFolder( fd )

do while fd <> 500 
Response.Write fd
HTTPObj.Url = "http://www.object.net/Read.asp?ArticleID="&fd
HttpObj.RequestMethod = "GET"
content = HTTPObj.GetURL

'取标题<img
   pos0=instr(1,content,"<img")
   pos1=instr(pos0,content,">")
   pos2=instr(pos1,content,"</td>")
   title=mid(content,pos1+1,pos2-pos1-1)
    
'来源<td>
    pos=instr(pos2,content,"<td>")
    pos1=instr(pos,content,"</td>")
    comefrom=mid(content,pos+4,pos1-pos-4)

    'idno
  
   pos1=instr(1,content,"ArticleID")
   pos2=instr(pos1,content,">")
   idno=mid (content,pos1+10,pos2-pos1-10)

'内容
  
   pos1=instr(1,content,"<blockquote>")
   pos2=instr(pos1,content,"</blockquote>")
   content=mid (content,pos1+12,pos2-pos1-12)

   

'以下数据库操作:
rs.addnew   
    rs("名称")=title
    rs("来源")=comefrom
    rs("内容")=trim(content)
    rs("idno")=trim(idno)
rs.update
fd=fd + 1
loop

end sub 
'过程结束

Response.Write fd&"<br>"

rs.close 
set conn=nothing
set fs=nothing
%> 
</body>
</html>

版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/liuxingke/article/details/69226

ASPHTTP使用范例

简单实例:  使用这个组件十分简单  1.创建对象  2.设定一些属性  3.调用GetUrl方法  下面是vbscript使用AspHTTP的示例代码  Set HttpObj = Server.C...
  • liuxingke
  • liuxingke
  • 2004-08-09 13:38:00
  • 711

java按行读取大文件并解析入库

  • 2015年01月30日 14:37
  • 3KB
  • 下载

Scrapy爬虫数据入库

爬取的数据如何存储? 使用数据库存储数据。 数据库有许多,大至MySQL、Oracle,小至SQLite,用哪种数据库? 用SQLite。 使用SQLite数据库需要掌握一下知识: ...
  • lettmefly
  • lettmefly
  • 2018-02-06 22:35:30
  • 61

android 读取远程html内容

import android.app.Activity; import android.os.Bundle; import android.view.View; import android.widg...
  • liwateryi
  • liwateryi
  • 2015-09-24 17:36:04
  • 680

解析.txt文件入库

前段时间遇到这样需求,需要按照一定规则解析.txt文件入库,并且在tomcat开启时,开5个线程共同去解析文件入库 解析代码如下: import java.io.BufferedReader; imp...
  • yeyujiao8888
  • yeyujiao8888
  • 2015-12-11 14:02:24
  • 2102

给别人网站的文本框赋值,自动提交别人的表单

用WebBrowser的Navigate方法来加载你要自动提交的网页。 加载完成之后,用 HtmlElement he = webBrowser1.Document.All["TxtBox"]; ...
  • lijun_xiao2009
  • lijun_xiao2009
  • 2012-04-03 09:59:49
  • 655

java读取文件入库

package test;import java.io.BufferedReader;import java.io.FileReader;import java.sql.Connection;impo...
  • hi_kevin
  • hi_kevin
  • 2011-06-29 14:44:00
  • 2913

java 通过流的方式读取远程图片并显示在jsp页面(类型以jpg、png等结尾的图片)

String path = "http://61.148.200.38:16980/project/1GS/DNA_online/map/";                 URL url;    ...
  • u010964869
  • u010964869
  • 2016-08-17 11:10:22
  • 4395

php页面远程执行shell脚本

php在执行shell时使用的默认用户为nobody用户,因此引起命令无法执行返回结果为空的问题。 既然是权限问题,那么可以转换成root来执行,sudo即可 转换为root或者相应的用户来执...
  • xiangliangyu2008
  • xiangliangyu2008
  • 2012-10-23 11:02:46
  • 2351

Java jdbc批量多线程读取CVS文件入库性能优化篇

在写完上一篇文章之后,在使用过程中慢慢发现一些问题,比如说数据入库很慢,10W的数据分10个文件入库大概需要两三分钟,如下图 这是我忍受不了的,所以我寻思着如何优化该程序,提高入库性能。因此我对...
  • u010323023
  • u010323023
  • 2016-09-14 15:29:08
  • 933
收藏助手
不良信息举报
您举报文章:ASPHttp使用范例-远程读取别人的页面,并自动写入库
举报原因:
原因补充:

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