|
来源：http://bbs.blueidea.com/thread-2680917-1-1.html
发表日期：2007年10月15日
作者：
|
1.一些网页,制作者为了保护自己的版权，加了不少的限制,譬如说,限制选择,不能复制,屏蔽了鼠标右键,等非常之多,这些做法通常是用javascript的脚本程序来实现的。
有一个防止“另存为”的方法是在网页中加上：
< noscript>< iframe src=*.html>< /iframe>< /noscript>
当然还右别的类似的方法。我在网上经常发现，对于javascript的限制，右一些破解的办法。偶（郭庆平）不才，给大家出一招，来破解 此法。
先准备两个程序如下：
‘///////////////////////////////////////////////////////////
1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码
function getHTTPPage(url)
dim Http
set Http=server.createobject(MSXML2.XMLHTTP)
Http.open GET,url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,GB2312)
set http=nothing
if err.number<>0 then err.Clear
end function
’2、转换乱玛，直接用xmlhttp调用有中文字符的网页得到的将是乱玛，可以
通过adodb.stream组件进行转换
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.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
’==================================================================
上比 两个程序不用选改，可直接使用，用于抓取源代码。抓取源代码如下：
Dim Url,Html
Url=http://www.name623.com/article.asp
Html = getHTTPPage(Url)
变量html 就是获取了网页源代码，直接输出就是网页页面了，
在此需要把限制取掉
2.其实何必那么麻烦呢？
你们试试这个方法：
先“查看”－“源文件”，IE会用记事本打开网页的源文件（这都知道是吧？），
然后把源文件中的
< noscript>< iframe src=*.html>< /iframe>< /noscript>删除掉。
之后加一条<base href="。。。。">，引号中间的就是地址栏上的 从http://到后面的最后一个"/"之间的内容（要包含"/"），比如：<base href="http://bbs.blueidea.com/">
再之后，将这个文件保存为.html文件，用浏览器打开，这下就可以保存了。是不？
3.
用Firefox或Opera就可以了，还用这么麻烦。
4.文件 >> 另存为 >> 保存类型 >> 选择"网页,仅HTML"
(编辑:网站学习网)
|
|
|
|
当前位置：