主頁 > 知識(shí)庫 > asp.net 驗(yàn)證碼的簡(jiǎn)單制作(vb.net+C#)

asp.net 驗(yàn)證碼的簡(jiǎn)單制作(vb.net+C#)
熱門標(biāo)簽：陜西人工外呼系統(tǒng)哪家好 山西防封卡電銷卡套餐 銅川小型外呼系統(tǒng)運(yùn)營(yíng)商 海外地圖標(biāo)注門市標(biāo) 廈門商鋪地圖標(biāo)注 上海楊浦怎么申請(qǐng)申請(qǐng)400電話 云南外呼電銷機(jī)器人系統(tǒng) 地圖標(biāo)注多個(gè)行程 浙江外呼系統(tǒng)怎么安裝
網(wǎng)站上驗(yàn)證碼效果一般制作方法是：
1）使用HttpHandler（一般處理程序）繪制隨機(jī)驗(yàn)證碼的圖，以及產(chǎn)生隨機(jī)碼，并輸出到頁面的OutputStream中。
2）頁面中使用異步方式（js等）進(jìn)行刷新當(dāng)前頁面的驗(yàn)證碼。
【示例】
1）創(chuàng)建一個(gè)“一般應(yīng)用處理程序ashx”，代碼如下：
[C#]
復(fù)制代碼 代碼如下:

public class ValidationCode : IHttpHandler
{
//隨機(jī)發(fā)生器
static Random r = new Random(Guid.NewGuid().GetHashCode());
//排除黑色、透明色顏色，因?yàn)榈咨谏?
static PropertyInfo[] colors = (typeof(Brushes).GetProperties(System.Reflection.BindingFlags.Public | System.Reflection.BindingFlags.GetProperty | System.Reflection.BindingFlags.Static)).Where(p => p.Name != "Black" p.Name != "Transparent").Select(p => p).ToArray();
//排除黑色顏色，因?yàn)榈咨谏?
static PropertyInfo[] linecolors = (typeof(Pens).GetProperties(System.Reflection.BindingFlags.Public | System.Reflection.BindingFlags.GetProperty | System.Reflection.BindingFlags.Static)).Where(p => p.Name != "Black").Select(p => p).ToArray();
//獲取靜態(tài)類Brushes實(shí)例對(duì)象
static object colorobj = typeof(Brushes).GetConstructor(BindingFlags.NonPublic, null, Type.EmptyTypes, null);
//獲取靜態(tài)類Pens實(shí)例對(duì)象
static object penobj = typeof(Pens).GetConstructor(BindingFlags.NonPublic, null, Type.EmptyTypes, null);
//每個(gè)隨機(jī)字符的寬度
const float PERNUMBERWIDTH = 40.0f;
//每個(gè)字符的高度
const float PERNUMBERHEIGHT = 50.0f;
public void ProcessRequest(HttpContext context)
{
//獲取要產(chǎn)生多少隨機(jī)數(shù)（默認(rèn)產(chǎn)生5個(gè)）
int reqNum = 5;
if (context.Request.QueryString["reqNum"] != null)
{
int.TryParse(context.Request.QueryString["reqNum"], out reqNum);
}
//產(chǎn)生多少大的背景圖
Bitmap bt = new Bitmap((int)(PERNUMBERWIDTH*reqNum), (int)PERNUMBERHEIGHT);
Graphics g = Graphics.FromImage(bt);
//產(chǎn)生4個(gè)隨機(jī)數(shù)（number可以被保存到Session中）
string numbers = "";
//繪制數(shù)字
for (int i = 1; i = reqNum; i++)
{
numbers += r.Next(0, 9).ToString();
var color = (PropertyInfo)colors.GetValue(r.Next(0, colors.Length));
context.Response.Write(color.Name + "br/>");
Brush randomcolor = (Brush)color.GetValue(colorobj, null);
g.DrawString(numbers[i-1].ToString(), new Font("黑體", PERNUMBERWIDTH),randomcolor, new PointF((i-1)*PERNUMBERWIDTH, 0f));
}
//繪制隨機(jī)線條
int linenum = r.Next(10, 21);
for (int i = 1; i = linenum; i++)
{
var linecolor = (PropertyInfo)linecolors.GetValue(r.Next(0, colors.Length));
Pen randomcolor = (Pen)linecolor.GetValue(penobj, null);
g.DrawLine(randomcolor, new PointF((float)(r.NextDouble() * PERNUMBERWIDTH * reqNum), (float)(r.NextDouble() * PERNUMBERHEIGHT)), new PointF((float)(r.NextDouble() * PERNUMBERWIDTH * reqNum), (float)(r.NextDouble() * PERNUMBERHEIGHT)));
}
g.Dispose();
context.Response.Clear();
context.Response.ContentType = "image/jpeg";
bt.Save(context.Response.OutputStream, ImageFormat.Jpeg);
bt.Dispose();
context.Response.End();
}
public bool IsReusable
{
get
{
return false;
}
}
}

[VB.NET]
復(fù)制代碼 代碼如下:

Public Class ValidationCode
Implements IHttpHandler
'隨機(jī)發(fā)生器
Shared r As New Random(Guid.NewGuid().GetHashCode())
'排除黑色、透明色顏色，因?yàn)榈咨谏?
Shared colors As PropertyInfo() = (GetType(Brushes).GetProperties(System.Reflection.BindingFlags.[Public] Or System.Reflection.BindingFlags.GetProperty Or System.Reflection.BindingFlags.[Static])).Where(Function(p) p.Name > "Black" AndAlso p.Name > "Transparent").[Select](Function(p) p).ToArray()
'排除黑色顏色，因?yàn)榈咨谏?
Shared linecolors As PropertyInfo() = (GetType(Pens).GetProperties(System.Reflection.BindingFlags.[Public] Or System.Reflection.BindingFlags.GetProperty Or System.Reflection.BindingFlags.[Static])).Where(Function(p) p.Name > "Black").[Select](Function(p) p).ToArray()
'獲取靜態(tài)類Brushes實(shí)例對(duì)象
Shared colorobj As Object = GetType(Brushes).GetConstructor(BindingFlags.NonPublic, Nothing, Type.EmptyTypes, Nothing)
'獲取靜態(tài)類Pens實(shí)例對(duì)象
Shared penobj As Object = GetType(Pens).GetConstructor(BindingFlags.NonPublic, Nothing, Type.EmptyTypes, Nothing)
'每個(gè)隨機(jī)字符的寬度
Const PERNUMBERWIDTH As Single = 40F
'每個(gè)字符的高度
Const PERNUMBERHEIGHT As Single = 50F
Public Sub ProcessRequest(context As HttpContext)
'獲取要產(chǎn)生多少隨機(jī)數(shù)（默認(rèn)產(chǎn)生5個(gè)）
Dim reqNum As Integer = 5
If context.Request.QueryString("reqNum") IsNot Nothing Then
Integer.TryParse(context.Request.QueryString("reqNum"), reqNum)
End If
'產(chǎn)生多少大的背景圖
Dim bt As New Bitmap(CInt(Math.Truncate(PERNUMBERWIDTH * reqNum)), CInt(Math.Truncate(PERNUMBERHEIGHT)))
Dim g As Graphics = Graphics.FromImage(bt)
'產(chǎn)生4個(gè)隨機(jī)數(shù)（number可以被保存到Session中）
Dim numbers As String = ""
'繪制數(shù)字
For i As Integer = 1 To reqNum
numbers += r.[Next](0, 9).ToString()
Dim color = DirectCast(colors.GetValue(r.[Next](0, colors.Length)), PropertyInfo)
context.Response.Write(Convert.ToString(color.Name) "br/>")
Dim randomcolor As Brush = DirectCast(color.GetValue(colorobj, Nothing), Brush)
g.DrawString(numbers(i - 1).ToString(), New Font("黑體", PERNUMBERWIDTH), randomcolor, New PointF((i - 1) * PERNUMBERWIDTH, 0F))
Next
'繪制隨機(jī)線條
Dim linenum As Integer = r.[Next](10, 21)
For i As Integer = 1 To linenum
Dim linecolor = DirectCast(linecolors.GetValue(r.[Next](0, colors.Length)), PropertyInfo)
Dim randomcolor As Pen = DirectCast(linecolor.GetValue(penobj, Nothing), Pen)
g.DrawLine(randomcolor, New PointF(CSng(r.NextDouble() * PERNUMBERWIDTH * reqNum), CSng(r.NextDouble() * PERNUMBERHEIGHT)), New PointF(CSng(r.NextDouble() * PERNUMBERWIDTH * reqNum), CSng(r.NextDouble() * PERNUMBERHEIGHT)))
Next
g.Dispose()
context.Response.Clear()
context.Response.ContentType = "image/jpeg"
bt.Save(context.Response.OutputStream, ImageFormat.Jpeg)
bt.Dispose()
context.Response.[End]()
End Sub
Public ReadOnly Property IsReusable() As Boolean
Get
Return False
End Get
End Property
End Class

注意：
1）一些諸如Brushes等特定因?yàn)槭枪玫?，需要通過反射獲取全部的顏色屬性列表，因此使用了靜態(tài)變量，這樣不必每次都初始化，節(jié)省內(nèi)存和時(shí)間。
2）Brushes避免黑色和透明色（本示例背景色是黑色），Pens只需避免黑色即可。有關(guān)Brushes顏色，可以查閱：http://msdn.microsoft.com/zh-cn/library/system.windows.media.brush(v=vs.95).aspx
3）Bitmap類是用于繪制使用的，一般是空白的黑色背景。一般配合Image類+Graphics畫布使用，進(jìn)行繪制。
4）BitMap的Save方法有若干個(gè)重載版本，其中之一可以指定輸出流以及設(shè)置圖片格式。本示例就是使用了這個(gè)函數(shù)。
【應(yīng)用】

Html中代碼（驗(yàn)證碼部分，局部）：
復(fù)制代碼 代碼如下:

h1>
驗(yàn)證碼
/h1>
script>
function ChangeSD() {
document.getElementById("imgSD").src = "";
document.getElementById("imgSD").src = "/ValidationCode.ashx?reqNum=10";
};
/script>
img src="/ValidationCode.ashx?reqNum=10" id="imgSD" />
input type="button" value="Change Validation Key" onclick="ChangeSD()" />

注意，之所以使用js設(shè)置img的src兩次，是因?yàn)橹貜?fù)的路徑不會(huì)引發(fā)請(qǐng)求。
您可能感興趣的文章:
  • asp.net 驗(yàn)證碼生成和刷新及驗(yàn)證
  • asp.net(C#) 生成隨機(jī)驗(yàn)證碼的代碼
  • asp.net 簡(jiǎn)單驗(yàn)證碼驗(yàn)證實(shí)現(xiàn)代碼
  • ASP.NET MVC驗(yàn)證碼功能實(shí)現(xiàn)代碼
  • ASP.NET中的無刷新驗(yàn)證碼的開發(fā)(完整代碼)
  • asp.net 圖片驗(yàn)證碼的HtmlHelper
  • asp.net生成驗(yàn)證碼（純數(shù)字）
  • asp.net中3種驗(yàn)證碼示例(實(shí)現(xiàn)代碼)(數(shù)字,數(shù)字字母混和,漢字)
  • asp.net下生成英文字符數(shù)字驗(yàn)證碼的代碼
  • asp.net生成字母和數(shù)字混合圖形驗(yàn)證碼
  • Asp.net開發(fā)之webform圖片水印和圖片驗(yàn)證碼的實(shí)現(xiàn)方法
  • ASP.NET實(shí)現(xiàn)的生成驗(yàn)證碼功能示例【附demo源碼】

標(biāo)簽：自貢 許昌 常州 信陽 萊蕪 孝感 朔州 西雙版納

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《asp.net 驗(yàn)證碼的簡(jiǎn)單制作(vb.net+C#)》，本文關(guān)鍵詞  asp.net,驗(yàn)證,碼,的,簡(jiǎn)單,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《asp.net 驗(yàn)證碼的簡(jiǎn)單制作(vb.net+C#)》相關(guān)的同類信息！
  • 本頁收集關(guān)于asp.net 驗(yàn)證碼的簡(jiǎn)單制作(vb.net+C#)的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章