Recommended: Introduction to web page jump code The purpose of web page redirection is very simple. It is to switch from one page to another when the user or system needs it. The status code of the HTTP when redirecting is generally one of 200, 301, 302. The following lists the situations of each status code, and then explains the differences between each status code: 200 normal state, nothing has happened, and ordinary page browsing is generally 200 301
A good asp tutorial code, generate image format for phone numbers, save the following code as img.asp when using it, and insert <img src=img.asp?tel=010-000000> at the location where the phone number is to be displayed.| <% CallCom_CreatValidCode(Request.QueryString(tel)) PublicSubCom_CreatValidCode(pTel) '----------------------------------------------------------------------------------------------------------------------------- Response.Expires=0 Response.AddHeaderPragma,no-cache Response.AddHeadercache-ctrol,no-cache Response.ContentType=Image/BMP Randomize Dimi,ii,iii,rndColor,strLen,sql,rs ConstcOdds=5 '-------------------------------------------------------------------------------------------------------------------- Conststr=0123456789- strLen=len(pTel) rndColor=ChrB(cint(rnd*255))&ChrB(cint(rnd*255))&ChrB(cint(rnd*255))) '----------------------------------------------------------------------------------------------------------------------------- DimvColorData(1) 'vColorData(0)=ChrB(0)&ChrB(0)&ChrB(0)'-----Blue 0, green 0, red 0 (black) 'vColorData(1)=ChrB(255)&ChrB(255)&ChrB(255)'------Blue 250, green 236, red 211 (light blue) 'vColorData(0)=ChrB(197)&ChrB(106)&ChrB(49) '-----Blue 0, green 0, red 0 (black) 'vColorData(1)=ChrB(238)&ChrB(210)&ChrB(193) '------Blue 250, green 236, red 211 (light blue) vColorData(0)=ChrB(0)&ChrB(0)&ChrB(0)'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- vColorData(1)=ChrB(205)&ChrB(237)&ChrB(245) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- '----------------------------------------------------------------------------------------------------------------------------- Randomize DimvCode() redimvCode(strLen-1) Fori=0TostrLen-1 vCode(i)=instr(1,str,mid(pTel,i+1,1),1)-1 Next '----------------------------------------------------------------------------------------------------------------------------- DimvNumberData(11) 'VerdanaFont vNumberData(0)=11111111111000111101110111011101110111011101110111011101110111011110001111111111 vNumberData(1)=11111111111101111110011111110111111101111111011111110111111101111110001111111111 vNumberData(2)=11111111111000111101110111011101111110111111011111101111110111111100000111111111 vNumberData(3)=11111111111000111101110111111101111100111111110111111101110111011110001111111111 vNumberData(4)=11111111111110111111001111101011111010111101101111100001111110111111100111111111 vNumberData(5)=11111111110000011101111111011111110000111111110111111101110111011110001111111111 vNumberData(6)=11111111111000111101101111011111110000111101110111011101110111011110001111111111 vNumberData(7)=11111111110000011101101111111011111101111111011111110111111101111111011111111111 vNumberData(8)=11111111111000111101110111011101111000111101110111011101110111011110001111111111 vNumberData(9)=11111111111000111101110111011101110111011110000111111101111011011110000111111111 vNumberData(10)=11111111111111111111111111111111111111111100000111111111111111111111111111111111 vNumberData(11)=11111111111111111111111111111111111111111111111111111111111111111111111111111111 '----------------------------------------------------------------------------------------------------------------------------- Response.BinaryWriteChrB(66)&ChrB(77)&chrb(((strLen*8*10*3+54)mod256))&chrb(((strLen*8*10*3+54)/256)mod256)&ChrB((((strLen*8*10*3+54)/256)/256)mod256)&ChrB(0)&ChrB(0)&_ ChrB(0)&ChrB(0)&ChrB(54)&ChrB(0)&ChrB(0)&ChrB(0)&ChrB(40)&ChrB(0)&_ ChrB(0)&ChrB(0)&ChrB(strLen*8)&ChrB(0)&ChrB(0)&ChrB(0)&ChrB(0)&ChrB(10)&ChrB(0)&_ ChrB(0)&ChrB(0)&ChrB(1)&ChrB(0) '----------------------------------------------------------------------------------------------------------------------------- Response.BinaryWriteChrB(24)&ChrB(0)&ChrB(0)&ChrB(0)&ChrB(0)&ChrB(0)&ChrB(0)&_ ChrB((strLen*8*10*3)mod256)&ChrB(((strLen*8*10*3)/256)mod256)&ChrB((((strLen*8*10*3)/256)/256)mod256)&ChrB((((((strLen*8*10*3)/256)/256)mod256)&_ ChrB(196)&ChrB(14)&ChrB(0)&ChrB(0)&ChrB(196)&ChrB(14)&ChrB(0)&ChrB(0)&ChrB(0)&_ ChrB(0)&ChrB(0)&ChrB(0)&ChrB(0)&ChrB(0)&ChrB(0)&ChrB(0)&ChrB(0)&ChrB(0)&ChrB(0) Fori=9To0Step-1 '------------------------------------------------------------------------------------------------------------------ Forii=0TostrLen-1 '---------After all words Foriii=1To8 '--------------------------------------------------------------------------------------------------------------------- '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- IfRnd*99+1<cOddsThen '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Response.BinaryWriterndColor Else Response.BinaryWritevColorData(Mid(vNumberData(vCode(ii)),i*8+iii,1)) EndIf Next Next Next EndSub %> |
Share: How to count the number of link clicks If you want to count the number of clicks on each domain name of a friendly link, because we cannot operate the web page of the friendly link and cannot write code on the link page, then what should we do? The method is to create a JavaScript functiona(bb){}, and the hyperlink that wants to count the number of clicks is written as ahref=http://www.chinaz.comonclick=aa(2