您的位置：首页 > 编程语言 > ASP

ASP.NET实现图象处理详解 --隨機數

2006-09-19 10:01 459 查看

在ASP.NET下实现数字和字符相混合的验证码
http://dev.csdn.net/develop/article/22/22618.shtm
首先,我要简要说说Session和ViewState的用法,因为后面会用到它
把数据存储在Session中:Session("key")="test"
从Session取值:dim testvalue as string=Session("key")
类似的:
把数据存储在ViewState中:ViewState("key")="test"
从ViewState中取值:dim testvalue as string=ViewState("key")
关于ViewState的更详细的资料,你可以参看MSDN的<<ASP.NET ViewState 初探>>一文
百闻不如一见,有时代码本身就比任何解说更有表现力,所以在此就不对代码解说太多了,本文实现的验证码需要用到两个文件:
gif.aspx 该文件用于生成验证码
ValidateCode.aspx 该文件用来测试验证码(即如何使用)
下面给出gif.aspx的完整代码:
<%@ import namespace="System"%>
<%@ import namespace="System.io"%>
<%@ import namespace="System.Drawing"%>
<%@ import namespace="System.Drawing.Imaging"%>
<script language="vb" runat="server">
Sub Page_Load(Sender as object,e as eventargs)
'RndNum是一个自定义函数
dim VNum as string=RndNum(4)
Session("VNum")=VNum
ValidateCode(VNum)
End Sub
'生成图象验证码函数
Sub ValidateCode(VNum)
Dim Img as System.Drawing.Bitmap
Dim g as Graphics
Dim ms as MemoryStream
dim gheight as integer=Int(Len(VNum)*11.5)
'gheight为图片宽度,根据字符长度自动更改图片宽度
img=new BitMap(Gheight,20)
g=Graphics.FromImage(img)
g.DrawString(VNum,(New Font("Arial",10)),(New SolidBrush(color.blue)),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(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"
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>
那么又应该如何使用该文件生成的图象验证码,看这句代码:
<asp:Image id="Image1" runat="server" ImageUrl="gif.aspx" />
这就是用来显示验证码的Image控件,你可以把它放在任何你喜欢的地方,下面的给出详细的使用代码,你把它保存为ValidateCode.aspx,并把它和gif.aspx放在同一目录下,在浏览器中打开ValidateCode.aspx,就可以测试它的效果了:
<script language="vb" Runat="Server">
Sub Page_Load(Sender as object,e as eventargs)
dim VNum as string=Session("VNum")
Session.Abandon()
ViewState("VNum")=VNum
End Sub
'下面的事件代码是用来测试验证码,可以根据需要更改
Sub btnSubmit_click(sender as object,e as eventargs)
'判断输入的验证码与所给是否相同
If txtValidateCode.text=Cstr(ViewState("VNum")) then
lblShow.text="<font color='red'>提示:验证通过</font>"
Else
lblShow.text="所填写的验证码与所给的不符"
End If
End Sub
</script>
<html>
<body>
<form runat="server">
<div align="center">
<table width="750">

<tr>
<td width="256" height="46"> </td>
<td width="9"> </td>
<td width="88"> </td>
<td width="87"> </td>
<td width="100"> </td>
<td width="68"> </td>
<td width="97"> </td>
</tr>
<tr>
<td height="21"></td>
<td></td>
<td colspan="3" valign="top"><asp:label ID="lblShow" runat="server"></asp:label></td>
<td> </td>
<td> </td>
</tr>
<tr>
<td height="14"></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
<tr>
<td height="21"> </td>
<td colspan="2" valign="middle">验证码:</td>
<td valign="top"><asp:Image id="Image1" runat="server" ImageUrl="gif.aspx" /></td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td height="20"> </td>
<td colspan="2" valign="top">输入验证码:</td>
<td valign="top"><asp:textbox ID="txtValidateCode" runat="server" TextMode="SingleLine" /></td>
<td colspan="2" valign="middle"><font color="#FF0000" size="2">*注意:区分大小写</font></td>
<td> </td>
</tr>
<tr>
<td height="25"> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td height="19"> </td>
<td> </td>
<td> </td>
<td valign="top"><asp:button ID="btnSubmit" runat="server" Text="比较" onclick="btnSubmit_click" /></td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
</div>
</form>
</body>
</html>

/article/4592145.html
在使用ASP的时候，我们时常要借助第三方控件来实现一些图象功能。而现在，ASP.NET的推出，我们已经没有必要再使用第三方控件来实现，因为ASP.NET 已经具有强大的功能来实现一些图象处理。现在，我们就来看看怎样使用ASP.NET的这一强大功能。

　　一、System.Drawing的使用

　　以下的举例将演示在内存中生成一张图片，然后，将这张图片通过网页显示出来。需要了解的是，我们这里输出的不是HTML效果，而是实实在在的图片（图象），我们可以使用“另存为…”将输出图象保存起来。

　　我们先来看看效果：

　我们看到，这张图片是一个渐变背景上有“看见了吗”几个字，当然，这个效果在PhotoShop等图象处理软件里面很容易实现，但是，一些与数据库结合的应用我们不可能将所有图片都事先设计出来，这时候，利用ASP.NET来实现这些功能就显得很重要了。我们来看源代码：

＜%@ page language="vb" contenttype="image/jpeg" %＞
＜%@ import namespace="system.drawing" %＞
＜%@ import namespace="system.drawing.imaging" %＞
＜%@ import namespace="system.drawing.drawing2d" %＞

＜%
'清空Response
response.clear

'建立一个120*30大小，24bit的BMP图象；
dim imgOutput as New bitmap(120, 30, pixelformat.format24bpprgb)

'根据以上BMP建立一个新图象；
dim g as graphics = graphics.fromimage(imgOutput)

g.clear(color.Green)
g.smoothingMode = smoothingMode.antiAlias

g.drawString("看见了吗？", New font("黑体",16,fontstyle.bold),new SolidBrush(Color.White),New pointF(2,4))

g.FillRectangle(New linearGradientBrush(New point(0,0), New point(120,30), color.fromArgb(0,0,0,0),color.fromArgb(255,255,255,255)),0,0,120,30)

imgOutput.save(response.outputstream, imageformat.jpeg)

g.dispose()
imgOutput.dispose()
response.end
%＞

　　在以上代码中，我们看到和数据库程序不同，这里专门引入了图象处理的名字空间system.drawing等。程序首先清空了Response，确保没有输出；然后，程序建立了一个120乘30大的BMP图象，再在这个基础上建立一个新图象，建立图象以后，我们首先“画”出了字符串“看见了吗”，该字符串为16大粗黑体，颜色为白色，位置为（2，4）；最后，我们实现渐变效果。

　　以上举例很简单，但是如果和数据库结合，我们可以实现很多使用ASP可能不敢想的效果。
二、读取和改变图象文件大小

　　读取图片？直接使用HTML不就可以了？当然可以，我们这里只是提供一种选择和方法来实现这一功能，具体这一功能的使用，我们可能需要在实践中更多的学习。先来看程序源代码：

＜% ' import all relevant namespaces %＞
＜%@ import namespace="System" %＞
＜%@ import namespace="System.Drawing" %＞
＜%@ import namespace="System.Drawing.Imaging" %＞
＜%@ import namespace="System.IO" %＞

＜script runat="server"＞
Sub sendFile()
dim g as System.Drawing.Image = System.Drawing.Image.FromFile(server.mappath(request("src")))
dim thisFormat=g.rawformat
dim imgOutput as New Bitmap(g, cint(request("width")), cint(request("height")))
if thisformat.equals(system.drawing.imaging.imageformat.Gif) then
response.contenttype="image/gif"
else
response.contenttype="image/jpeg"
end if
imgOutput.save(response.outputstream, thisformat)
g.dispose()
imgOutput.dispose()
end sub

Sub sendError()
dim imgOutput as New bitmap(120, 120, pixelformat.format24bpprgb)
dim g as graphics = graphics.fromimage(imgOutput)
g.clear(color.yellow)
g.drawString("错误！", New font("黑体",14,fontstyle.bold),systembrushes.windowtext, New pointF(2,2))
response.contenttype="image/gif"
imgOutput.save(response.outputstream, imageformat.gif)
g.dispose()
imgOutput.dispose()
end sub
＜/script＞

＜%
response.clear
if request("src")="" or request("height")="" or request("width")="" then
call sendError()
else
if file.exists(server.mappath(request("src"))) then
call sendFile()
else
call sendError()
end if
end if
response.end
%＞

　　在以上的程序中，我们看到两个函数，一个是SendFile，这一函数主要功能为显示服务器上的图片，该图片的大小通过Width和Height设置，同时，程序会自动检测图片类型；另外一个是SendError，这一函数的主要功能为服务器上的图片文件不存在时，显示错误信息，这里很有趣，错误信息也是通过图片给出的（如图）：

以上的程序显示图片并且改变图片大小，现在，我们将这个程序进一步，显示图片并且保持图片的长宽比例，这样，和实际应用可能比较接近，特别是需要制作电子相册或者是图片网站的时候比较实用。我们先来看主要函数：

Function NewthumbSize(currentwidth, currentheight)
dim tempMultiplier as Double
if currentheight ＞ currentwidth then
tempMultiplier = 200 / currentheight
Else
tempMultiplier = 200 / currentwidth
end if
dim NewSize as New Size(CInt(currentwidth * tempMultiplier), CInt(currentheight * tempMultiplier))
return NewSize
End Function

　　以上程序是增加的一个函数NewthumbSize，该函数专门处理改变一会的图片大小，这个图片的长宽和原图片的长宽保持相同比例。其他部分请参考上文程序代码。
三、画图特效

　　如果只是将图片显示在网页上，这样未免显得简单。现在，我们来进一步感受ASP.NET的强大功能。我们将学习图象处理中常用的图象反转、图象切割、图象拉伸等技巧。
先来看看程序效果：

仔细看，我们可以找到各种图象处理效果。现在，我们来看看程序代码：

＜%@ Page Language="vb" Debug="True" %＞
＜%@ import namespace="system.drawing" %＞
＜%@ import namespace="system.drawing.imaging" %＞
＜%@ import namespace="system.drawing.drawing2d" %＞
＜%
dim strFilename as string
dim i as System.Drawing.Image
strFilename = server.mappath("./chris-fsck.jpg")

i = System.Drawing.Image.FromFile(strFilename)

dim b as New system.drawing.bitmap(i.width, i.height, pixelformat.format24bpprgb)
dim g as graphics = graphics.fromimage(b)

g.clear(color.blue)

'旋转图片
i.RotateFlip(System.Drawing.RotateFlipType.Rotate90FlipX)
g.drawimage(i,New point(0,0))
i.RotateFlip(System.Drawing.RotateFlipType.Rotate270FlipY)

g.RotateTransform(10)
g.drawimage(i,New point(0,0))
g.RotateTransform(10)
g.drawimage(i,New point(20,20))
g.RotateTransform(10)
g.drawimage(i,New point(40,40))
g.RotateTransform(10)
g.drawimage(i,New point(40,40))
g.RotateTransform(-40)
g.RotateTransform(90)
g.drawimage(i,New rectangle(100,-400,100,50),New rectangle(20,20,i.width-20,i.height-20),GraphicsUnit.Pixel)
g.RotateTransform(-90)

' 拉伸图片
g.drawimage(i,New rectangle(10,10,50,50),New rectangle(20,20,i.width-20,i.height-20),GraphicsUnit.Pixel)
g.drawimage(i,New rectangle(50,10,90,50),New rectangle(20,20,i.width-20,i.height-20),GraphicsUnit.Pixel)
g.drawimage(i,New rectangle(110,10,150,50),New rectangle(20,20,i.width-20,i.height-20),GraphicsUnit.Pixel)

'切割图片
g.drawimage(i,50,100,New rectangle(180,80,60,110),GraphicsUnit.Pixel)
g.drawimage(i,140,100,New rectangle(180,80,60,110),GraphicsUnit.Pixel)

'旋转图片
i.RotateFlip(System.Drawing.RotateFlipType.Rotate180FlipX)
g.drawimage(i,230,100,New rectangle(180,110,60,110),GraphicsUnit.Pixel)

response.contenttype="image/jpeg"

b.save(response.outputstream, imageformat.jpeg)

b.dispose()

%＞

　　在以上的程序中，我们看到实现图象处理的各种技巧，仔细观察，我们可以知道旋转图片其实是用了一个RotateFlip方法；而切割和拉伸图片，完全是通过设置DrawImage的不同参数来实现。

　　四、总结

　　 ASP.NET的图象处理可以实现的功能很多，我们在这里其实只是简单的介绍，更多功能的应用，需要我们在实践中摸索、总结。

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航