filearray2=split(filearray(1),Last)
37GetKey=filearray2(0)
38End Function
39
40Dim Softid,Url,Html,Title
41
42'获取要取页面的ID
43
44SoftId=Request("Id")
45
46 Url="http://www3.skycn.com/soft/"&SoftId&".html"
47
48 Html = GetURL(Url)
49
50'以截取天空软件的软件名为例子
51
52 Title = GetKey(Html,"<font color='#004FC6' size='3'>","</font></b></td></tr>")
53
54'打开数据库,准备入库
55
56dim connstr,conn,rs,sql
57
58connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
59
60set conn=server.createobject("ADODB.CONNECTION")
61
62conn.open connstr
63
64set rs=server.createobject("adodb.recordset")
65
66sql="select [列名] from [表名] where [列名]='"&Title&"'"
67
68rs.open sql,conn,3,3
69
70if rs.eof and rs.bof then
71
72rs("列名")=Title
73
74rs.update
75
76set rs=nothing
77
78end if
79
80set rs=nothing
81
82Response.Write"采集完毕!"
83
84%>
更多的浅谈ASP自动采集程序及入库请到论坛查看: http://BBS.TC711.COM
【 双击滚屏 】 【
评论 】 【
收藏 】 【
打印 】 【
关闭 】
来源：
互联网
日期：
2006-12-2
