 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<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.etoow.com/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> 返回类别: 教程 上一教程: ASP写的自动生成SELECT表单的函数 下一教程: ASP进阶之文章在线治理更新(2) 您可以阅读与"ASPHTTP使用范例-远程读取别人的页面，并自动写入库"相关的教程: · 如何使用ASP制作类似安装向导的页面 · 自动将远程页面的文件中的图片下载到本地服务器 · 在ASP中不借助第三方组件抓取别的站点的页面 · 如何使用 MICROSOFT ACCESS 和 ACTIVE SERVER PAGES 加密你的页面 · 如何使用MICROSOFT ACCESS和ACTIVE SERVER PAGES加密你的页面 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
