|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
使用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要强得多。在处理海量数据的效率,后台开发的灵活性,可扩展性等方面强大。 |
|