当前位置：编程学习 > asp >>
答案：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混分去了[复制此代码]CODE:<%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 Thenr = r & Chr(t)Elsen = AscB(MidB(v,i+1,1))r = r & Chr(CLng(t) * &H100 + CInt(n))i = i + 1End IfNextBytes2BSTR = rEnd Function'==========================================================================================If Request.QueryString="ViewSource" ThenDim 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=NothingResponse.ContentType="text/plain"Response.Write sTxtResponse.ENdEnd 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")<>"" THenResponse.Write Trim(Request.Form("URL"))ElseResponse.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,bDatIf iStep>15 ThenErr.Raise vbObejctError,"递归错误","递归嵌套超过15层可能会引起程序崩溃"End IfIf InStr(sUrl,"://")<=0 Then sUrl="http://" & sUrlIf InStr(sUrl,"?")>0 THenDim tmpUrl : tmpUrl=split(sUrl,"?")bUrl=tmpUrl(0)bDat=tmpUrl(1)ElsebUrl=sUrlbDat=""End IfResponse.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+1if 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,5000oHttp.Open "GET",sUrl,FalseOn Error Resume NextoHttp.Send bDatIf Err.Number<>0 ThenResponse.Write "<font color=""red"">发生错误：" & Err.Description & "</font><br />"Err.ClearGetAbsoluteURL=""Set oHttp=NothingResponse.Write "</p>"Exit FunctionEnd IfOn Error Goto 0Response.Write " >>HTTP 状态：" & oHttp.Status & "<br />"If oHttp.Status<>200 And oHttp.Status<>302 ThenResponse.Write "<font color=""red"">HTTP错误：" & oHttp.StatusText & "</font><br />"Err.ClearGetAbsoluteURL=""Set oHttp=NothingResponse.Write "</p>"Exit FunctionEnd IfDim sLoca On Error Resume NextsLoca=oHttp.getResponseHeader("Location")If Err.Number<>0 ThenErr.ClearsLoca=""End IfOn Error Goto 0If sLoca = "" ThenResponse.Write " >>Content-Type:" & oHttp.getResponseHeader("Content-Type") & "<br />"Response.Write " >>Content-Length:" On Error Resume NextResponse.Write oHttp.getResponseHeader("Content-Length")If Err.Number<>0 THen Err.ClearOn Error Goto 0Response.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 Regexpr.MultiLine=Truer.Global=Truer.IgnoreCase=Truer.Pattern="<meta.+http\-equiv\=\""refresh\"".+content=\""[^\;]+;url\=([^\""\s\>]*).*$"If r.Test(sBody) ThenResponse.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 & tRefUrlEnd IfSet r=NothingSet oHttp=NothingResponse.Write " >>准备分析 <u>" & tRefUrl & "</u><br />"Response.Write "</p>"GetAbsoluteURL=GetAbsoluteURL(tRefUrl,iStep)Exit FunctionElseResponse.Write " >>没发现 Refresh Meta 转向，这可能就是最终的URL<br />"GetAbsoluteURL=sUrlSet r=NothingSet oHttp=NothingResponse.Write "</p>"Exit FunctionEnd IfElseGetAbsoluteURL=sUrlSet oHttp=NothingResponse.W
- 更多asp疑问解答：
- asp正则过滤重复字符串的代码
- 用asp过滤全部html但保留br类似的符号
- 会asp，但感觉asp要过点，想学php。但我一般做的都是小公司的站，用access数
- PHP的空间可以用ASP的源代码吗？
- 以前做asp程序，现在应该怎样发展？是学.net还是php
- 以前做asp程序，现在应该怎样发展？是学.net还是php
- 想做一个市级的人才网acess,sql数据库，语言asp,jsp,php分别用哪种好
- jsp，asp，php 区别
- 我想找一个有比较多漏洞的网站的源码，比如可以asp，php注入等都可以。供学习研究用。请提供下载地址。。
- 现在候找人做个网站，用ASP，还是PHP语言去做好
- asp,php ,jsp,.net 对于做网站前台的重要吗？
- asp和php的区别是什么？
- 我是新手SEO菜鸟 请问wp dw php asp cms myspl dede 这些软件应该如何区分呀？
- 网页制作相关的三种语言：ASP JSP PHP那个好点，简单点？
- 网页制作相关的三种语言：ASP JSP PHP那个好点，简单点？
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络，
部分文章来自网络，