yz01.asp

信息管理系统！很简单的课程设计！类似于城市信息交换的网站！

<%
Dim a(10,10)
a(0,1)="0x3c"
a(0,2)="0x42"
a(0,3)="0x42"
a(0,4)="0x42"
a(0,5)="0x42"
a(0,6)="0x42"
a(0,7)="0x42"
a(0,8)="0x42"
a(0,9)="0x42"
a(0,10)="0x3c"
a(1,1)="0x10"
a(1,2)="0x1c"
a(1,3)="0x10"
a(1,4)="0x10"
a(1,5)="0x10"
a(1,6)="0x10"
a(1,7)="0x10"
a(1,8)="0x10"
a(1,9)="0x10"
a(1,10)="0x7c"
a(2,1)="0x3c"
a(2,2)="0x42"
a(2,3)="0x40"
a(2,4)="0x40"
a(2,5)="0x20"
a(2,6)="0x10"
a(2,7)="0x08"
a(2,8)="0x04"
a(2,9)="0x02"
a(2,10)="0x7e"
a(3,1)="0x3c"
a(3,2)="0x42"
a(3,3)="0x40"
a(3,4)="0x40"
a(3,5)="0x38"
a(3,6)="0x40"
a(3,7)="0x40"
a(3,8)="0x40"
a(3,9)="0x42"
a(3,10)="0x3c"
a(4,1)="0x20"
a(4,2)="0x30"
a(4,3)="0x28"
a(4,4)="0x28"
a(4,5)="0x24"
a(4,6)="0x22"
a(4,7)="0x7e"
a(4,8)="0x20"
a(4,9)="0x20"
a(4,10)="0x70"
a(5,1)="0x7e"
a(5,2)="0x02"
a(5,3)="0x02"
a(5,4)="0x02"
a(5,5)="0x3e"
a(5,6)="0x40"
a(5,7)="0x40"
a(5,8)="0x40"
a(5,9)="0x42"
a(5,10)="0x3c"
a(6,1)="0x38"
a(6,2)="0x04"
a(6,3)="0x02"
a(6,4)="0x02"
a(6,5)="0x3a"
a(6,6)="0x46"
a(6,7)="0x42"
a(6,8)="0x42"
a(6,9)="0x42"
a(6,10)="0x3c"
a(7,1)="0x7e"
a(7,2)="0x42"
a(7,3)="0x20"
a(7,4)="0x20"
a(7,5)="0x10"
a(7,6)="0x10"
a(7,7)="0x08"
a(7,8)="0x08"
a(7,9)="0x04"
a(7,10)="0x04"
a(8,1)="0x3c"
a(8,2)="0x42"
a(8,3)="0x42"
a(8,4)="0x42"
a(8,5)="0x3c"
a(8,6)="0x42"
a(8,7)="0x42"
a(8,8)="0x42"
a(8,9)="0x42"
a(8,10)="0x3c"
a(9,1)="0x3c"
a(9,2)="0x42"
a(9,3)="0x42"
a(9,4)="0x42"
a(9,5)="0x62"
a(9,6)="0x5c"
a(9,7)="0x40"
a(9,8)="0x40"
a(9,9)="0x20"
a(9,10)="0x1c"
Dim validatecode,vwidth,vheight,vlength,i,image,n
Randomize()
validatecode=Left(Rnd()*1000000000000000,5)'得到验证码
vlength=Len(validatecode)
vwidth=8*vlength
vheight=10
Redim apiece(vlength)
For i=1 to vlength
apiece(i)=Mid(validatecode,i,1)
Next
Response.ContentType="image/x-xbitmap"
image="#define width "& vwidth & vbcrlf
image=image &"#define height " & vheight & vbcrlf
image=image &"static unsigned char bits[]={"& vbcrlf
For i=1 to vheight
For n=1 to vlength
image=image & a(apiece(n),i) &","
Next
Next
image=Left(image,Len(image)-1)
image=image & vbcrlf &"};"
Response.Write image
Session("ok")=validatecode
%>