u014530531的专栏

接到一个任务是把中国名牌网站的某些内容添加到我们的网站上，这些网站上有些页面是文章链接列表，点击链接会出现文章的详细内容显示页，根据这个规律，结合正则表达式，XMLHTTP技术，Jscript服务端脚本，以及ADO技术，写了一个小程序，把这些内容抓取到了本地数据库。抓取下来，然后就数据库对数据库导数据就比较方便了。先建立一个Access数据库，结构如下 Id 自动编号 标识，主键

dim cs_id cs_id=Trim(Request.QueryString("cs_id")) Function getHTTPPage(URL) Dim http Set http = CreateObject("MSXML2.XMLHTTP") http.Open "GET", URL, False http.send If http.ReadyState <> 4 Then