ASP\u5b9e\u73b0\u65e0\u7ec4\u4ef6\u751f\u6210GIF\u683c\u5f0f\u9a8c\u8bc1\u7801\uff0c\u9700\u8981asp\u9a8c\u8bc1\u7801\u7684\u670b\u53cb\u53ef\u4ee5\u53c2\u8003\u4e0b\u3002<\/p>\n
<%
\nOption Explicit ‘ \u663e\u793a\u58f0\u660e
\nClass Com_GifCode_Class
\nPublic Noisy, Count, Width, Height, Angle, Offset, Border
\nPrivate Graph(), Margin(3)
\nPrivate Sub Class_Initialize()
\nRandomize
\nNoisy = 16 ‘ \u5e72\u6270\u70b9\u51fa\u73b0\u7684\u6982\u7387
\nCount = 4 ‘ \u5b57\u7b26\u6570\u91cf
\nWidth = 80 ‘ \u56fe\u7247\u5bbd\u5ea6
\nHeight = 20 ‘ \u56fe\u7247\u9ad8\u5ea6
\nAngle = 2 ‘ \u89d2\u5ea6\u968f\u673a\u53d8\u5316\u91cf
\nOffset = 20 ‘ \u504f\u79fb\u968f\u673a\u53d8\u5316\u91cf
\nBorder = 1 ‘ \u8fb9\u6846\u5927\u5c0f
\nEnd Sub
\nPublic Function Create()
\nConst cCharSet = "123456789"
\nDim i, x, y
\nDim vValidCode : vValidCode = ""
\nDim vIndex
\nReDim Graph(Width-1, Height-1)
\nFor i = 0 To Count – 1
\nvIndex = Int(Rnd * Len(cCharSet))
\nvValidCode = vValidCode + Mid(cCharSet, vIndex+1 , 1)
\nSetDraw vIndex, i
\nNext
\nCreate = vValidCode
\nEnd Function
\nSub SetDot(pX, pY)
\nIf pX * (Width-pX-1) >= 0 And pY * (Height-pY-1) >= 0 Then
\nGraph(pX, pY) = 1
\nEnd If
\nEnd Sub
\nPublic Sub SetDraw(pIndex, pNumber)
\n‘ \u5b57\u7b26\u6570\u636e
\nDim DotData(8)
\nDotData(0) = Array(30, 15, 50, 1, 50, 100)
\nDotData(1) = Array(1 ,34 ,30 ,1 ,71, 1, 100, 34, 1, 100, 93, 100, 100, 86)
\nDotData(2) = Array(1, 1, 100, 1, 42, 42, 100, 70, 50, 100, 1, 70)
\nDotData(3) = Array(100, 73, 6, 73, 75, 6, 75, 100)
\nDotData(4) = Array(100, 1, 1, 1, 1, 50, 50, 35, 100, 55, 100, 80, 50, 100, 1, 95)
\nDotData(5) = Array(100, 20, 70, 1, 20, 1, 1, 30, 1, 80, 30, 100, 70, 100, 100, 80, 100, 60, 70, 50, 30, 50, 1, 60)
\nDotData(6) = Array(6, 26, 6, 6, 100, 6, 53, 100)
\nDotData(7) = Array(100, 30, 100, 20, 70, 1, 30, 1, 1, 20, 1, 30, 100, 70, 100, 80, 70, 100, 30, 100, 1, 80, 1, 70, 100, 30)
\nDotData(8) = Array(1, 80, 30, 100, 80, 100, 100, 70, 100, 20, 70, 1, 30, 1, 1, 20, 1, 40, 30, 50, 70, 50, 100, 40)
\nDim vExtent : vExtent = Width \/ Count
\nMargin(0) = Border + vExtent * (Rnd * Offset) \/ 100 + Margin(1)
\nMargin(1) = vExtent * (pNumber + 1) – Border – vExtent * (Rnd * Offset) \/ 100
\nMargin(2) = Border + Height * (Rnd * Offset) \/ 100
\nMargin(3) = Height – Border – Height * (Rnd * Offset) \/ 100
\nDim vStartX, vEndX, vStartY, vEndY
\nDim vWidth, vHeight, vDX, vDY, vDeltaT
\nDim vAngle, vLength
\nvWidth = Int(Margin(1) – Margin(0))
\nvHeight = Int(Margin(3) – Margin(2))
\n‘ \u8d77\u59cb\u5750\u6807
\nvStartX = Int((DotData(pIndex)(0)-1) * vWidth \/ 100)
\nvStartY = Int((DotData(pIndex)(1)-1) * vHeight \/ 100)
\nDim i, j
\nFor i = 1 To UBound(DotData(pIndex), 1)\/2
\nIf DotData(pIndex)(2*i-2) <> 0 And DotData(pIndex)(2*i) <> 0 Then
\n‘ \u7ec8\u70b9\u5750\u6807
\nvEndX = (DotData(pIndex)(2*i)-1) * vWidth \/ 100
\nvEndY = (DotData(pIndex)(2*i+1)-1) * vHeight \/ 100
\n‘ \u6a2a\u5411\u5dee\u8ddd
\nvDX = vEndX – vStartX
\n‘ \u7eb5\u5411\u5dee\u8ddd
\nvDY = vEndY – vStartY
\n‘ \u503e\u659c\u89d2\u5ea6
\nIf vDX = 0 Then
\nvAngle = Sgn(vDY) * 3.14\/2
\nElse
\nvAngle = Atn(vDY \/ vDX)
\nEnd If
\n‘ \u4e24\u5750\u6807\u8ddd\u79bb
\nIf Sin(vAngle) = 0 Then
\nvLength = vDX
\nElse
\nvLength = vDY \/ Sin(vAngle)
\nEnd If
\n‘ \u968f\u673a\u8f6c\u52a8\u89d2\u5ea6
\nvAngle = vAngle + (Rnd – 0.5) * 2 * Angle * 3.14 * 2 \/ 100
\nvDX = Int(Cos(vAngle) * vLength)
\nvDY = Int(Sin(vAngle) * vLength)
\nIf Abs(vDX) > Abs(vDY) Then vDeltaT = Abs(vDX) Else vDeltaT = Abs(vDY)
\nFor j = 1 To vDeltaT
\nSetDot Margin(0) + vStartX + j * vDX \/ vDeltaT, Margin(2) + vStartY + j * vDY \/ vDeltaT
\nNext
\nvStartX = vStartX + vDX
\nvStartY = vStartY + vDY
\nEnd If
\nNext
\nEnd Sub
\nPublic Sub Output()
\nResponse.Expires = -9999
\nResponse.AddHeader "pragma", "no-cache"
\nResponse.AddHeader "cache-ctrol", "no-cache"
\nResponse.ContentType = "image\/gif"
\n‘ \u6587\u4ef6\u7c7b\u578b
\nResponse.BinaryWrite ChrB(Asc("G")) & ChrB(Asc("I")) & ChrB(Asc("F"))
\n‘ \u7248\u672c\u4fe1\u606f
\nResponse.BinaryWrite ChrB(Asc("8")) & ChrB(Asc("9")) & ChrB(Asc("a"))
\n‘ \u903b\u8f91\u5c4f\u5e55\u5bbd\u5ea6
\nResponse.BinaryWrite ChrB(Width Mod 256) & ChrB((Width \\ 256) Mod 256)
\n‘ \u903b\u8f91\u5c4f\u5e55\u9ad8\u5ea6
\nResponse.BinaryWrite ChrB(Height Mod 256) & ChrB((Height \\ 256) Mod 256)
\nResponse.BinaryWrite ChrB(128) & ChrB(0) & ChrB(0)
\n‘ \u5168\u5c40\u989c\u8272\u5217\u8868
\nResponse.BinaryWrite ChrB(255) & ChrB(255) & ChrB(255)
\nResponse.BinaryWrite ChrB(0) & ChrB(85) & ChrB(255)
\n‘ \u56fe\u8c61\u6807\u8bc6\u7b26
\nResponse.BinaryWrite ChrB(Asc(","))
\nResponse.BinaryWrite ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0)
\n‘ \u56fe\u8c61\u5bbd\u5ea6
\nResponse.BinaryWrite ChrB(Width Mod 256) & ChrB((Width \\ 256) Mod 256)
\n‘ \u56fe\u8c61\u9ad8\u5ea6
\nResponse.BinaryWrite ChrB(Height Mod 256) & ChrB((Height \\ 256) Mod 256)
\nResponse.BinaryWrite ChrB(0) & ChrB(7) & ChrB(255)
\nDim x, y, i : i = 0
\nFor y = 0 To Height – 1
\nFor x = 0 To Width – 1
\nIf Rnd < Noisy \/ 100 Then
\nResponse.BinaryWrite ChrB(1-Graph(x, y))
\nElse
\nIf x * (x-Width) = 0 Or y * (y-Height) = 0 Then
\nResponse.BinaryWrite ChrB(Graph(x, y))
\nElse
\nIf Graph(x-1, y) = 1 Or Graph(x, y) Or Graph(x, y-1) = 1 Then
\nResponse.BinaryWrite ChrB(1)
\nElse
\nResponse.BinaryWrite ChrB(0)
\nEnd If
\nEnd If
\nEnd If
\nIf (y * Width + x + 1) Mod 126 = 0 Then
\nResponse.BinaryWrite ChrB(128)
\ni = i + 1
\nEnd If
\nIf (y * Width + x + i + 1) Mod 255 = 0 Then
\nIf (Width*Height – y * Width – x – 1) > 255 Then
\nResponse.BinaryWrite ChrB(255)
\nElse
\nResponse.BinaryWrite ChrB(Width * Height Mod 255)
\nEnd If
\nEnd If
\nNext
\nNext
\nResponse.BinaryWrite ChrB(128) & ChrB(0) & ChrB(129) & ChrB(0) & ChrB(59)
\nEnd Sub
\nEnd Class
\nDim mCode
\nSet mCode = New Com_GifCode_Class
\nSession("GetCode") = mCode.Create()
\nmCode.Output()
\nSet mCode = Nothing
\n%>
\n <\/p>\n","protected":false},"excerpt":{"rendered":"
ASP\u5b9e\u73b0\u65e0\u7ec4\u4ef6\u751f\u6210GIF\u683c\u5f0f\u9a8c\u8bc1\u7801\uff0c\u9700\u8981asp\u9a8c\u8bc1\u7801\u7684\u670b\u53cb\u53ef\u4ee5\u53c2\u8003\u4e0b\u3002 <% Option Explicit ‘ \u663e\u793a\u58f0\u660e Class Com_GifCode_Class Public Noisy, Count, Wid…<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"topic":[],"class_list":["post-767","post","type-post","status-publish","format-standard","hentry","category-technology"],"_links":{"self":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/767","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/comments?post=767"}],"version-history":[{"count":1,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/767\/revisions"}],"predecessor-version":[{"id":66634,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/767\/revisions\/66634"}],"wp:attachment":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/media?parent=767"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/categories?post=767"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/tags?post=767"},{"taxonomy":"topic","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/topic?post=767"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}