我要投稿

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

时间:2010-08-13 09:34 作者:cccbbs 阅读:1183

扫描二维码关注公众号,可以查询淘宝、京东商品优惠券

            
                                  

[/td]
            




AUTOGET







500

Response.Write fd

HTTPObj.Url = "http://www.object.net/Read.asp?ArticleID="&fd

HttpObj.RequestMethod = "GET"

content = HTTPObj.GetURL



'取标题")

???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,"")

???pos2=instr(pos1,content,"")

???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&"
"



rs.close

set conn=nothing

set fs=nothing

%>




最新评论

我要投稿 我要评论
插入url链接 添加表情
限 100000 字节
响应相关主管单位规定,关闭回帖发帖功能
[VB毕业设计] [ASP毕业设计] [JAVA毕业设计] [JSP毕业设计] [PHP毕业设计] [asp.net毕业设计] [.net毕业设计] [网络毕业设计] [Delphi毕业设计] [VC毕业设计] [VF毕业设计] [机械毕业设计] [工艺毕业设计] [模具毕业设计] [其他毕业设计]
站长联系 cccbbsnet#163.com 本站系公益性质网站,站内广告维系本站运作。欢迎赞助本站。
大学生计算机相关方向|软件编程|网络工程|web开发|数据库技术|学习资料等
本社区仅供学习计算机相关技术所使用,访客发言不得违反国家法律法规
Time now is:01-23 12:18, Gzip enabled 蜀ICP备07004838号Powered by cccbbs.net v7.5 SP3 Code © 2003-06 cccbbs
计算机毕业设计