yc = split (ychar, " , " ) ' 将字符串生成数组
ycodenum = 4
for i = 1 to ycodenum
Randomize
ycode = ycode & yc( Int (( 37 * Rnd ))) ' 数组一般从0开始读取,所以这里为35*Rnd
next
Response.ContentType = " image/gif "
Response.Clear
set obj = Server.CreateObject( " shotgraph.image " )
x = 125
y = 26
obj.CreateImage x,y, 8
obj.SetColor 0 , 55 , 126 , 222
obj.CreatePen " PS_SOLID " , 1 , 0
obj.SetBgColor 0
obj.Rectangle 0 , 0 ,x - 1 ,y - 1
obj.SetBkMode " TRANSPARENT "
obj.CreateFont " 宋体 " , 1 , 18 , 1 , true , False , False , False , True
obj.SetTextColor 1
obj.TextOut 5 , 4 ,ycode & " "
img = obj.GifImage( - 1 , 1 , "" )
Response.BinaryWrite (img) % >
obj.CreateFont "宋体",1,18,1,true,False,False,False,True
随便解释这个给你听吧
宋体:这个不用解释了吧
1:这个就是设置字体的,他代表缺省字符集,英文是:default charset就是默认字体
18:n规定字体字符元或字符像素的高度。缺省高度值为零。也就是字体高度,也可以说是字体大小吧
1:参数规定正文基线和X-线的角度,单位为1/10度。
实际上上面这些参数就是用了:CreateFont sFamily, nCharset, nHeight, nAngle, bBold, bItalic, bUnderline, bStrikeOut [,bUnicode]
这个函数的参数
sFamily 参数规定了字体的字样名。
nCharset参数规定字符集代码。其中某些代码可以参考“备注”部分。
nHeight参数规定字体字符元或字符像素的高度。缺省高度值为零。
nAngle参数规定正文基线和X-线的角度,单位为1/10度。
bBold 参数规定字体灰度。灰度值可以是布尔值或字符串。bBold 为True 时,为粗体,普通字体为 False。
你还可以直接设定规定字体灰度的串。如果bBold为串,它可以为下面的任意一种串:
bItalic参数设定为True时为斜体。
bUnderline参数设定为True时为下划线字体。
bStrikeOut 参数设定为True时为加删除线字体。
bUnicode参数为可选项。该函数设定为True时,将使用字体名字串的Unicode表示法。该函数设定为False时,使用的是ASCII表示法。缺省值为False。
最后这个参数,一般是数字和字母时都把它省略了不写
实际上CreateFont有9个参数,但很多都只写8个,省略了最后一个
0 - ANSI charset
1 - default charset
2 - symbol charset
136 - Chinese Big5
161 - Greek charset
163 - Vietnamese charset
204 - Cyrillic charset
222 - Thai charset
238 - East Europe charset
一些字符集的代码:
0 - 美国国家标准化组织字符集
1 - 缺省字符集
2 - 符号字符集
136 - 中国大五码
161 - 希腊字符集
163 - 越南字符集
204 - 古代斯拉夫语字符集
222 - 泰国语字符集
238 - 东欧字符集