UC知道这个网页代码是用什么ASP代码实现的?
来源：百度知道 编辑：UC知道 时间：2024/05/10 12:47:44
以下这个页面在KEY后输入任何网址,IE.ASP这个页面的TITLE都会随机显示为KEY后输入网址的TITLE,哪位高手能将ie.asp及Redirect.asp页面源代码写出来?
http://www.netsoz.com/ie.asp?key=http://www.phoenixtv.com/home/index8.html
如果能在一个页面中实现的话更好.谢谢了!
我朋友给的这段Title显示代码执行起来太慢.<%
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)
set http=nothing
if err.number<>0 then err.Clear
end function
Function BytesToBstr(body)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
http://www.netsoz.com/ie.asp?key=http://www.phoenixtv.com/home/index8.html
如果能在一个页面中实现的话更好.谢谢了!
我朋友给的这段Title显示代码执行起来太慢.<%
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)
set http=nothing
if err.number<>0 then err.Clear
end function
Function BytesToBstr(body)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
不明白你说的从参数url自动获取的标题内容是什么意思
如果你想在标题中显示url的值，如下就可以：
<title><%=request.querystring("url")%></title>
如果你想取得url中的网址的标题，就是用到xmlhttp了，这样速度会使网站打开速度变慢。
不过你可以试试将你网页的<title>……</title>这句去掉试试，即可显示url标题内容了。
使用变量啊
需要给你说的是这么一点，asp的源码除了作者以外，别人是不可轻易能看到源码。即使ASP语言漏洞在大，这种漏洞是不可能出现的，客户端是永远看不到服务端源码（除过一些黑客手端）。
我也只能通过测试知道他的程序是怎么一个流程，但条条大路通罗马，方法很多，很难知道他具体是怎么实现的，但我可以说这么一个思路，你可以参看一下
ie.asp里包含两个iframe，一个是它上面那个头，一个是key 后面指定的网页地址，那个头就不用说了,很容易做到。要怎么拿到key 后面网址的title很好办，用XMLHTTP远程拿到key 后面网址的HTML源文件，然后在里面找到<title></title>所包含的内容给自己的页面title一赋值就可以了
Redirect.asp源文件就更简单了，iframe的url等于key后面的地址就可以了
http://www.netsoz.com/ie.asp?key=http://www.netsoz.com/ie.asp?key=http://www.netsoz.com/
用这个地址你看看会出现什么样的情况，服务器就陷入循环，也就是自己攻击自己