ASP网站制作之用Canvas做的ASP无组件天生图片考证码

使用filesystemobject，可以对服务器上的文件进行操作，浏览、复制、移动、删除等。有ado的支持，asp对数据库的操作非常得心应手。你甚至可以像使用本地数据库那样，管理远程主机上的数据库，对表格、记录进行各种操作。无组件|考证码点击这里下载源码
相干图片以下：

登录/注册后可看大图

DimobjCanvas
DimPointX,PointY,PointColor
DimiTemp
DimSafeCode
DimR,G,B,cc,kkConstcAmount=36笔墨数目
ConstcCode="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
cc=80
kk=30
SafeCode=""
Session("SafeCode")=""

BGColor="FFFFFF"

R=Mid(BGColor,1,2)
G=Mid(BGColor,3,2)
B=Mid(BGColor,5,2)



R=DecHex(R)
G=DecHex(G)
B=DecHex(B)

SetobjCanvas=NewCanvas

objCanvas.GlobalColourTable(0)=RGB(255,255,255)White
objCanvas.GlobalColourTable(1)=RGB(0,0,0)Black
objCanvas.GlobalColourTable(2)=RGB(255,0,0)Red
objCanvas.GlobalColourTable(3)=RGB(0,255,0)Green
objCanvas.GlobalColourTable(4)=RGB(0,0,255)Blue
objCanvas.GlobalColourTable(5)=RGB(128,0,0)
objCanvas.GlobalColourTable(6)=RGB(0,128,0)
objCanvas.GlobalColourTable(7)=RGB(0,0,128)
objCanvas.GlobalColourTable(8)=RGB(128,128,0)
objCanvas.GlobalColourTable(9)=RGB(0,128,128)
objCanvas.GlobalColourTable(10)=RGB(128,0,128)
objCanvas.GlobalColourTable(11)=RGB(R,G,B)
objCanvas.BackgroundColourIndex=11

objCanvas.Resizecc,kk,false


Randomizetimer
SafeCode=cint(8999*Rnd+1000)

Randomize
Fori=0To3
SafeCode=SafeCode&""&Mid(cCode,Int(Rnd*cAmount)+1,1)
Next
杂点

ForiTemp=0To30
Randomizetimer
PointX=Int(Rnd*cc)
PointY=Int(Rnd*kk)
PointColor=Int(Rnd*3)+2
objCanvas.ForegroundColourIndex=PointColor
objCanvas.LinePointX,PointY,PointX,PointY

next
边框
objCanvas.ForegroundColourIndex=1
objCanvas.Line1,1,cc,1
objCanvas.Line1,kk,1,1
objCanvas.Line1,kk,cc,kk
objCanvas.Linecc,1,cc,kk

Session("SafeCode")=SafeCode
dimsc,sk
笔墨
Randomizetimer
sc=cint(3*Rnd)
sk=cint(3*Rnd)
objCanvas.DrawTextWEsc,sk,SafeCode
objCanvas.Write

FunctionDecHex(HStr)

DimResult
Dimi,L

Result=0


L=Len(Hstr)

Fori=L-1To0Step-1

Result=Result+(16^i)*GetDecBit(Mid(HStr,i+1,1))

Next

DecHex=Result

EndFunction
FunctionGetDecBit(HStr)

DimResult
DimR(16)
Dimi

Result=0

R(0)="0"
R(1)="1"
R(2)="2"
R(3)="3"
R(4)="4"
R(5)="5"
R(6)="6"
R(7)="7"
R(8)="8"
R(9)="9"
R(10)="A"
R(11)="B"
R(12)="C"
R(13)="D"
R(14)="E"
R(15)="F"

Fori=0To15

ifHStr=R(i)ThenResult=i:ExitFor

Next

GetDecBit=Result

EndFunction
SQLServer是基于服务器端的中型的数据库，可以适合大容量数据的应用，在功能上管理上也要比Access要强得多。在处理海量数据的效率，后台开发的灵活性，可扩展性等方面强大。

在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

那么，ASP.Net有哪些改进呢？

下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习

Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习