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">
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
RTX 5090要首发 性能要翻倍!三星展示GDDR7显存
三星在GTC上展示了专为下一代游戏GPU设计的GDDR7内存。
首次推出的GDDR7内存模块密度为16GB,每个模块容量为2GB。其速度预设为32 Gbps(PAM3),但也可以降至28 Gbps,以提高产量和初始阶段的整体性能和成本效益。
据三星表示,GDDR7内存的能效将提高20%,同时工作电压仅为1.1V,低于标准的1.2V。通过采用更新的封装材料和优化的电路设计,使得在高速运行时的发热量降低,GDDR7的热阻比GDDR6降低了70%。
更新日志
- 凤飞飞《我们的主题曲》飞跃制作[正版原抓WAV+CUE]
- 刘嘉亮《亮情歌2》[WAV+CUE][1G]
- 红馆40·谭咏麟《歌者恋歌浓情30年演唱会》3CD[低速原抓WAV+CUE][1.8G]
- 刘纬武《睡眠宝宝竖琴童谣 吉卜力工作室 白噪音安抚》[320K/MP3][193.25MB]
- 【轻音乐】曼托凡尼乐团《精选辑》2CD.1998[FLAC+CUE整轨]
- 邝美云《心中有爱》1989年香港DMIJP版1MTO东芝首版[WAV+CUE]
- 群星《情叹-发烧女声DSD》天籁女声发烧碟[WAV+CUE]
- 刘纬武《睡眠宝宝竖琴童谣 吉卜力工作室 白噪音安抚》[FLAC/分轨][748.03MB]
- 理想混蛋《Origin Sessions》[320K/MP3][37.47MB]
- 公馆青少年《我其实一点都不酷》[320K/MP3][78.78MB]
- 群星《情叹-发烧男声DSD》最值得珍藏的完美男声[WAV+CUE]
- 群星《国韵飘香·贵妃醉酒HQCD黑胶王》2CD[WAV]
- 卫兰《DAUGHTER》【低速原抓WAV+CUE】
- 公馆青少年《我其实一点都不酷》[FLAC/分轨][398.22MB]
- ZWEI《迟暮的花 (Explicit)》[320K/MP3][57.16MB]