无为清净楼资源网

获取软件下载的真实地址！再谈获取Response.redirect重定向的URL
网络编程 2024/11/15 佚名
3 2
无为清净楼资源网 Design By www.qnjia.com

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="/UploadFiles/2021-04-02/default.js">
标签：
再谈获取Response.redirect重定向的URL
无为清净楼资源网 Design By www.qnjia.com
广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！ 如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
无为清净楼资源网 Design By www.qnjia.com
www.qnjia.com 无为清净楼资源网
139,976互联网资源
144,792高清电影
21,817无损音乐
631,128技术资源

更新日志

友情链接

杰晶网络 DDR爱好者之家 桃源资源网 杰网资源 富贵资源网 南强小屋 铁雪资源网 幽灵资源网 万梅资源网 狼山资源网 白云岛资源网 昆仑资源网 相思资源网 明霞山资源网 内蒙古资源网 黑松山资源网 茶园资源网 饿虎岗资源网 大旗谷资源网 常春岛资源网 岱庙资源网 兴国资源网 快活林资源网 蝙蝠岛资源网 帝王谷资源网 白云城资源网 伏龙阁资源网 清风细雨楼 天枫庄资源网 圆月山庄资源网 无争山庄资源网 神水资源网 移花宫资源网 神剑山庄资源网 无为清净楼资源网 金钱帮资源网 丐帮资源网 华山资源网 极乐门资源网 小李飞刀资源网 凤求凰客栈 风云阁资源网 金狮镖局 鸳鸯亭资源网 千金楼资源网 更多链接