'下载的多了需要很久的时间,根据网速决定,请看清楚使用
Function getHTTPPage(Path)
t = GetBody(Path)
getHTTPPage=BytesToBstr(t,"GB2312")
End Function
Function GetBody(url)
on error resume next
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody = .ResponseBody
End With
Set Retrieval = Nothing
End Function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
Function Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
if Newstring<=0 then Newstring=Len(wstr)
End Function
'处理抓取回来的数据需要调用adodb.stream组件并进行初始化设置。
'以下即为页面显示部分
For id=1 To 78 '循环,从X到XX,请自定义
Dim content,url,Fso,Fout
'定义一些需要使用到的变量
url="http://localhost/News_show.asp?"&id
'这里设置需要抓取的页面地址，当然你也可以直接指定某个地址而不使用变量
content=getHTTPPage(url)
content=Replace(content,"images/","http://localhost/images/")'请自行把css替换掉,以及图片地址
'因为我本地网站的css就在images文件夹下,所以我直接替换掉这个就可以了.请针对修改
Set Fso = createObject("Scripting.FileSystemObject") '创建fso对象
Set Fout = FSO.CreateTextFile("news-"&id&".html") '创建文件,我们自定义的news-id.html
Fout.Write content '写入替换完毕的模板文件,即包含我们数据库数据的文件
Fout.Close
Set Fout = Nothing
next
MsgBox "全部下载成功!"
这是代码,你需要改的是url="http://你要的网站/新闻页?id="&id后面的id是变量,然后就替换掉图片地址和css地址.就可以正常显示了.
简单的html网页可以直接利用文本编写的，无需下载特定编辑器。
1、在我们的windows操作系统中，桌面上鼠标右键新建一个txt文本，并命名为"最简单网页",只是便于标识，实际上并不影响我们的操作。注意我们需要提前在文件属性中把扩展名显示出来。
2、我们打开文件夹属性设置，将文件扩展名显示出来，后面我们需要对文件扩展名进行操作，不同操作系统的设置位置不太一样，我们可以直接搜索"文件夹属性"来进行查找修改。
3、然后输入最简单的HTML文本语言。
代码如下：
<html>
<body>
最简单的网页
</body>
</html>
4、保存并关闭txt文本，然后修改我们txt文本的扩展名为html，此时会弹出警告框，提示我们修改后可能会导致文件不能使用，这是操作系统的一个处理逻辑，为了防止无意或恶意的损坏文件的行为。
5、无需担心，因为这在我们自己的掌控之下，确认警告，点击"是"，然后双击打开我们自己的第一个html网页，就可以看到一个最简单的html网页了。
不知道你说的网站框架具体指的是什么？指的是一个完整的html前端模板吗？这个有很多的具体看你怎么去搜，一般都是可以免费下载的。不过下载下来的都是html静态。比如搜下bootstrap网站模板等，有很多的，或者搜网站静态模板。都是可以下载可以在线查看效果。不过你要做网站的话，只要模板是没用的，因为还要有服务器环境以及域名等才能上线运行。联系做网站的话还是做一个带后台的比较好，前端的话，很多功能是实现不了的
