远程读取别人的页面
[code]<html>6i?C(h4q/{"rI1`3`<head>
<title>AUTOGET</title> E AW.@5c|S
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> t]*V;D)y e'w HE
</head>+gxrW1s!^+z
<body bgcolor="#FFFFFF">
<%'on error resume next
'-----------建一个叫data的access表，字段(名称,来源,内容)
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("data.mdb")L^z K1Q R ^XG
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath &";"
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from data")_~vWt
rs.open sql,conn,3,2P0T Px ~QOp
'以上完成表的打开|il/qfU:F.H
Set HttpObj = Server.CreateObject("AspHTTP.Conn")v6^-y Me&S },fr
dim fd
fd = 111Kf#VW q)t$K8H
SearchFolder fdn d rrH DU/]
Y/d&MX5Nw*S w{Z
'以下是过程
Sub SearchFolder( fd )
4WI1I#s }1_+y
do while fd <> 500
Response.Write fd"q SZ{p
HTTPObj.Url = "http://www.object.net/Read.asp?ArticleID=";&fd
HttpObj.RequestMethod = "GET"-XS*j mpKd@0S
content = HTTPObj.GetURLX7\ Qc I5cC/}.w
'取标题<img[)s;R3f&XE:s n"N
pos0=instr(1,content,"<img"),_Z5|3\)Jy\&_H?'~1O
pos1=instr(pos0,content,">")
pos2=instr(pos1,content,"</td>")2K3b6cr{6B
title=mid(content,pos1+1,pos2-pos1-1)
.Y Cv @r/_#y Y
'来源<td> GK8p%h9Rb
pos=instr(pos2,content,"<td>")
pos1=instr(pos,content,"</td>"):|/u+IJ oE'L(S9D9Z
comefrom=mid(content,pos+4,pos1-pos-4)
'idno
pos1=instr(1,content,"ArticleID")
pos2=instr(pos1,content,">") G6}\9d}7i
idno=mid (content,pos1+10,pos2-pos1-10)
E7l0st n gtC
'内容
E:],yA&L
pos1=instr(1,content,"<blockquote>")
pos2=instr(pos1,content,"</blockquote>")
content=mid (content,pos1+12,pos2-pos1-12)
'以下数据库操作:
rs.addnew 3y A l2~ w1Iq.D@0c O T
rs("名称")=title
rs("来源")=comefrom
rs("内容")=trim(content)
rs("idno")=trim(idno)
rs.updatek:w CW ~ QI
fd=fd + 1
loop P8`9n&w K
end sub /i7oHmr m&R
'过程结束X8f*S|d a%I[
Response.Write fd&"<br>"3WK noR
rs.close
set conn=nothing sB t h+px"[ U"^
set fs=nothingG[ K9H$s)F.F
%> 0Q4a8Z[#h
</body>
</html>[/code]
页:
[1]