您现在的位置: 破洛洛 >> 建站学院 >> 网站开发 >> ASP教程 >> 函数对象 >> 正文

ASP函数库8

作者:佚名 来源:CNZZ 更新时间:2007-12-21
分享到

**************************************************
  '函数ID:0039[判断是否奇数]
  '函数名:Is_JS
  '作 用:判断是否奇数
  '参 数:num ---- 要判断的数
  '返回值:返回True,否则False
  '**************************************************
  Public Function Is_JS(ByVal num)
   n=num mod 2
   if n=1 then
   Is_JS=true
   else
   Is_JS=false
   end if
  end function
  '**************************************************
  '函数ID:0040[生成验证码图像BMP]
  '函数名:GrapCode
  '作 用:生成验证码图像
  '参 数:MZYGCstr ---- 要生成的图像的字符
  '参 数:Noisy ---- 噪点率(大于0的整数)
  '参 数:BkColor ---- 图案背景色(格式:R|G|B)
  '参 数:FnColor ---- 字符颜色(格式:R|G|B)
  '参 数:NoColor ---- 噪点颜色(格式:R|G|B)
  '返回值:验证码图像
  '示 例:Response.Write "<img src='" &GrapCode(Request("n"),6,"10|40|100","255|255|255","100|100|100")&"'>"
  '**************************************************
  Public Function GrapCode(ByVal MZYGCstr,ByVal Noisy,ByVal BkColor,ByVal FnColor,ByVal NoColor)
   If Len(Trim(MZYGCstr))>1 Then
   Dim imgsize,pimgsize
   Const cAmount = 36
   Const cCode = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   Dim ColorV(2)
   tmp=""
   tmp=Split(BkColor,"|")
   ColorV(0) =""
   For i = LBound(tmp) To UBound(tmp)
   ColorV(0) = ColorV(0) & ChrB(CInt(tmp(i)))
   Next
   tmp=""
   tmp=Split(FnColor,"|")
   ColorV(1) =""
   For i = LBound(tmp) To UBound(tmp)
   ColorV(1) = ColorV(1) & ChrB(CInt(tmp(i)))
   Next
   tmp=""
   tmp=Split(NoColor,"|")
   ColorV(2) =""
   For i = LBound(tmp) To UBound(tmp)
   ColorV(2) = ColorV(2) & ChrB(CInt(tmp(i)))
   Next
   imgsize=10*Len(MZYGCstr)*10*24/8
   pimgsize=10*Len(MZYGCstr)*10*24/8
   If Is_JS(Len(MZYGCstr)) Then
   imgsize=imgsize+74
   pimgsize=pimgsize+20
   Else
   imgsize=imgsize+54
&

转载请注明:破洛洛(谢谢合作)

  • 上一篇文章:
  • 下一篇文章:
  • 网友评论: