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

最新推荐文章于 2024-09-15 17:04:49 发布

lxklz

最新推荐文章于 2024-09-15 17:04:49 发布

阅读量783

点赞数

分类专栏： ASP 文章标签： microsoft access sql 数据库 html

本文链接：https://blog.csdn.net/liuxingke/article/details/69226

版权

ASP 专栏收录该内容

6 篇文章 0 订阅

订阅专栏

<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>