站长资源网络编程
如何侦测HTTP表头信息？
简介 千花飞舞之HTTP headERS侦测< /title></head><body><TABLE BORDER=1><tr><td VALIGN=TOP><B>变量</B></td><td VALIGN=TOP><B>值</B></td></tr><% For</div>
<div class="news_infos"><div id="MyContent"><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><html></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><head></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><title> 千花飞舞之HTTP headERS侦测< /title></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"></head></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><body></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><TABLE BORDER=1></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><tr><td VALIGN=TOP><B>变量</B></td></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><td VALIGN=TOP><B>值</B></td></tr></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><% For Each key In Request.ServerVariables %></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><tr></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><td><% = key %></td></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><td></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><%</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">If Request.ServerVariables(key) = "" Then</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">If GetAttribute(key) = "" Then</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">Response.Write " " </P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">Else</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">Response.Write GetAttribute(key)</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">End If</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">Else </P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">Response.Write Request.ServerVariables(key)</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">End If</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">Response.Write "</td>"</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">%></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"></tr></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><% Next %></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"></TABLE></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"></body></html></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"> <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><% </P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">Function GetAttribute(AttrName)</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">Dim AllAttrs</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">Dim RealAttrName</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">Dim Location</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">Dim Result</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">AllAttrs = Request.ServerVariables("ALL_HTTP")</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">RealAttrName = AttrName</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">Location = instr(AllAttrs, RealAttrName & ":")</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">If Location <= 0 Then</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">GetAttribute = ""</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">Exit Function</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">End If</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">Result = mid(AllAttrs, Location + Len(RealAttrName) + 1)</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">Location = instr(Result, chr(10))</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">If Location <= 0 Then Location = len(Result) + 1</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">GetAttribute = left(Result, Location - 1)</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">End Function</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"> %></P></div>
</div>
</div>
<div class="share"> </div>
<div class="nextinfo">
<p>上一篇：<a href="http://m.wwsws.com/show/1/163814.html" title="如何提高Request集合的使用效率？">如何提高Request集合的使用效率？</a></p>
<p>下一篇：<a href="http://m.wwsws.com/show/1/163816.html" title="如何处理包含javascript语句时的间隔符？">如何处理包含javascript语句时的间隔符？</a></p>
</div>
<div class="otherlink">
<h2>最新资源</h2>
<ul>
<li>
<i class="iconfont icon-point"></i>
<a class="text-sm" href="/show/1/623322.html" one-link-mark="yes" title="群星《奔赴！万人现场 第2期》[FLAC/分轨][518.87MB]"><span>群星《奔赴！万人现场 第2期》[FLAC/分轨][518.8</span></a>
</li>
<li>
<i class="iconfont icon-point"></i>
<a class="text-sm" href="/show/1/623321.html" one-link-mark="yes" title="群星《奇妙浪一夏 (上海迪士尼度假区音乐)》[320K/MP3][43.91MB]"><span>群星《奇妙浪一夏 (上海迪士尼度假区音乐)》[32</span></a>
</li>
<li>
<i class="iconfont icon-point"></i>
<a class="text-sm" href="/show/1/623320.html" one-link-mark="yes" title="群星《奇妙浪一夏 (上海迪士尼度假区音乐)》[FLAC/分轨][140.49MB]"><span>群星《奇妙浪一夏 (上海迪士尼度假区音乐)》[FL</span></a>
</li>
<li>
<i class="iconfont icon-point"></i>
<a class="text-sm" href="/show/1/623319.html" one-link-mark="yes" title="【古典音乐】詹姆斯·高威《季节》1993[WAV+CUE]"><span>【古典音乐】詹姆斯·高威《季节》1993[WAV+CUE]</span></a>
</li>
<li>
<i class="iconfont icon-point"></i>
<a class="text-sm" href="/show/1/623318.html" one-link-mark="yes" title="贝拉芳蒂《卡里普索之王》SACD[WAV+CUE]"><span>贝拉芳蒂《卡里普索之王》SACD[WAV+CUE]</span></a>
</li>
<li>
<i class="iconfont icon-point"></i>
<a class="text-sm" href="/show/1/623317.html" one-link-mark="yes" title="小骆驼-《草原狼2(蓝光CD)》[原抓WAV+CUE]"><span>小骆驼-《草原狼2(蓝光CD)》[原抓WAV+CUE]</span></a>
</li>
<li>
<i class="iconfont icon-point"></i>
<a class="text-sm" href="/show/1/623316.html" one-link-mark="yes" title="群星《欢迎来到我身边 电影原声专辑》[320K/MP3][105.02MB]"><span>群星《欢迎来到我身边 电影原声专辑》[320K/MP3</span></a>
</li>
<li>
<i class="iconfont icon-point"></i>
<a class="text-sm" href="/show/1/623315.html" one-link-mark="yes" title="群星《欢迎来到我身边 电影原声专辑》[FLAC/分轨][480.9MB]"><span>群星《欢迎来到我身边 电影原声专辑》[FLAC/分轨</span></a>
</li>
<li>
<i class="iconfont icon-point"></i>
<a class="text-sm" href="/show/1/623314.html" one-link-mark="yes" title="雷婷《梦里蓝天HQⅡ》 2023头版限量编号低速原抓[WAV+CUE][463M]"><span>雷婷《梦里蓝天HQⅡ》 2023头版限量编号低速原抓</span></a>
</li>
<li>
<i class="iconfont icon-point"></i>
<a class="text-sm" href="/show/1/623313.html" one-link-mark="yes" title="群星《2024好听新歌42》AI调整音效【WAV分轨】"><span>群星《2024好听新歌42》AI调整音效【WAV分轨】</span></a>
</li>
</ul>
</div>
</div>
<div class="sidebar">
<div class="cloud"><h2 class="hometitle">一句话新闻</h2><a href="/3G/1/604673.html"><ul>微软与英特尔等合作伙伴联合定义“AI PC”：键盘需配有Copilot物理按键<br><br>几个月来，英特尔、微软、AMD和其它厂商都在共同推动“AI PC”的想法，朝着更多的AI功能迈进。在近日，英特尔在台北举行的开发者活动中，也宣布了关于AI PC加速计划、新的PC开发者计划和独立硬件供应商计划。<br>在此次发布会上，英特尔还发布了全新的全新的酷睿Ultra Meteor Lake NUC开发套件，以及联合微软等合作伙伴联合定义“AI PC”的定义标准。</ul></a></div>
</div>
</article>
<footer>
<p>友情链接:<a href="http://www.imxmx.com/" title="杰晶网络" target="_blank">杰晶网络</a> <a href="http://www.ddrfans.com/" title="DDR爱好者之家" target="_blank">DDR爱好者之家</a> <a href="http://www.nqxw.com/" title="南强小屋" target="_blank">南强小屋</a> <a href="http://www.paidiu.com/" title="黑松山资源网" target="_blank">黑松山资源网</a> <a href="http://www.dyhadc.com/" title="白云城资源网" target="_blank">白云城资源网</a> <a href="/sitemap.xml">SiteMap</a></p>
<p>Design by <a href="http://m.wwsws.com">伏龙阁资源网</a> <a href="/">http://m.wwsws.com</a></p>
</footer>
<script src="/images/nav.js"></script>
<script type="text/javascript">
jQuery.noConflict();
jQuery(function() {
var elm = jQuery('#left_flow2');
var startPos = jQuery(elm).offset().top;
jQuery.event.add(window, "scroll", function() {
var p = jQuery(window).scrollTop();
jQuery(elm).css('position', ((p) > startPos) ? 'fixed' : '');
jQuery(elm).css('top', ((p) > startPos) ? '0' : '');
});
});
</script>
</body>
</html>