繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASPHttp使用范例-远程读取别人的页面，并自动写入库
- ASP
- ASP编程入门进阶（廿一）：DAO SQL之建立数据库表
- ASP应用之模板采用
- ASP上传图片功能的又一实现（OLE对象）
- asp中FSO复制文件代码
- asp复制文件夹代码
- 实例演练ASP+XML编程比较全的了
- 利用ASP从远程服务器上接收XML数据的方法
- PJ-Blog教程┊增强博客用户体验～让发表内容的同时拷贝到剪贴板以防丢失
- TSYS一个新闻多种特性时如何进行前台更新?
- TSYS资源特性的效率提高方法
- 重置TSYS系统中的所有"生成的文件"成"未生成文件"
- TSYS中生成静态页时溢出: ''CInt''
- asp实现防止站外提交内容的两个方法
- ASP中生成文本文件的两种方式
- ASP是否可以定时触发事件
- ASP解压缩（在线解压缩类）
- 使用ASP删除指定IIS站点
- 使用ASP控制指定站点解析脚本语言函数
- HTML标签及ASP函数速查表
- 如何使用Administrators组用户运行ASP程序
ASPHttp使用范例-远程读取别人的页面，并自动写入库
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 221 ::
收藏到网摘: n/a
<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>
评论 (0) All
