Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

asp Http_Referer,Server_NameºÍHttp_Host

asp Http_Referer,Server_NameºÍHttp_Host
ÒÔÇ°¸Ð¾õRequest.ServerVariablesÀïµÄÖµºÜ¶à£¬ÏÖÔÚ¿´¿´»¹ÊÇÄÇô¶à£¬²»¹ý½ñÌì̸ÆäÖеÄÒ»¸öÖµ----HTTP_RefererÒÔ¼°Request.ServerVariablesÀïServer_NameÓëHttp_HostÖ®¼äÓÐʲôÇø±ðÄØ£¿
¸Õ²ÅÔËÐÐÁËÒ»¶Î´úÂ룬À´²é¿´Request.ServerVariablesÀïÃæÓжàÉÙÖµ£¬¿´ÁËһϣ¬¹²50¸ö£¡
´úÂë<%=Request.ServerVariables.count%>
ÒÔÇ°¸Ð¾õRequest.ServerVariablesÀïµÄÖµºÜ¶à£¬ÏÖÔÚ¿´¿´»¹ÊÇÄÇô¶à£¬²»¹ý½ñÌì̸ÆäÖеÄÒ»¸öÖµ----HTTP_Referer
Ê×ÏÈ£¬ÎÒÃÇÏÈÖªµÀHTTP_Referer×î³£ÓõÄÓ¦ÓþÍÊÇÄܹ»·ÀÖ¹ÍⲿÌá½»¡£
ÏÂÁÐÇé¿öÊÇ´Óä¯ÀÀÆ÷µÄµØÖ·À¸Õý³£È¡µÃRequest.ServerVariables("HTTP_REFERER")£º
1) Ö±½ÓÓÃ<a href="">
2) ÓÃSubmit»ò<input type="image">Ìá½»µÄ±íµ¥(POST»òGET)
3) ʹÓÃJAvaScriptÌá½»µÄ±íµ¥(POST»òGET)
ÏÂÃæÎÒÃÇÔÙ¿´¿´Request.ServerVariables("HTTP_REFERER")²»ÄÜÕý³£È¡ÖµµÄÇé¿ö£º
1) ´ÓÊղؼÐÁ´½Ó
2) µ¥»÷Ö÷Ò³»ò×Ô¶¨ÒåµÄµØÖ·
3) ÔÚä¯ÀÀÆ÷ÖÐÖ±½ÓÊäµØÖ·
4) ʹÓÃJavaScriptµÄLocation.href»òÕßÊÇLocation.replace()
5) <%Response.Redirect%>
6) <%Response.AddHeader%>»òÕßÊÇ<mete http-equiv="refresh">תÏò
7) ÓÃXML¼ÓÔصØÖ·
ÏÔÈ»£¬Request.ServerVariables("HTTP_REFERER")ÔÚ¶àÊýÇé¿öÏÂÊDz»ÄÜÕý³£¹¤×÷µÄ¡£¹ØÓÚËüµÄ¾ßÌåÓ÷¨ÎÒ»áÔÚÒÔºóµÄÎÄÕÂÖÐÏêϸµÄ½éÉÜ£¬Í¬Ê±»¹»á½éÉÜRequest.ServerVariables("HTTP_HOST")Request.ServerVariables("SERVER_NAME")Ö®¼äµÄÇø±ð¡£
¾´Çë¹Ø×¢£¡
Request.ServerVariablesÀïServer_NameÓëHttp_HostÖ®¼äÓÐʲôÇø±ðÄØ£¿
Èç¹û²»×Ðϸ¿´£¬ÄúÓ¦¸Ã¿´²»³öËüÃÇÖ®¼äµÄÇø±ð¡£ÔÚÍøÉÏËÑÁ˺ܶ࣬»¹ÊÇҲûÓп´¶®£¬²»¹ý×îºó»¹ÊÇÓÐÒ»¾ä»°ºÜÊÇÃ÷°×£ºHttp_Host¿ÉÒÔRequest³ö·Ç80µÄServer_Port£¬¼òµ¥µØ˵¾ÍÊÇ£¬Http_Host=Server_Name:Server_Port¡£
ÔÚÒÔÇ°·¢±í¹ý¹ØÓÚHttp_Referer×÷ÓõÄÎÄÕ£¬ÏÖÔÚ½áºÏËüÀ´Ð´Ò»¸öASP·ÀÖ¹ÍⲿÌá½»µÄº¯Êý
¸´ÖÆ´úÂë ´úÂëÈçÏÂ:
function ChkPost()
dim server_v1,server_v2
chkpost=false
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
If Mid(server_v1,8,Len(server_v2))<>server_v2 then
chkpost=False
else
chkpost=True
end If
end function
Select Case
¼ÙÈçÄãÏ£ÍûÑ¡Ôñ¶àÌ×´úÂëÖ®Ò


Ïà¹ØÎĵµ£º

aspÏÂÔØÆäËüÍøÕ¾µÄͼƬÀ´¸øhtmlÏÔʾ

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit
Response.Buffer = True '»º´æͼƬ
Dim objXMLHTTP, XML
Set XML = Server.CreateObject("Microsoft.XMLHTTP") '½¨Á¢ÏÂÔضÔÏó
XML.Open "GET","http://www.google.cn/images/nav_logo7.png",False '¿ªÊ¼»ñȡͼƬ,http://xxx/pngÕâ½Ú¿ÉÒԸijÉ× ......

AspÖÐÒþ²ØÏÂÔصØÖ·

<%
Response.Buffer = true
Response.Clear
dim url
Dim fso,fl,flsize
dim Dname
Dim objStream,ContentType,flName,isre,url1
Dim strFileName
strFileName=replace(replace(Request("file"),"\",""),"/","")  '´«²Î
strFileName="/files/"&strFileName    ' ¸Ä³ÉÄãÄãÎļþµÄ´æ ......

ASP¹ØÓÚ´òÓ¡

1¡¢¿ØÖÆ"×Ý´ò"¡¢ ºá´ò”ºÍ“Ò³ÃæµÄ±ß¾à¡£
£¨1£©<script defer>
function SetPrintSettings() {
// -- advanced features
factory.printing.SetMarginMeasure(2) // measure margins in inches
factory.SetPageRange(false, 1, 3) // need pages from 1 to 3
factory.printing.printer = "HP De ......

ASP²É¼¯ ASP²É¼¯³ÌÐòÔ­Àí

ASP²É¼¯-ASP²É¼¯³ÌÐòÔ­Àí
²É¼¯³ÌÐòµÄÖ÷Òª²½ÖèÈçÏ£º
Ò»¡¢»ñÈ¡±»²É¼¯µÄÒ³ÃæµÄÄÚÈÝ
¶þ¡¢´Ó»ñÈ¡´úÂëÖÐÌáÈ¡ËùÓÐÓõÄÊý¾Ý
Ò»¡¢»ñÈ¡±»²É¼¯µÄÒ³ÃæµÄÄÚÈÝ
ÎÒÄ¿Ç°ËùÕÆÎÕµÄASP³£ÓûñÈ¡±»²É¼¯µÄÒ³ÃæµÄÄÚÈÝ·½·¨£º
1¡¢ÓÃserverXMLHTTP×é¼þ»ñÈ¡Êý¾Ý
ÒÔÏÂÄÚÈÝΪ³ÌÐò´úÂë:
ÒÔÏÂΪÒýÓõÄÄÚÈÝ£º
Function GetBody(weburl) 
&n ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ