编程：手机网站怎么下载下来html源代码

你好，主要有一下方法：

方法一、查看html源码的站点

百度“查看网页源码”，有很多支持查看网页源码的在线站点。

方法二、QQ浏览器 + ES文件管理器

使用QQ浏览器打开网页，长按，“保存离线网页”。

打开ES文件管理器，打开路径“存储卡/QQBrowser/网页保存”，打开方式选择“ES文本阅读器”即可查看源码。

方法三、Firefox 或 Chrome 手机浏览器

在要查看源码的网址前加“view-source:”即可。

望采纳~

个人主页可以采用html代码也可以采用cms系统形式，一般以个人博客网站形式存在。你可以在个人博客模板找到自适应的模板程序后，进行源码下载。

每天的进行一些文章更新，相信对于建立个人品牌是非常有帮助的。

vbs可以做.用xmlhttp做到.下午贴代码 复制下面的内容新建一文本文档,写入后另存为xx.vbs,看清楚修改后双击即可

'下载的多了需要很久的时间,根据网速决定,请看清楚使用

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地址.就可以正常显示了.

---