asp制作中常用到的函数库集合第1/8页(2)

  '''' 函数ID：0034[用于右填充指定数量的字符] '''' 
  '''' 函数ID：0035[格式化时间(显示)] '''' 
  '''' 函数ID：0036[测试数据库是否存在] '''' 
  '''' 函数ID：0037[测试数据库中的表是否存在] '''' 
  '''' 函数ID：0038[在线HTML编辑器] '''' 
  '''' 函数ID：0039[判断是否奇数] '''' 
  '''' 函数ID：0040[生成验证码图像BMP] '''' 
  '''' 函数ID：0041[生成随机密码] '''' 
  '''' 函数ID：0042[字符加解密] '''' 
  '''' 函数ID：0043[解密字符加解密] '''' 
  '''' 函数ID：0044[创建数据表] '''' 
  '''' 函数ID：0045[在数据库中插入字段值] '''' 
  '''' 函数ID：0046[Cookie防乱码写入时用] '''' 
  '''' 函数ID：0047[Cookie防乱码读出时用] '''' 
  '''' 函数ID：0048[检测用户名和密码是否正确] '''' 
  '''' 函数ID：0049[生成时间的整数] '''' 
  '''' 函数ID：0050[获得栏目的所有子栏目字符串并用","隔开] 
  '''' '''' 
  '''' '''' 
  '''' '''' 
  '**************************************************'''' 
  '函数ID：0001[截字符串] 
  '函数名：SubstZFC 
  '作 用：截字符串，汉字一个算两个字符，英文算一个字符 
  '参 数：str ----原字符串 
  ' strlen ----截取长度 
  '返回值：截取后的字符串 
  '************************************************** 
  Public Function SubstZFC(ByVal str, ByVal strlen) 
   If str = "" Then 
   SubstZFC = "" 
   Exit Function 
   End If 
   Dim l, t, c, i, strTemp 
   str = Replace(Replace(Replace(Replace(str, " ", " "), """, Chr(34)), ">", ">"), "<", "<") 
   l = Len(str) 
   t = 0 
   strTemp = str 
   strlen = CLng(strlen) 
   For i = 1 To l 
   c = Abs(Asc(Mid(str, i, 1))) 
   If c > 255 Then