获取软件下载的真实地址！再谈获取Response.redirect重定向的URL

2024-07-28 23:53:33

http://www.im286.com/viewthread.php?tid=1550010&extra=page%3D1

其实这个问题落伍谈了n次了
其中care4也说了两次所以如果你有问题最好先搜索一下说不定问题早有人解决了
http://www.im286.com/viewthread. ... ;highlight=%2Bcare4
http://www.im286.com/viewthread. ... ;highlight=%2Bcare4
care4的代码有一个小缺点就是需要组件。
第一个是.net组件二不是但用组件始终不太方便有没有asp直接获取的方式呢

答案是有的
我写的一个vb简单的winsock获取的代码
http://www.im286.com/viewthread. ... t=Response.redirect

当时我说用asp好像不能获得，那是当时没有去csdn混去，现在搞定了

首先我们要了解为什么xmlhttp组件无法获得这样的跳转真实地址
用Response.Redirect跳转，PHP里面是Header("Location",$URL);
这两种方式都是一样的原理，就是在输出的HTTP头里面加上一个Location字段
同时把返回的HTTP状态值设为302，浏览器就会认为当前请求的页面已经
被移动到Location指定的路径
那么为什么xmlhttp无法获得呢？
原因很简单
XMLHTTP组件在处理包含Location头的302消息时太智能了，直接给跳转到最后的页面，也就是说～我们看不到中间的过程！比尔自作聪明阿！

不过还好MSXML4里面提供了一个可用的新的组件：WinHttp.WinHttpRequest.5.1，这个也是MSXML4 XMLHTTP组件的核心。 WinHttp.WinHttpRequest有一个十分关键的属性：Option，这个属性的第六个索引就是指示是否自动跳转，然后就可以轻松的使用XMLHTTP组件的getResponseHeader和getAllResponseHeaders方法来获取返回的HTTP头信息了。

好接下来就看代码了
Dim oHttp
Set oHttp=Server.CreateObject("WinHttp.WinHttpRequest.5.1"
oHttp.Option(6)=0       '禁止自动Redirect，最关键的  剩下的就简单读取数据都估计大家都会
oHttp.SetTimeouts 5000,5000,30000,5000  '设置超时～和ServerXMLHTTP组件一样
oHttp.Open "GET",sUrl,False    '以同步模式打开URL
If oHttp.Status<>200 And oHttp.Status<>302 Then
'oHttp.Status对应返回的HTTP状态，如果是200，表示这个就是最终页面，没有Location跳转
'如果是302，表示当前请求的URL已经被移动，需要根据HTTP头来跳转
'对于其他数值的状态，基本上我们不要处理，但是你要处理也可以比如 440或者别的状态你自己处理就可以了！
Else
'在这里对返回的HTTP头和文档内容进行处理
End If

好了比较完整的代码比较长
我传了个到空间上自己看去
http://test.aymtv.com/url.asp
默认的输入栏里的代码是crsky的一个下载地址你可以测试一下就知道了
点查看源代码就可以看见这个asp文件的源代码！

一切搞定 over 继续去csdn混分去了

完整代码：

代码如下:

<%

Public Function Bytes2BSTR(v)

	Dim r,i,t,n : r = ""

	For i = 1 To LenB(v)

		t = AscB(MidB(v,i,1))

		If t < &H80 Then

			r = r & Chr(t)

		Else

			n = AscB(MidB(v,i+1,1))

			r = r & Chr(CLng(t) * &H100 + CInt(n))

			i = i + 1

		End If

	Next

	Bytes2BSTR = r

End Function

'==========================================================================================

	If Request.QueryString="ViewSource" Then

		Dim oFso : Set oFso=Server.CreateObject("Scripting.FileSystemObject")

		Dim oFil : Set oFil=oFso.OpenTextFile(Server.MapPath("URL.Asp"))

		Dim sTxt : sTxt=oFil.ReadAll()

		oFil.Close : Set oFil=Nothing : Set oFso=Nothing

		Response.ContentType="text/plain"

		Response.Write sTxt

		Response.ENd

	End If

%><?xml version="1.0" encoding="gb2312" standalone="yes"?>

<!doctype html public "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns:v="http://www.eglic.com/">

	<head>

		<title></title>

		<meta name="Generator" content="EditPlus" />

		<meta name="Author" content="eglic" />

		<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />

		<meta name="CharSet" content="GB2312" />

		<link rel="stylesheet" type="text/css" href="/styles/default.css" />

		<style type="text/css">

			@media all{
}

		</style>

		<script language="javascript" src="/scripts/default.js"></script>

		<script language="javascript" src="/scripts/xml.js"></script>

		<script language="javascript">//<!--
//--></script>

	</head>

	<body>

		<form action="" method="POST">

			要检测的URL：<input type="text" name="URL" size="50" value="<%

				If Request.Form("URL")<>"" THen

					Response.Write Trim(Request.Form("URL"))

				Else

					Response.Write "http://www.crsky.com/view_down.asp?downd_id=8&downd=0&ID=20780&down=yes"

				End If

			%>" />

			<input type="submit" value="提交" />

			<input type="button" value="查看源代码" onclick="JavaScript:window.open('<%=URLSelf%>?ViewSource');" />

		</form>

		<%

			Public Function GetAbsoluteURL(sUrl,ByRef iStep)

				Dim bUrl,bDat

				If iStep>15 Then

					Err.Raise vbObejctError,"递归错误","递归嵌套超过15层可能会引起程序崩溃"

				End If

				If InStr(sUrl,"://")<=0 Then sUrl="http://" & sUrl

				If InStr(sUrl,"?")>0 THen

					Dim tmpUrl : tmpUrl=split(sUrl,"?")

					bUrl=tmpUrl(0)

					bDat=tmpUrl(1)

				Else

					bUrl=sUrl

					bDat=""

				End If

				Response.Write "<p style=""border:solid 1px silver;border-top:solid 2px red;padding:5px;margin:2px;"">"

				Response.Write "第 " & iStep & " 步："

				Response.Write "正在准备获取 " & bUrl & "<br />"

				iStep=iStep+1

				if bDat<>"" Then Response.Write "  >>参数： " & bDat & "<br />"

				Dim oHttp : Set oHttp=Server.CreateObject("WinHttp.WinHttpRequest.5.1")

				oHttp.Option(6)=0	'禁止自动Redirect，最关键的

				'oHttp.Option()

				oHttp.SetTimeouts 5000,5000,30000,5000

				oHttp.Open "GET",sUrl,False

				On Error Resume Next

					oHttp.Send bDat

					If Err.Number<>0 Then

						Response.Write "<font color=""red"">发生错误：" & Err.Description & "</font><br />"

						Err.Clear

						GetAbsoluteURL=""

						Set oHttp=Nothing

						Response.Write "</p>"

						Exit Function

					End If

				On Error Goto 0

					Response.Write "  >>HTTP 状态：" & oHttp.Status & "<br />"

					If oHttp.Status<>200 And oHttp.Status<>302 Then

						Response.Write "<font color=""red"">HTTP错误：" & oHttp.StatusText & "</font><br />"

						Err.Clear

						GetAbsoluteURL=""

						Set oHttp=Nothing

						Response.Write "</p>"

						Exit Function

					End If

					Dim sLoca

					On Error Resume Next

						sLoca=oHttp.getResponseHeader("Location")

						If Err.Number<>0 Then

							Err.Clear

							sLoca=""

						End If

					On Error Goto 0

					If sLoca = "" Then

						Response.Write "  >>Content-Type:" & oHttp.getResponseHeader("Content-Type") & "<br />"

						Response.Write "  >>Content-Length:"

						On Error Resume Next

							Response.Write oHttp.getResponseHeader("Content-Length")

							If Err.Number<>0 THen Err.Clear

						On Error Goto 0

						Response.Write "<br />"

						Response.Write "  >>没有返回Location头，继续分析页面<br />"

						If oHttp.getResponseHeader("Content-Type")="text/html" Then	'是HTML类型才继续处理

							Dim sBody : sBody=Bytes2BStr(oHttp.responseBody)

							Dim r : Set r=new Regexp

							r.MultiLine=True

							r.Global=True

							r.IgnoreCase=True

							r.Pattern="<meta.+http\-equiv\=\""refresh\"".+content=\""[^\;]+;url\=([^\""\s\>]*).*$"

							If r.Test(sBody) Then

								Response.Write "  >>发现 Refresh 地址<br />"

								Dim m : Set m=r.Execute(sBody)

								Dim tRefUrl : tRefUrl=r.Replace(m(0).Value,"$1")

								If InStr(tRefUrl,"://")<=0 Then	'没有指定协议，按当前URL的位置重新设置

									Dim ind1 : ind1=InstrRev(sUrl,"/")

									sUrl=Left(sUrl,ind1)

									tRefUrl=sUrl & tRefUrl

								End If

								Set r=Nothing

								Set oHttp=Nothing

								Response.Write "  >>准备分析 <u>" & tRefUrl & "</u><br />"

								Response.Write "</p>"

								GetAbsoluteURL=GetAbsoluteURL(tRefUrl,iStep)

								Exit Function

							Else

								Response.Write "  >>没发现 Refresh Meta 转向，这可能就是最终的URL<br />"

								GetAbsoluteURL=sUrl

								Set r=Nothing

								Set oHttp=Nothing

								Response.Write "</p>"

								Exit Function

							End If

						Else

							GetAbsoluteURL=sUrl

							Set oHttp=Nothing

							Response.Write "</p>"

							Exit Function

						End If

						'这里要继续分析网页内容

					Else

						Response.Write "  >>Content-Type:" & oHttp.getResponseHeader("Content-Type") & "<br />"

						Response.Write "  >>Content-Length:"

						On Error Resume Next

							Response.Write oHttp.getResponseHeader("Content-Length")

							If Err.Number<>0 THen Err.Clear

						On Error Goto 0

						Response.Write "<br />"

						Response.Write "  >><u>Location : " & sLoca& "</u><br />"

						Response.Write "</p>"

						'这里要生成新的URL

						If InStr(sLoca,"://")<=0 Then

							'没有指定协议，按当前URL的位置重新设置

							Dim ind : ind=InstrRev(sUrl,"/")

							sUrl=Left(sUrl,ind)

							sLoca=sUrl & sLoca

						End If

						GetAbsoluteURL=GetAbsoluteURL(sLoca,iStep)

					End If

			End Function

			If Request.Form("URL")<>"" THen

				Dim iStep : iStep=1

				Dim sAbs : sAbs=GetAbsoluteURL(Trim(Request.Form("URL")),iStep)

				Response.Write "<strong style=""color:white;background-color:red;font-size:15px;padding:3px;margin:10px;"">最终结果是：" & sAbs & "</strong>"

			End If

		%>

	<script src="/T/mystat.asp?siteid=1"></script>

	</body>

</html>

javascript asp教程第七课--response属性

Below is a table of Response Properties along with examples and explanations. Response Properties Buffer Response.Buffer = trueAllows for the buffering of output CacheControl Response.CacheControl="Public" Sets Cache to "Public" or &qu
ASP .NET调用javascript中Response.Write和ClientScript.RegisterStartupScript的区别

例如下面的代码复制代码代码如下: StringBuilder sb = new StringBuilder(); sb.Append("<script language=javascript>"); sb.Append("alert(document.forms.length);"); sb.Append("</script>"); Response.Write(sb.ToString()); ClientScript
JavaEE中用response向客户端输出中文数据乱码问题分析

Web服务器收到客户端的http请求,会针对每一次请求,分别创建一个用于代表请求的request对象,和代表响应的response对象.request和response对象既然代表请求和响应,那我们要获取客户机提交过来的数据,只需要找request对象就行了.要向客户机输出数据,只需要找response对象就行了. 复制代码代码如下: package com.yyz.response; import java.io.IOException; import java.io.OutputStr
JavaEE通过response实现请求重定向

请求重定向指的是一个web资源收到客户端请求后,通知客户端去访问另外一个web资源,这称之为请求重定向.302状态码和location头即可实现重定向. 请求重定向最常见的应用场景就是用户登录. 下面的示例代码从另一个页面重定向到用户登录页面: 复制代码代码如下: package com.yyz.response; import java.io.IOException; import javax.servlet.ServletException; import javax.servlet
javascript asp教程第六课-- response方法

response 对象:reponse是asp中六个对象之一.它代表了服务器端对浏览器的回应.response有8种方法,9种属性和一个集.在这一课,我们就重点讲述方法.方法:在javascript中,asp方法使用括号.请注意依赖response.buffer的两个方法,我们将在下一课讲到他们.同样应该注意到addheader()和redirect(),因为他们必须优先于write()执行.所有的方法都在上面描述和演示了.下面我将详细讲述每一个方法.我将花点额外的时间来讲述我们用的最多的两个方
获取软件下载的真实地址！再谈获取Response.redirect重定向的URL

http://www.im286.com/viewthread.php?tid=1550010&extra=page%3D1 其实这个问题落伍谈了n次了其中care4也说了两次所以如果你有问题最好先搜索一下说不定问题早有人解决了http://www.im286.com/viewthread. ... ;highlight=%2Bcare4http://www.im286.com/viewthread. ... ;highlight=%2Bcare4care4的代码有一个小缺点就是需要组件.第
java获取百度网盘真实下载链接的方法

本文实例讲述了java获取百度网盘真实下载链接的方法.分享给大家供大家参考.具体如下: 目前还存在一个问题,同一ip在获取3次以后会出现验证码,会获取失败,感兴趣的朋友对此可以加以完善. 返回的List<Map<String, Object>> 中的map包含:fileName( 文件名),url(实链地址) HttpRequest.java如下: import java.io.BufferedReader; import java.io.IOException; import
php获取CSS文件中图片地址并下载到本地的方法

本文实例讲述了php获取CSS文件中图片地址并下载到本地的方法.分享给大家供大家参考. 具体实现代码如下: 复制代码代码如下: /** * 获取CSS中图片地址,并且保存到本地 */ class getInCssImage { /** * 图片保存下来 * @param $cssUrl css的url地址 * @param $dir 保存图片的目录 * @return void
PHP转换IP地址到真实地址的方法详解

想要把IPv4地址转为真实的地址,肯定要参考IP数据库,商业的IP数据库存储在关系型数据库中,查询和使用都非常方便,但是成本不是个人和小公司愿意承受的,所以简单应用的思路就是利用一些免费的IP数据库或者一些大网站提供的查询API,他们的数据量足够我们使用了.1. 利用纯真IP数据库利用本地的QQWry.Dat文件,优点是查询速度非常快,缺点是数据库文件要放在自己的空间内并且要偶尔更新数据库.时间关系废话不多说,下面是使用这个文件的函数,如果是在WordPress里面使用这个功能,把下面的代码
Android编程实现根据经纬度查询地址并对获取的json数据进行解析的方法

本文实例讲述了Android编程实现根据经纬度查询地址并对获取的json数据进行解析的方法.分享给大家供大家参考,具体如下: 第一步:根据指定的URL从google 服务器上获得包含地址的json格式的数据(其还提供xml格式的,但json解析效率比xml高) private static StringBuffer getJSONData(String urlPath){ try { URL url = new URL(urlPath); HttpURLConnection httpURLCon
android实现获取有线和无线Ip地址的方法

本文实例讲述了android实现获取有线和无线Ip地址的方法.分享给大家供大家参考.具体如下: 做android的开发时,遇到了获取有线ip地址的问题.不多说上代码! for (Enumeration<NetworkInterface> en = NetworkInterface .getNetworkInterfaces(); en.hasMoreElements();) { NetworkInterface intf = en.nextElement(); if (intf.getNam
使用Python获取网段IP个数以及地址清单的方法

使用Python获取网段的IP个数以及地址清单需要用到IPy的库,而相应的方法主要就是IP. 写小脚本如下: from IPy import IP ip = IP('192.168.0.0/16') print(ip.len()) for x in ip: print(x) 运行结果: GreydeMac-mini:01_系统基础信息模块详解 greyzhang$ python ip.py 65536 192.168.0.0 192.168.0.1 192.168.0.2 192.168.0.3
Django 再谈一谈json序列化

我们知道JSON字符串是目前流行的数据交换格式,在pyhton中我们通过json模块,将常用的数据类型转化为json字符串.但是,json支持转化的数据类型是有限的. 比如,我们通过ORM从数据库查询出的结果,试图通过json序列化: from .models import UserInfo def index(request): user_list = UserInfo.objects.all() import json return HttpResponse(json.dumps(user_
Android开发获取手机内网IP地址与外网IP地址的详细方法与源码实例

在进行Android应用开发过程中,有时候会遇到获取当前Android设备所使用的网络IP地址的场景,有时候需要本地的网络IP地址,即局域网地址,更多的时候是需要当前网络的真实的对外IP地址,即真实的网络地址,如大数据分析时往往需要Android设备上传本地的外网地址.本文对各种IP地址的获取进行了总结. 首先用大家比较熟悉的电脑端局域网地址和外网地址的获取方式对比一下:(1).电脑端局域网地址获取方式,可以通过在终端命令行输入ipconfig进行查看,如下图IPv地址标识的就是本机的局域网地址
JVM系列之:再谈java中的safepoint说明

safepoint是什么 java程序里面有很多很多的java线程,每个java线程又有自己的stack,并且共享了heap.这些线程一直运行呀运行,不断对stack和heap进行操作. 这个时候如果JVM需要对stack和heap做一些操作该怎么办呢? 比如JVM要进行GC操作,或者要做heap dump等等,这时候如果线程都在对stack或者heap进行修改,那么将不是一个稳定的状态.GC直接在这种情况下操作stack或者heap,会导致线程的异常. 怎么处理呢? 这个时候safepoint

获取软件下载的真实地址！再谈获取Response.redirect重定向的URL

相关推荐

随机推荐