站长资源网络编程
如何侦测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/620773.html" one-link-mark="yes" title="群星《歌手2024 第3期》[FLAC/分轨][204.16MB]"><span>群星《歌手2024 第3期》[FLAC/分轨][204.16MB]</span></a>
</li>
<li>
<i class="iconfont icon-point"></i>
<a class="text-sm" href="/show/1/620772.html" one-link-mark="yes" title="群星《乘风2024 第6期》[320K/MP3][57.95MB]"><span>群星《乘风2024 第6期》[320K/MP3][57.95MB]</span></a>
</li>
<li>
<i class="iconfont icon-point"></i>
<a class="text-sm" href="/show/1/620771.html" one-link-mark="yes" title="群星《乘风2024 第6期》[FLAC/分轨][170.72MB]"><span>群星《乘风2024 第6期》[FLAC/分轨][170.72MB]</span></a>
</li>
<li>
<i class="iconfont icon-point"></i>
<a class="text-sm" href="/show/1/620770.html" one-link-mark="yes" title="陈立强1995-我爱你胜过这世界[福茂][WAV+CUE]"><span>陈立强1995-我爱你胜过这世界[福茂][WAV+CUE]</span></a>
</li>
<li>
<i class="iconfont icon-point"></i>
<a class="text-sm" href="/show/1/620769.html" one-link-mark="yes" title="群星-《2014年十大发烧唱片精选HQCD》[低速原抓WAV+CUE]"><span>群星-《2014年十大发烧唱片精选HQCD》[低速原抓</span></a>
</li>
<li>
<i class="iconfont icon-point"></i>
<a class="text-sm" href="/show/1/620768.html" one-link-mark="yes" title="群星2013-青春缤纷辑压箱宝大公开3CD2[新加坡限量版][WAV整轨]"><span>群星2013-青春缤纷辑压箱宝大公开3CD2[新加坡限</span></a>
</li>
<li>
<i class="iconfont icon-point"></i>
<a class="text-sm" href="/show/1/620767.html" one-link-mark="yes" title="林育群.2013-BalladShow（日本版）【环球】【WAV+CUE】"><span>林育群.2013-BalladShow（日本版）【环球】【WAV+</span></a>
</li>
<li>
<i class="iconfont icon-point"></i>
<a class="text-sm" href="/show/1/620766.html" one-link-mark="yes" title="陈加洛.1992-痛到感觉不到【宝丽金】【WAV+CUE】"><span>陈加洛.1992-痛到感觉不到【宝丽金】【WAV+CUE】</span></a>
</li>
<li>
<i class="iconfont icon-point"></i>
<a class="text-sm" href="/show/1/620765.html" one-link-mark="yes" title="群星.2023-宿命之敌电视剧原声带【韶愔音乐】【FLAC分轨】"><span>群星.2023-宿命之敌电视剧原声带【韶愔音乐】【</span></a>
</li>
<li>
<i class="iconfont icon-point"></i>
<a class="text-sm" href="/show/1/620764.html" one-link-mark="yes" title="東京事変-大発見[FLAC+CUE]"><span>東京事変-大発見[FLAC+CUE]</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>