自适应个人主页html源码，哪里下载？

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

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

html源码？你确定所有网页文件都是HTML格式吗？如果是就不用判断了，100%没有后门。

后门代码需要可执行的动态文件页面，扩展名一般为.asp,.php等，还要你服务器开通了项服务才行。

如果你的网站里包含以上文件的话，我可以告诉你，没有简单的办法去判断它是否有后门，最简单的办法恐怕是去下载网站看看评论了，要么把网站代码发给高手门看一下。

正规的办法一行行去查看代码是否可能为后门，全部看完很费时费力，当然如果你很轻松的能看明白这些一行行的代码，你就不如自己写代码了。

当然还有“asp 木马检测工具”等辅助工具，但它们只是把包含有危险语句的文件找出来而异，但正常的网页文件也可能包含这些语句，如果还是要自己来判断。

大体情况这是这样了。

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

---