{"id":38,"date":"2010-07-03T03:00:02","date_gmt":"2010-07-03T03:00:02","guid":{"rendered":"http:\/\/blog.yyhcw.com\/post\/38.html"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-29T07:54:17","slug":"","status":"publish","type":"post","link":"http:\/\/blog.yyhcw.com\/post\/38.html","title":{"rendered":"\u7535\u8bdd\u53f7\u7801\u751f\u6210\u56fe\u7247 ASP"},"content":{"rendered":"

\u6211\u4eec\u5728\u6709\u4e9b\u7f51\u7ad9\u4e0a\u7ecf\u5e38\u770b\u5230\u7535\u8bdd\u53f7\u7801\u662f\u56fe\u7247,\u8fd9\u662f\u600e\u4e48\u56de\u4e8b\u5462\uff1f\u4eca\u5929\u5728\u7f51\u4e0a\u6e9c\u8fbe\u53d1\u73b0\u8fd9\u4e2a\u51fd\u6570 \u4fdd\u5b58\u4e0b\u6765 \u4ee5\u5907\u540e\u7528\uff01<\/p>\n

\u7535\u8bdd\u53f7\u7801\u751f\u6210\u56fe\u7247\u4ee3\u7801\u5982\u4e0b\uff1a<\/p>\n

<%<\/div>\n
Call Com_CreatValidCode(Request.QueryString("tel"))
Public Sub Com_CreatValidCode(pTel)
'----------\u7981\u6b62\u7f13\u5b58
Response.Expires = 0
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
Response.ContentType = "Image\/BMP"
Randomize
Dim i, ii, iii ,rndColor,strLen,sql,rs
Const cOdds = 5 '------------\u6742\u70b9\u51fa\u73b0\u7684\u673a\u7387
Const str="0123456789-"
strLen = len(pTel)
rndColor = ChrB(cint(rnd*255)) & ChrB(cint(rnd*255)) & ChrB(cint(rnd*255))
'-----------\u989c\u8272\u7684\u6570\u636e(\u5b57\u7b26\uff0c\u80cc\u666f)
Dim vColorData(1)
'vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0) '----\u84dd0\uff0c\u7eff0\uff0c\u7ea20\uff08\u9ed1\u8272\uff09
'vColorData(1) = ChrB(255) & ChrB(255) & ChrB(255) '----\u84dd250\uff0c\u7eff236\uff0c\u7ea2211\uff08\u6d45\u84dd\u8272\uff09
'vColorData(0) = ChrB(197) & ChrB(106) & ChrB(49) '---- \u84dd0\uff0c\u7eff0\uff0c\u7ea20\uff08\u9ed1\u8272\uff09
'vColorData(1) = ChrB(238) & ChrB(210) & ChrB(193) '-----\u84dd250\uff0c\u7eff236\uff0c\u7ea2211\uff08\u6d45\u84dd\u8272\uff09
vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0) '---------\u84dd0\uff0c\u7eff0\uff0c\u7ea20\uff08\u9ed1\u8272\uff09
vColorData(1) = ChrB(205) & ChrB(237) & ChrB(245) '------------\u84dd250\uff0c\u7eff236\uff0c\u7ea2211\uff08\u6d45\u84dd\u8272\uff09<\/div>\n
'--------------------\u968f\u673a\u4ea7\u751f\u5b57\u7b26
Randomize
Dim vCode()
redim vCode(strLen-1)
For i = 0 To strLen-1
vCode(i) =instr(1,str,mid(pTel,i+1,1),1)-1
Next<\/div>\n
'-----------\u5b57\u7b26\u7684\u6570\u636e
Dim vNumberData(11)
'Verdana Font
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"
'-----------------\u8f93\u51fa\u56fe\u50cf\u6587\u4ef6\u5934 <br>
Response.BinaryWrite ChrB(66) & ChrB(77) &chrb(((strLen*8*10*3+54) mod 256)) & chrb(((strLen*8*10*3+54)\\ 256)mod 256) & ChrB((((strLen*8*10*3+54)\\ 256)\\256)mod 256) & ChrB(((((strLen*8*10*3+54)\\ 256)\\256)\\256)mod 256) & 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(10) & ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(1) & ChrB(0)
'------------------\u8f93\u51fa\u56fe\u50cf\u4fe1\u606f\u5934
Response.BinaryWrite ChrB(24) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0)&_
ChrB((strLen*8*10*3)mod 256)&ChrB(((strLen*8*10*3)\\256)mod 256)&ChrB((((strLen*8*10*3)\\256)\\256)mod 256)&ChrB(((((strLen*8*10*3)\\256)\\256)\\256)mod 256)&_
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)
For i = 9 To 0 Step -1 '----------\u5386\u7ecf\u6240\u6709\u884c
For ii = 0 To strLen-1 '-------\u5386\u7ecf\u6240\u6709\u5b57
For iii = 1 To 8 '--------\u5386\u7ecf\u6240\u6709\u50cf\u7d20
'---------\u9010\u884c\u3001\u9010\u5b57\u3001\u9010\u50cf\u7d20\u5730\u8f93\u51fa\u56fe\u50cf\u6570\u636e
If Rnd * 99 + 1 < cOdds Then '---------\u968f\u673a\u751f\u6210\u6742\u70b9
Response.BinaryWrite rndColor
Else
Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 8 + iii, 1))
End If
Next
Next
Next
End Sub
%><\/div>\n
 <\/div>\n

 <\/p>\n","protected":false},"excerpt":{"rendered":"\u6211\u4eec\u5728\u6709\u4e9b\u7f51\u7ad9\u4e0a\u7ecf\u5e38\u770b\u5230\u7535\u8bdd\u53f7\u7801\u662f\u56fe\u7247,\u8fd9\u662f\u600e\u4e48\u56de\u4e8b\u5462\uff1f\u4eca\u5929\u5728\u7f51\u4e0a\u6e9c\u8fbe\u53d1\u73b0\u8fd9\u4e2a\u51fd\u6570 \u4fdd\u5b58\u4e0b\u6765 \u4ee5\u5907\u540e\u7528\uff01 \u7535\u8bdd \u00b7\u00b7\u00b7","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[3],"tags":[],"views":238,"_links":{"self":[{"href":"http:\/\/blog.yyhcw.com\/api\/wp\/v2\/posts\/38"}],"collection":[{"href":"http:\/\/blog.yyhcw.com\/api\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/blog.yyhcw.com\/api\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/blog.yyhcw.com\/api\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/blog.yyhcw.com\/api\/wp\/v2\/comments?post=38"}],"version-history":[{"count":0,"href":"http:\/\/blog.yyhcw.com\/api\/wp\/v2\/posts\/38\/revisions"}],"wp:attachment":[{"href":"http:\/\/blog.yyhcw.com\/api\/wp\/v2\/media?parent=38"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/blog.yyhcw.com\/api\/wp\/v2\/categories?post=38"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/blog.yyhcw.com\/api\/wp\/v2\/tags?post=38"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}