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>

版权声明:本文为博主原创文章,未经博主允许不得转载。

FTPClient 远程文件读写(Java)

apache.common.net.ftp,不是用sun.net.ftp /* 写文件apkInfoFileName: 若文件不存在,则新建文件apkInfoFileName,...
  • u010045971
  • u010045971
  • 2016年03月18日 17:06
  • 5529

VIM插件: NERDTREE[树形目录]

VIM插件: NERDTREE[树形目录]nerdtree树形目录插件能够在vim下浏览文件系统的所有文件,并能够打开文件。同时可以通过配置nerdtree过滤一些文件不被树形结构浏览。github:...
  • cromma
  • cromma
  • 2016年10月21日 01:58
  • 3378

java通过ftp方式读取文件,并解析入库

对于自己是个总结,下次使用的时候直接copy,要注意的地方是ftp访问文件的方式,访问的是ftp用户的home目录,而不是从绝对路径访问。 private final static String D...
  • educast
  • educast
  • 2015年01月07日 20:59
  • 3532

Linux服务器使用kettle进行数据采集及入库

1,安装JDK环境,这里不多说 2,新建kettle目录,下载压缩包,这里用的是pdi-ce-7.1.0.0-12.zip 3,解压,unzip pdi-ce-7.1.0.0-12.zip ...
  • wsbgmofo
  • wsbgmofo
  • 2017年12月21日 10:06
  • 182

java 读取excel数据内容,保存到表 导入Excel 入库

import org.apache.poi.hssf.usermodel.HSSFWorkbook; import org.apache.poi.poifs.filesystem.POIFSFileS...
  • xunwei0303
  • xunwei0303
  • 2016年11月01日 16:42
  • 604

如何使用Spark的local模式远程读取Hadoop集群数据

我们在windows开发机上使用spark的local模式读取远程hadoop集群中的hdfs上的数据,这样的目的是方便快速调试,而不用每写一行代码或者一个方法,一个类文件都需要打包成jar上传到li...
  • u010454030
  • u010454030
  • 2017年03月31日 11:44
  • 951

页面输出和入库过滤

  • yteasyhappy
  • yteasyhappy
  • 2014年06月10日 16:18
  • 100

通过ftp读取文件入库

写了个通过ftp读取文件入库的类,先保存备忘一下o(╯□╰)oimport java.io.BufferedReader; import java.io.InputStream; import jav...
  • u012354179
  • u012354179
  • 2014年12月02日 11:27
  • 289

软件开发文档范例

对于软件工程学科的同学都知道,软件工程是一门技术含量高设计极其复杂的学科。为了控制好软件产品质量和规范,就必须用大量的文档约束软件工程的进度和状态。浩大的软件工程对于缺少工作和项目经验的人来说,必然是...
  • SunCherryDream
  • SunCherryDream
  • 2014年04月08日 09:11
  • 43873

dialog本地加载和远程加载的实现方式

留待补充,明晚下班补充,要养成及时记录的好习惯。 -------------------------------------------------------待补充-----------------...
  • gengyazhou123
  • gengyazhou123
  • 2016年05月17日 22:55
  • 280
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ASPHttp使用范例-远程读取别人的页面,并自动写入库
举报原因:
原因补充:

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