asp制作中常用到的函数库集合第1/8页
程序员文章站
2022-04-14 20:17:31
asp函数库 <% '''' 函数目录 '''' ...
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
<%
'''' 函数目录 ''''
''''-----------------------------------------------''''
'''' 函数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
上一篇: 行为模式之中介者模式