2008年3月21日

類似輸入認證碼的那種功能.txt

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Response.ContentType = "image/png" '<== 你是 DOC 文件的話 image/png 可以改成 application/msword 或 application/octet-stream
Dim StockBitMap As Bitmap '<== 這是等一下準備要透過 MemoryStream 輸出的圖片
Dim memStream As New IO.MemoryStream

Dim RndCode As String = Request("RndCode") '<== 接收 RndCode 的值
StockBitMap = CImage.StringToBMP(Left(CEncrypt.EncryptString(RndCode)) '<== RndCode 會經過演算產生出不同的文字,再透過自訂的 CImage 類別產生一張圖片
StockBitMap.Save(memStream, System.Drawing.Imaging.ImageFormat.Png) '<== 將圖片存到 MemoryStream 內
memStream.WriteTo(Response.OutputStream) '<== 輸出Stream

StockBitMap.Dispose()
memStream.Close()
End Sub

0 意見: