aspÑéÖ¤Â루¼Ó·¨ÔËË㣩
ÔÚÌá½»Ò³ÃæÖÐÑéÖ¤session("GetCode")
<%@CodePage="65001"%>
<%
Call Com_CreatValidCode("GetCode")
Sub Com_CreatValidCode(pSN)
' ½ûÖ¹»º´æ
Response.Expires = -9999
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
'Response.ContentType = "Image/BMP"
Randomize
Dim i, ii, iii
Const cOdds = 4 ' ÔÓµã³öÏֵĻúÂÊ
Const cAmount = 13 ' ÎÄ×ÖÊýÁ¿
Const cCode = "0123456789+=?"
' ÑÕÉ«µÄÊý¾Ý(×Ö·û£¬±³¾°)
Dim vColorData(1),vColorRandom(10)
'vColorData(0) = ChrB(Int(Rnd*155)+100) & ChrB(Int(Rnd*155)+100) & ChrB(Int(Rnd*155)+100) ' À¶0£¬ÂÌ0£¬ºì0£¨ºÚÉ«£©
vColorRandom(0)=ChrB(150) & ChrB(0) & ChrB(0)
vColorRandom(1)=ChrB(0) & ChrB(150) & ChrB(0)
vColorRandom(2)=ChrB(0) & ChrB(0) & ChrB(150)
vColorRandom(3)=ChrB(0) & ChrB(50) & ChrB(150)
vColorRandom(4)=ChrB(150) & ChrB(50) & ChrB(0)
vColorRandom(5)=ChrB(150) & ChrB(0) & ChrB(150)
vColorRandom(6)=ChrB(150) & ChrB(100) & ChrB(10)
vColorRandom(7)=ChrB(150) & ChrB(40) & ChrB(120)
vColorRandom(8)=ChrB(150) & ChrB(0) & ChrB(250)
vColorRandom(9)=ChrB(100) & ChrB(100) & ChrB(100)
vColorRandom(10)=ChrB(50) & ChrB(50) & ChrB(50)
vColorData(0) = vColorRandom(0)
vColorData(1) = ChrB(250) & ChrB(250) & ChrB(255) '±³¾°É« À¶250£¬ÂÌ236£¬ºì211£¨Ç³À¶É«£©
' Ëæ»ú²úÉú×Ö·û
Dim vCode(6),vCodes,vCodeColors(6)
F
Ïà¹ØÎĵµ£º
³£ÓõÄÖØ¶¨Ïò·½Ê½ÓÐ: 301 redirect, 302 redirect Óë meta fresh£º
ASP ÖУ¬ÎÒÃÇϰ¹ßʹÓà Response.Redirdect À´ÊµÏÖÒ³ÃæµÄÌø×ª£¬µ«ÊÇÕâÖÖÌø×ª·½Ê½µÄ״̬ÊÇ 302 µÄ£¬ÊôÓÚÁÙÊ±Ìø×ª£¬¶ÔÓÚËÑË÷ÒýÇæÀ´Ëµ£¬ÊÇÒ»ÖÖ²»ÓѺõÄÖØ¶¨Ïò·½Ê½¡£
ASP 3.0 ÖУ¬ÓÐÁËÁíÒ»ÖÖ·½Ê½£¬¼´ Response.Transfer ¡£¹ØÓÚÕâ¸ö£¬¿ÉÒÔ²éѯÏà¹ØµÄÐÅÏ¢¡£
......
֮ǰд¹ýÒ»¸ö²»ÓÃÑéÖ¤ÂëµÄ·À×¢²á»ú·½·¨£¬Ê¹ÓÃÁ˽«½ü2Äêºó£¬³¹µ×ʧЧ¡£
½ñÌìżȻײ¼ûÒ»¸ö·ÀÖ¹¶ñÒâ×¢²áµÄ·½·¨£¬ÕýÔÚ˼¿¼ing¡£ÏȰѷ½·¨ÁÐÏ£º
»ñÈ¡¿Í»§¶ËÌá½»µÄÐÅÏ¢£»
½«ÐÅÏ¢´æÈë Session£»
Éú³ÉÒ»¸öËæ»úÊý£¨³ÆÎª ticket£©£»
½«Ëæ»úÊýÒ²´æÈë Session£»
Óà JavaScript µÄÐÎʽ½«Ëæ»úÊýÒÔÁ´½ÓµÄÐÎʽÊä³ö£¬²¢Ìáʾ¿Í»§µã»÷ÉÏÒ ......
<%
'µ÷ÊÔ£ºJAVAÖÐÎÄÍø:www.javaweb.cc/
'×¢Ò⣬°´ÕÕËù·ÅÖõÄĿ¼²»Í¬ÇëÐÞ¸ÄobjXmlHttpºÍÉú³ÉÊ×ҳ·¾¶
dim objXmlHttp,binFileData,objAdoStream
set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
objXmlHttp.open "GET","http://"&request.ServerVariables("HTTP_HOST")&"/index.asp",false ......
ASPÊÇĿǰһÖÖ¹ãΪӦÓõÄÓÃÀ´¿ìËÙ¹¹½¨¶¯Ì¬WEBÕ¾µãµÄ±à³ÌÓïÑÔ£¬Ä¬ÈϵÄÄÚÖÿª·¢ÓïÑÔÊÇVBScript£¬ÓÉÓÚASPºÍ΢ÈíWindowsϵÁвÙ×÷ϵͳµÄ½áºÏ·Ç³£µÄºÃ£¬Ê¹µÃASPÒѾ³ÉΪÁËNT¿ª·¢Æ½Ì¨ÉÏÃæ½øÐÐWEB¿ª·¢µÄÊ×Ñ¡ÓïÑԺͻ·¾³¡£
ËûÓÐ׿òµ¥Ò×ѧ£¬·½±ã¿ìËÙ¿ª·¢µÄÖÖÖÖÓŵ㣬µ«ÊÇËûÒ²ÓÐ×ÅÖÂÃüµÄÈõµã£¬¾ÍÊÇËûÊǽű¾ÓïÑÔ½âÊÍÖ´Ðеģ¬ËÙ¶È»áÊܵ½ ......