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

asp函数库 
  <% 
  '''' 函数目录 '''' 
  ''''-----------------------------------------------'''' 
  '''' 函数id：0001[截字符串] '''' 
  '''' 函数id：0002[过滤html] '''' 
  '''' 函数id：0003[打开任意数据表并显示表结构及内容]'''' 
  '''' 函数id：0004[读取两种路径] '''' 
  '''' 函数id：0005[测试某个文件存在否] '''' 
  '''' 函数id：0006[删除某个文件] '''' 
  '''' 函数id：0007[判断目录是否存在] '''' 
  '''' 函数id：0008[创建目录] '''' 
  '''' 函数id：0009[删除目录] '''' 
  '''' 函数id：0010[指定目录的文件列表] '''' 
  '''' 函数id：0011[指定目录的目录列表] '''' 
  '''' 函数id：0012[创建文本文件] '''' 
  '''' 函数id：0013[读取文本文件] '''' 
  '''' 函数id：0014[检测id是否为数字类型] '''' 
  '''' 函数id：0015[正则表达式测试] '''' 
  '''' 函数id：0016[获得执行程序的名称] '''' 
  '''' 函数id：0017[读取用户ip地址信息] '''' 
  '''' 函数id：0018[上传文件到指定目录并改文件名称] '''' 
  '''' 函数id：0019[过滤html脚本] '''' 
  '''' 函数id：0020[创建msaccess数据库] '''' 
  '''' 函数id：0021[创建mssqlserver数据库] '''' 
  '''' 函数id：0022[通过jmail发信] '''' 
  '''' 函数id：0023[测试组件是否安装] '''' 
  '''' 函数id：0024[上传文件的窗口] '''' 
  '''' 函数id：0025[取得数据库链接字串] '''' 
  '''' 函数id：0026[取得multipart/form-data形式上传文件] 
  '''' 函数id：0027[保存或查看上传到数据库中的数据，带调用上传窗口] 
  '''' 函数id：0028[取得图像的类型|宽|高] '''' 
  '''' 函数id：0029[将本地文件进行二进制分析，并保存到服务器的指定目录下] 
  '''' 函数id：0030[将本地数据表或库上传并导入到服务器数据库的表中] 
  '''' 函数id：0031[返回服务器信息] '''' 
  '''' 函数id：0032[产生20位长度的唯一标识id] '''' 
  '''' 函数id：0033[用于左填充指定数量的字符] '''' 
  '''' 函数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 
   t = t + 2 
   else 
   t = t + 1 
   end if 
   if t >= strlen then 
   strtemp = left(str, i) 
   exit for 
   end if 
   next 
   substzfc = replace(replace(replace(replace(strtemp, " ", " "), chr(34), """), ">", ">"), "<", "<") 
  end function 

1