asp制作中常用到的函数库集合第1/8页-巨人网络通讯

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

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

12345678下一页阅读全文

标签：优质小号新乡电商邀评那曲铜川河池延边苏州

巨人网络通讯声明：本文标题《asp制作中常用到的函数库集合第1/8页》，本文关键词 asp,制作,中常,用到,的,函数,；如发现本文内容存在版权问题，烦请提供相关信息告之我们，我们将及时沟通与处理。本站内容系统采集于网络，涉及言论、版权与本站无关。