开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 数据库编程 > 查看源码
vCode.asp
资源名称：eat.rar　[点击查看]
上传用户：jisenq
上传日期：2014-06-29
资源大小：7216k
文件大小：20k
源码类别：

数据库编程

开发平台：

ASP/ASPX

vCode.asp：源码内容
  1. <%
  2. Option Explicit
  3. Response.Expires = -1
  4. Response.ExpiresAbsolute = Now() - 1
  5. Response.Expires = 0
  6. Response.CacheControl = "no-cache"
  7. Const nSaturation = 225
  8. Const nBlankNoisyDotOdds = 1.0
  9. Const nColorNoisyDotOdds = 1.0
  10. Const nNoisyLineCount = 2
  11. Const nCharMin = 4
  12. Const nCharMax = 5
  13. Const nSpaceX = 2
  14. Const nSpaceY = 2
  15. Const nImgWidth = 60
  16. Const nImgHeight = 14
  17. Const nCharWidthRandom = 16
  18. Const nCharHeightRandom = 16
  19. Const nPositionXRandom = 10
  20. Const nPositionYRandom = 10
  21. Const nAngleRandom = 2 
  22. Const nLengthRandom = 2
  23. Const nColorHue = -1
  24. Const cCharSet = "0123456789"
  25. Randomize
  26. Dim tmp_X_1_,tmp_Y_1_,tmp_X_2_,tmp_Y_2_,tmp_n_CharC_,tmp_n_PW_,tmp_n_PH_,tmp_Pw_1_,tmp_PH_2_,str_Bur(), str_Digtal,Lines(),LineCount
  27. tmp_n_CharC_ = nCharMin + CInt(Rnd * (nCharMax - nCharMin))
  28. tmp_Pw_1_ = nImgWidth + 2 * nSpaceX
  29. tmp_PH_2_ = nImgHeight + 2 * nSpaceY
  30. call CreatValidCode("GetCode")
  31. sub CDGen_Reset()
  32. LineCount = 0
  33. tmp_X_1_ = 0
  34. tmp_Y_1_ = 0
  35. tmp_X_2_ = 0
  36. tmp_Y_2_ = 1
  37. end sub
  38. sub CDGen_Clear()
  39. Dim i, j
  40. ReDim str_Bur(tmp_PH_2_ - 1, tmp_Pw_1_ - 1)
  42. for j = 0 To tmp_PH_2_ - 1
  43. For i = 0 To tmp_Pw_1_ - 1
  44. str_Bur(j, i) = 0
  45. next
  46. next
  47. End Sub
  48. sub Get_Position(X, Y)
  49. If X >= 0 and X < tmp_Pw_1_ and Y >= 0 and Y < tmp_PH_2_ Then str_Bur(Y, X) = 1
  50. end sub
  51. sub Get_Pline(X1, Y1, X2, Y2)
  52. dim DX, DY, DeltaT, i
  53. DX = X2 - X1
  54. DY = Y2 - Y1
  55. If Abs(DX) > Abs(DY) Then DeltaT = Abs(DX) Else DeltaT = Abs(DY)
  56. If DeltaT = 0 Then
  57. Get_Position CInt(X1),CInt(Y1)
  58. Else
  59. For i = 0 To DeltaT
  60. Get_Position CInt(X1 + DX * i / DeltaT), CInt(Y1 + DY * i / DeltaT)
  61. Next
  62. End If
  63. end sub
  64. sub CDGen_FowardDraw(nLength)
  65. nLength = nLength * (1 + (Rnd * 2 - 1) * nLengthRandom / 100)
  66. ReDim Preserve Lines(3, LineCount)
  67. Lines(0, LineCount) = tmp_X_1_
  68. Lines(1, LineCount) = tmp_Y_1_
  69. tmp_X_1_ = tmp_X_1_ + tmp_X_2_ * nLength
  70. tmp_Y_1_ = tmp_Y_1_ + tmp_Y_2_ * nLength
  71. Lines(2, LineCount) = tmp_X_1_
  72. Lines(3, LineCount) = tmp_Y_1_
  73. LineCount = LineCount + 1
  74. end sub
  75. sub CDGen_SetDirection(nAngle)
  76. Dim DX, DY
  77. nAngle = (nAngle + (Rnd * 2 - 1) * nAngleRandom) / 180 * 3.1415926
  78. DX = tmp_X_2_
  79. DY = tmp_Y_2_
  80. tmp_X_2_ = DX * Cos(nAngle) - DY * Sin(nAngle)
  81. tmp_Y_2_ = DX * Sin(nAngle) + DY * Cos(nAngle)
  82. end sub
  83. sub CDGen_MoveToMiddle(nActionIndex, nPercent)
  84. Dim DeltaX, DeltaY
  85. DeltaX = Lines(2, nActionIndex) - Lines(0, nActionIndex)
  86. DeltaY = Lines(3, nActionIndex) - Lines(1, nActionIndex)
  87. tmp_X_1_ = Lines(0, nActionIndex) + DeltaX * nPercent / 100
  88. tmp_Y_1_ = Lines(1, nActionIndex) + DeltaY * Abs(DeltaY) * nPercent / 100
  89. end sub
  90. sub CDGen_MoveCursor(nActionIndex)
  91. tmp_X_1_ = Lines(0, nActionIndex)
  92. tmp_Y_1_ = Lines(1, nActionIndex)
  93. end sub
  94. sub CDGen_Close(nActionIndex)
  95. ReDim Preserve Lines(3, LineCount)
  96. Lines(0, LineCount) = tmp_X_1_
  97. Lines(1, LineCount) = tmp_Y_1_
  98. tmp_X_1_ = Lines(0, nActionIndex)
  99. tmp_Y_1_ = Lines(1, nActionIndex)
  100. Lines(2, LineCount) = tmp_X_1_
  101. Lines(3, LineCount) = tmp_Y_1_
  102. LineCount = LineCount + 1
  103. end sub
  104. sub CDGen_CloseToMiddle(nActionIndex, nPercent)
  105. Dim DeltaX, DeltaY
  106. ReDim Preserve Lines(3, LineCount)
  107. Lines(0, LineCount) = tmp_X_1_
  108. Lines(1, LineCount) = tmp_Y_1_
  109. DeltaX = Lines(2, nActionIndex) - Lines(0, nActionIndex)
  110. DeltaY = Lines(3, nActionIndex) - Lines(1, nActionIndex)
  111. tmp_X_1_ = Lines(0, nActionIndex) + Sgn(DeltaX) * Abs(DeltaX) * nPercent / 100
  112. tmp_Y_1_ = Lines(1, nActionIndex) + Sgn(DeltaY) * Abs(DeltaY) * nPercent / 100
  113. Lines(2, LineCount) = tmp_X_1_
  114. Lines(3, LineCount) = tmp_Y_1_
  115. LineCount = LineCount + 1
  116. end sub
  117. sub CDGen_Flush(X0, Y0)
  118. Dim MaxX, MinX, MaxY, MinY
  119. Dim DeltaX, DeltaY, StepX, StepY, OffsetX, OffsetY
  120. Dim i
  121. MaxX = MinX = MaxY = MinY = 0
  122. For i = 0 To LineCount - 1
  123. If MaxX < Lines(0, i) Then MaxX = Lines(0, i)
  124. If MaxX < Lines(2, i) Then MaxX = Lines(2, i)
  125. If MinX > Lines(0, i) Then MinX = Lines(0, i)
  126. If MinX > Lines(2, i) Then MinX = Lines(2, i)
  127. If MaxY < Lines(1, i) Then MaxY = Lines(1, i)
  128. If MaxY < Lines(3, i) Then MaxY = Lines(3, i)
  129. If MinY > Lines(1, i) Then MinY = Lines(1, i)
  130. If MinY > Lines(3, i) Then MinY = Lines(3, i)
  131. next
  132. DeltaX = MaxX - MinX
  133. DeltaY = MaxY - MinY
  134. If DeltaX = 0 Then DeltaX = 1
  135. If DeltaY = 0 Then DeltaY = 1
  136. MaxX = MinX
  137. MaxY = MinY
  138. If DeltaX > DeltaY Then
  139. StepX = (tmp_n_PW_ - 2) / DeltaX
  140. StepY = (tmp_n_PH_ - 2) / DeltaX
  141. OffsetX = 0
  142. OffsetY = (DeltaX - DeltaY) / 2
  143. Else
  144. StepX = (tmp_n_PW_ - 2) / DeltaY
  145. StepY = (tmp_n_PH_ - 2) / DeltaY
  146. OffsetX = (DeltaY - DeltaX) / 2
  147. OffsetY = 0
  148. End If
  149. For i = 0 To LineCount - 1
  150. Lines(0, i) = Round((Lines(0, i) - MaxX + OffsetX) * StepX, 0)
  151. Lines(1, i) = Round((Lines(1, i) - MaxY + OffsetY) * StepY, 0)
  152. Lines(2, i) = Round((Lines(2, i) - MinX + OffsetX) * StepX, 0)
  153. Lines(3, i) = Round((Lines(3, i) - MinY + OffsetY) * StepY, 0)
  154. Get_Pline Lines(0, i) + X0 + 1, Lines(1, i) + Y0 + 1, Lines(2, i) + X0 + 1, Lines(3, i) + Y0 + 1
  155. Next
  156. end sub
  157. Sub CDGen_Char(cChar, X0, Y0)
  158. CDGen_Reset
  159. Select Case cChar
  160. Case "0"
  161. CDGen_SetDirection -60                            ' 逆时针60度(相对于垂直线)
  162. CDGen_FowardDraw -0.7                             ' 反方向绘制0.7个单位
  163. CDGen_SetDirection -60                            ' 逆时针60度
  164. CDGen_FowardDraw -0.7                             ' 反方向绘制0.7个单位
  165. CDGen_SetDirection 120                            ' 顺时针120度
  166. CDGen_FowardDraw 1.5                              ' 绘制1.5个单位
  167. CDGen_SetDirection -60                            ' 逆时针60度
  168. CDGen_FowardDraw 0.7                              ' 绘制0.7个单位
  169. CDGen_SetDirection -60                            ' 顺时针120度
  170. CDGen_FowardDraw 0.7                              ' 绘制0.7个单位
  171. CDGen_Close 0                                     ' 封闭当前笔与第0笔(0开始)
  172. Case "1"
  173. CDGen_SetDirection -90                            ' 逆时针90度(相对于垂直线)
  174. CDGen_FowardDraw 0.5                              ' 绘制0.5个单位
  175. CDGen_MoveToMiddle 0, 50                          ' 移动画笔的位置到第0笔(0开始)的50%处
  176. CDGen_SetDirection 90                             ' 逆时针90度
  177. CDGen_FowardDraw -1.4                             ' 反方向绘制1.4个单位
  178. CDGen_SetDirection 30                             ' 逆时针30度
  179. CDGen_FowardDraw 0.4                              ' 绘制0.4个单位
  180. Case "2"
  181. CDGen_SetDirection 45                             ' 顺时针45度(相对于垂直线)
  182. CDGen_FowardDraw -0.7                             ' 反方向绘制0.7个单位
  183. CDGen_SetDirection -120                           ' 逆时针120度
  184. CDGen_FowardDraw 0.4                              ' 绘制0.4个单位
  185. CDGen_SetDirection 60                             ' 顺时针60度
  186. CDGen_FowardDraw 0.6                              ' 绘制0.6个单位
  187. CDGen_SetDirection 60                             ' 顺时针60度
  188. CDGen_FowardDraw 1.6                              ' 绘制1.6个单位
  189. CDGen_SetDirection -135                           ' 逆时针135度
  190. CDGen_FowardDraw 1.0                              ' 绘制1.0个单位
  191. Case "3"
  192. CDGen_SetDirection -90                            ' 逆时针90度(相对于垂直线)
  193. CDGen_FowardDraw 0.8                              ' 绘制0.8个单位
  194. CDGen_SetDirection 135                            ' 顺时针135度
  195. CDGen_FowardDraw 0.8                              ' 绘制0.8个单位
  196. CDGen_SetDirection -120                           ' 逆时针120度
  197. CDGen_FowardDraw 0.6                              ' 绘制0.6个单位
  198. CDGen_SetDirection 80                             ' 顺时针80度
  199. CDGen_FowardDraw 0.5                              ' 绘制0.5个单位
  200. CDGen_SetDirection 60                             ' 顺时针60度
  201. CDGen_FowardDraw 0.5                              ' 绘制0.5个单位
  202. CDGen_SetDirection 60                             ' 顺时针60度
  203. CDGen_FowardDraw 0.5                              ' 绘制0.5个单位
  204. Case "4"
  205. CDGen_SetDirection 20                             ' 顺时针20度(相对于垂直线)
  206. CDGen_FowardDraw 0.8                              ' 绘制0.8个单位
  207. CDGen_SetDirection -110                           ' 逆时针110度
  208. CDGen_FowardDraw 1.2                              ' 绘制1.2个单位
  209. CDGen_MoveToMiddle 1, 60                          ' 移动画笔的位置到第1笔(0开始)的60%处
  210. CDGen_SetDirection 90                             ' 顺时针90度
  211. CDGen_FowardDraw 0.7                              ' 绘制0.7个单位
  212. CDGen_MoveCursor 2                                ' 移动画笔到第2笔(0开始)的开始处
  213. CDGen_FowardDraw -1.5                             ' 反方向绘制1.5个单位
  214. Case "5"
  215. CDGen_SetDirection 90                             ' 顺时针90度(相对于垂直线)
  216. CDGen_FowardDraw 1.0                              ' 绘制1.0个单位
  217. CDGen_SetDirection -90                            ' 逆时针90度
  218. CDGen_FowardDraw 0.8                              ' 绘制0.8个单位
  219. CDGen_SetDirection -90                            ' 逆时针90度
  220. CDGen_FowardDraw 0.8                              ' 绘制0.8个单位
  221. CDGen_SetDirection 30                             ' 顺时针30度
  222. CDGen_FowardDraw 0.4                              ' 绘制0.4个单位
  223. CDGen_SetDirection 60                             ' 顺时针60度
  224. CDGen_FowardDraw 0.4                              ' 绘制0.4个单位
  225. CDGen_SetDirection 30                             ' 顺时针30度
  226. CDGen_FowardDraw 0.5                              ' 绘制0.5个单位
  227. CDGen_SetDirection 60                             ' 顺时针60度
  228. CDGen_FowardDraw 0.8                              ' 绘制0.8个单位
  229. Case "6"
  230. CDGen_SetDirection -60                            ' 逆时针60度(相对于垂直线)
  231. CDGen_FowardDraw -0.7                             ' 反方向绘制0.7个单位
  232. CDGen_SetDirection -60                            ' 逆时针60度
  233. CDGen_FowardDraw -0.7                             ' 反方向绘制0.7个单位
  234. CDGen_SetDirection 120                            ' 顺时针120度
  235. CDGen_FowardDraw 1.5                              ' 绘制1.5个单位
  236. CDGen_SetDirection 120                            ' 顺时针120度
  237. CDGen_FowardDraw -0.7                             ' 反方向绘制0.7个单位
  238. CDGen_SetDirection 120                            ' 顺时针120度
  239. CDGen_FowardDraw 0.7                              ' 绘制0.7个单位
  240. CDGen_SetDirection 120                            ' 顺时针120度
  241. CDGen_FowardDraw -0.7                             ' 反方向绘制0.7个单位
  242. CDGen_SetDirection 120                            ' 顺时针120度
  243. CDGen_FowardDraw 0.5                              ' 绘制0.5个单位
  244. CDGen_CloseToMiddle 2, 50                         ' 将当前画笔位置与第2笔(0开始)的50%处封闭
  245. Case "7"
  246. CDGen_SetDirection 180                            ' 顺时针180度(相对于垂直线)
  247. CDGen_FowardDraw 0.3                              ' 绘制0.3个单位
  248. CDGen_SetDirection 90                             ' 顺时针90度
  249. CDGen_FowardDraw 0.9                              ' 绘制0.9个单位
  250. CDGen_SetDirection 120                            ' 顺时针120度
  251. CDGen_FowardDraw 1.3                              ' 绘制1.3个单位
  252. Case "8"
  253. CDGen_SetDirection -60                            ' 逆时针60度(相对于垂直线)
  254. CDGen_FowardDraw -0.8                             ' 反方向绘制0.8个单位
  255. CDGen_SetDirection -60                            ' 逆时针60度
  256. CDGen_FowardDraw -0.8                             ' 反方向绘制0.8个单位
  257. CDGen_SetDirection 120                            ' 顺时针120度
  258. CDGen_FowardDraw 0.8                              ' 绘制0.8个单位
  259. CDGen_SetDirection 110                            ' 顺时针110度
  260. CDGen_FowardDraw -1.5                             ' 反方向绘制1.5个单位
  261. CDGen_SetDirection -110                           ' 逆时针110度
  262. CDGen_FowardDraw 0.9                              ' 绘制0.9个单位
  263. CDGen_SetDirection 60                             ' 顺时针60度
  264. CDGen_FowardDraw 0.8                              ' 绘制0.8个单位
  265. CDGen_SetDirection 60                             ' 顺时针60度
  266. CDGen_FowardDraw 0.8                              ' 绘制0.8个单位
  267. CDGen_SetDirection 60                             ' 顺时针60度
  268. CDGen_FowardDraw 0.9                              ' 绘制0.9个单位
  269. CDGen_SetDirection 70                             ' 顺时针70度
  270. CDGen_FowardDraw 1.5                             ' 绘制1.5个单位
  271. CDGen_Close 0                                     ' 封闭当前笔与第0笔(0开始)
  272. Case "9"
  273. CDGen_SetDirection 120                            ' 逆时针60度(相对于垂直线)
  274. CDGen_FowardDraw -0.7                             ' 反方向绘制0.7个单位
  275. CDGen_SetDirection -60                            ' 逆时针60度
  276. CDGen_FowardDraw -0.7                             ' 反方向绘制0.7个单位
  277. CDGen_SetDirection -60                            ' 顺时针120度
  278. CDGen_FowardDraw -1.5                              ' 绘制1.5个单位
  279. CDGen_SetDirection -60                            ' 顺时针120度
  280. CDGen_FowardDraw -0.7                             ' 反方向绘制0.7个单位
  281. CDGen_SetDirection -60                            ' 顺时针120度
  282. CDGen_FowardDraw -0.7                              ' 绘制0.7个单位
  283. CDGen_SetDirection 120                            ' 顺时针120度
  284. CDGen_FowardDraw 0.7                             ' 反方向绘制0.7个单位
  285. CDGen_SetDirection -60                            ' 顺时针120度
  286. CDGen_FowardDraw 0.5                              ' 绘制0.5个单位
  287. CDGen_CloseToMiddle 2, 50                         ' 将当前画笔位置与第2笔(0开始)的50%处封闭
  288. Case "A"
  289. CDGen_SetDirection -(Rnd * 20 + 150)              ' 逆时针150-170度(相对于垂直线)
  290. CDGen_FowardDraw Rnd * 0.2 + 1.1                  ' 绘制1.1-1.3个单位
  291. CDGen_SetDirection Rnd * 20 + 140                 ' 顺时针140-160度
  292. CDGen_FowardDraw Rnd * 0.2 + 1.1                  ' 绘制1.1-1.3个单位
  293. CDGen_MoveToMiddle 0, 30                          ' 移动画笔的位置到第1笔(0开始)的30%处
  294. CDGen_CloseToMiddle 1, 70                         ' 将当前画笔位置与第1笔(0开始)的70%处封闭
  295. Case "B"
  296. CDGen_SetDirection -(Rnd * 20 + 50)               ' 逆时针50-70度(相对于垂直线)
  297. CDGen_FowardDraw Rnd * 0.4 + 0.8                  ' 绘制0.8-1.2个单位
  298. CDGen_SetDirection Rnd * 20 + 110                 ' 顺时针110-130度
  299. CDGen_FowardDraw Rnd * 0.2 + 0.6                  ' 绘制0.6-0.8个单位
  300. CDGen_SetDirection -(Rnd * 20 + 110)              ' 逆时针110-130度
  301. CDGen_FowardDraw Rnd * 0.2 + 0.6                  ' 绘制0.6-0.8个单位
  302. CDGen_SetDirection Rnd * 20 + 110                 ' 顺时针110-130度
  303. CDGen_FowardDraw Rnd * 0.4 + 0.8                  ' 绘制0.8-1.2个单位
  304. CDGen_Close 0                                     ' 封闭当前笔与第1笔(0开始)
  305. Case "C"
  306. CDGen_SetDirection -60                            ' 逆时针60度(相对于垂直线)
  307. CDGen_FowardDraw -0.7                             ' 反方向绘制0.7个单位
  308. CDGen_SetDirection -60                            ' 逆时针60度
  310. CDGen_FowardDraw -0.7                             ' 反方向绘制0.7个单位
  311. CDGen_SetDirection 120                            ' 顺时针120度
  312. CDGen_FowardDraw 1.5                              ' 绘制1.5个单位
  313. CDGen_SetDirection 120                            ' 顺时针120度
  314. CDGen_FowardDraw -0.7                             ' 反方向绘制0.7个单位
  315. CDGen_SetDirection 120                            ' 顺时针120度
  316. CDGen_FowardDraw 0.7                              ' 绘制0.7个单位
  317. Case "D"
  318. CDGen_SetDirection -(Rnd * 0 + 50)               ' 逆时针50-70度(相对于垂直线)
  319. CDGen_FowardDraw Rnd * 0.4 + 0.8                  ' 绘制0.8-1.2个单位
  320. CDGen_SetDirection Rnd * 0 + 110                 ' 顺时针110-130度
  321. CDGen_FowardDraw Rnd * 0.2 + 0.6                  ' 绘制0.6-0.8个单位
  322. 'CDGen_SetDirection -(Rnd * 20 + 110)              ' 逆时针110-130度
  323. 'CDGen_FowardDraw Rnd * 0.2 + 0.6                  ' 绘制0.6-0.8个单位
  324. CDGen_SetDirection Rnd * 0+ 110                 ' 顺时针110-130度
  325. CDGen_FowardDraw Rnd * 0.4 + 0.8                  ' 绘制0.8-1.2个单位
  326. CDGen_Close 0                                     ' 封闭当前笔与第1笔(0开始)
  327. End Select
  328. CDGen_Flush X0, Y0
  329. End Sub
  330. Sub CDGen_Blur()
  331. Dim i, j
  332. For j = 1 To tmp_PH_2_ - 2
  333. For i = 1 To tmp_Pw_1_ - 2
  334. If str_Bur(j, i) = 0 Then
  335. If ((str_Bur(j, i - 1) Or str_Bur(j + 1, i)) and 1) <> 0 Then
  336. str_Bur(j, i) = 2
  337. End If
  338. End If
  339. Next
  340. Next
  341. End Sub
  342. Sub CDGen_NoisyLine()
  343. Dim i
  344. For i=1 To nNoisyLineCount
  345. Get_Pline Rnd * tmp_Pw_1_, Rnd * tmp_PH_2_, Rnd * tmp_Pw_1_, Rnd * tmp_PH_2_
  346. Next
  347. End Sub
  348. Sub Get_Dotrad()
  349. Dim i, j, NoisyDot, CurDot
  350. For j = 0 To tmp_PH_2_ - 1
  351. For i = 0 To tmp_Pw_1_ - 1
  352. If str_Bur(j, i) <> 0 Then
  353. If Rnd < nColorNoisyDotOdds Then
  354. str_Bur(j, i) = 0
  355. Else
  356. str_Bur(j, i) = nSaturation
  357. End If
  358. Else
  359. If Rnd < nBlankNoisyDotOdds Then
  360. str_Bur(j, i) = nSaturation
  361. Else
  362. str_Bur(j, i) = 0
  363. End If
  364. End If
  365. Next
  366. Next
  367. End Sub
  368. Sub CDGen()
  369. Dim i, Ch, w, x, y
  370. str_Digtal = ""
  371. CDGen_Clear
  372. w = nImgWidth / tmp_n_CharC_
  373. For i = 0 To tmp_n_CharC_ - 1
  374. tmp_n_PW_ = w * (1 + (Rnd * 2 - 1) * nCharWidthRandom / 100)
  375. tmp_n_PH_ = nImgHeight * (1 - Rnd * nCharHeightRandom / 100)
  376. x = nSpaceX + w * (i + (Rnd * 2 - 1) * nPositionXRandom / 100)
  377. y = nSpaceY + nImgHeight * (Rnd * 2 - 1) * nPositionYRandom / 100
  378. Ch = Mid(cCharSet, Int(Rnd * Len(cCharSet)) + 1, 1)
  379. str_Digtal = str_Digtal + Ch
  380. CDGen_Char Ch, x, y
  381. Next
  382. CDGen_Blur
  383. CDGen_NoisyLine
  384. Get_Dotrad
  385. End Sub
  386. Function str_HSBToRGB(vH, vS, vB)
  387. Dim aRGB(3), RGB1st, RGB2nd, RGB3rd
  388. Dim nH, nS, nB
  389. Dim lH, nF, nP, nQ, nT
  390. vH = (vH Mod 360)
  391. If vS > 100 Then
  392. vS = 100
  393. ElseIf vS < 0 Then
  394. vS = 0
  395. End If
  396. If vB > 100 Then
  397. vB = 100
  398. ElseIf vB < 0 Then
  399. vB = 0
  400. End If
  401. If vS > 0 Then
  402. nH = vH / 60
  403. nS = vS / 100
  404. nB = vB / 100
  405. lH = Int(nH)
  406. nF = nH - lH
  407. nP = nB * (1 - nS)
  408. nQ = nB * (1 - nS * nF)
  409. nT = nB * (1 - nS * (1 - nF))
  410. Select Case lH
  411. Case 0
  412. aRGB(0) = nB * 255
  413. aRGB(1) = nT * 255
  414. aRGB(2) = nP * 255
  415. Case 1
  416. aRGB(0) = nQ * 255
  417. aRGB(1) = nB * 255
  418. aRGB(2) = nP * 255
  419. Case 2
  420. aRGB(0) = nP * 255
  421. aRGB(1) = nB * 255
  422. aRGB(2) = nT * 255
  423. Case 3
  424. aRGB(0) = nP * 255
  425. aRGB(1) = nQ * 255
  426. aRGB(2) = nB * 255
  427. Case 4
  428. aRGB(0) = nT * 255
  429. aRGB(1) = nP * 255
  430. aRGB(2) = nB * 255
  431. Case 5
  432. aRGB(0) = nB * 255
  433. aRGB(1) = nP * 255
  434. aRGB(2) = nQ * 255
  435. End Select
  436. Else
  437. aRGB(0) = (vB * 255) / 100
  438. aRGB(1) = aRGB(0)
  439. aRGB(2) = aRGB(0)
  440. End If
  441. str_HSBToRGB = ChrB(Round(aRGB(2), 0)) & ChrB(Round(aRGB(1), 0)) & ChrB(Round(aRGB(0), 0))
  442. End Function
  443. Sub CreatValidCode(Foosun)
  444. Dim i, j, CurColorHue
  445. CDGen
  446. Session(Foosun) = lcase(str_Digtal) '记录入Session
  447. Dim FileSize, PicDataSize
  448. PicDataSize = tmp_Pw_1_ * tmp_PH_2_ * 3
  449. FileSize = PicDataSize + 54
  450. Response.BinaryWrite ChrB(66) & ChrB(77) & ChrB(FileSize Mod 256) & ChrB((FileSize  256) Mod 256) & ChrB((FileSize  256  256) Mod 256) & ChrB(FileSize  256  256  256) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(54) & ChrB(0) & ChrB(0) & ChrB(0)
  451. Response.BinaryWrite ChrB(40) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(tmp_Pw_1_ Mod 256) & ChrB((tmp_Pw_1_  256) Mod 256) & ChrB((tmp_Pw_1_  256  256) Mod 256) & ChrB(tmp_Pw_1_  256  256  256) & ChrB(tmp_PH_2_ Mod 256) & ChrB((tmp_PH_2_  256) Mod 256) & ChrB((tmp_PH_2_  256  256) Mod 256) & ChrB(tmp_PH_2_  256  256  256) & ChrB(1) & ChrB(0) & ChrB(24) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(PicDataSize Mod 256) & ChrB((PicDataSize  256) Mod 256) & ChrB((PicDataSize  256  256) Mod 256) & ChrB(PicDataSize  256  256  256) & ChrB(18) & ChrB(11) & ChrB(0) & ChrB(0) & ChrB(18) & ChrB(11) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0)
  452. If nColorHue = -1 Then
  453. CurColorHue = Int(Rnd * 360)
  454. CurColorHue = 200
  455. ElseIf nColorHue <> -2 Then
  456. CurColorHue = nColorHue
  457. End If
  458. For j = 0 To tmp_PH_2_ - 1
  459. For i = 0 To tmp_Pw_1_ - 1
  460. If nColorHue = -2 Then
  461. Response.BinaryWrite str_HSBToRGB(0, 0, 100 - str_Bur(tmp_PH_2_ - 1 - j, i))
  462. Else
  463. Response.BinaryWrite str_HSBToRGB(CurColorHue, str_Bur(tmp_PH_2_ - 1 - j, i), 100)
  464. End If
  465. Next
  466. Next
  467. End Sub
  468. %>