asp无组件生成验证码 GIF图片格式
实现代码如下: = 0 And pY * (Height-pY-1) >= 0 Then Graph(pX, pY) = 1 End If End Sub Public Sub SetDraw(pIndex, pNumber) ' 字符数据 Dim DotData(8) DotData(0)
实现代码如下: = 0 And pY * (Height-pY-1) >= 0 Then Graph(pX, pY) = 1 End If End Sub Public Sub SetDraw(pIndex, pNumber) ' 字符数据 Dim DotData(8) DotData(0)