asp.net 映像驗證碼 (vb.net)

實現過程，在需要調用的頁面使用image控制項調用驗證碼產生的頁面，驗證碼產生的頁面產生驗證圖片且將驗證資訊儲存至Session中，調用頁面中通過Session判斷使用者是否輸入正確。道理是這樣，以下看代碼：

<%@ import Namespace =namespace="System"%>
<%@ import Namespace =namespace="System.io"%>
<%@ import Namespace =namespace="System.Drawing"%>
<%@ import Namespace =namespace="System.Drawing.Imaging"%>

<script language="vb" runat="server">
Sub Page_Load()Sub Page_Load(ByVal Sender As Object, ByVal e As EventArgs)
'RndNum為產生隨機碼的函數，
Dim VNum As String = RndNum(4) '該值為產生驗證碼的位元
Session("VNum") = VNum '讀取Session
ValidateCode(VNum)   '根據Session產生圖片
End Sub

'--------------------------------------------
'產生圖象驗證碼函數
Sub ValidateCode()Sub ValidateCode(ByVal VNum)
Dim Img As System.Drawing.Bitmap
Dim g As Graphics
Dim ms As MemoryStream
Dim gheight As Integer = Int(Len(VNum) * 14)
'gheight為圖片寬度，根據字元長度自動更改圖片寬度
Img = New Bitmap(gheight, 24)
g = Graphics.FromImage(Img)
g.DrawString(VNum, (New Font("Arial", 12)), (New SolidBrush(Color.Red)), 3, 3) '在矩形內繪製字串（字串，字型，畫筆顏色，左上x.左上y）
ms = New MemoryStream()
Img.Save(ms, ImageFormat.Png)
Response.ClearContent() '需要輸出圖象資訊 要修改HTTP頭
Response.ContentType = "image/Png"
Response.BinaryWrite(ms.ToArray())
g.Dispose()
Img.Dispose()
Response.End()
End Sub

'--------------------------------------------
'函數名稱:RndNum
'函數參數:VcodeNum--設定返回隨機字串的位元
'函數功能:產生數字和字元混合的隨機字串
Function RndNum()Function RndNum(ByVal VcodeNum)
Dim Vchar As String = "0，1，2，3，4，5，6，7，8，9，A，B，C，D，E，F，G，H，I，J，K，L，M，N，O，P，Q，R，S，T，U，W，X，Y，Z" '需要使用中文驗證，可以修改這裡和ValidateCode函數中的字型
Dim VcArray() As String = Split(Vchar, "，") '將字串產生數組
Dim VNum As String = ""
Dim i As Byte
For i = 1 To VcodeNum
Randomize()
VNum = VNum & VcArray(Int(35 * Rnd())) '數組一般從0開始讀取，所以這裡為35*Rnd
Next
Return VNum
End Function
</script>