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----截取长度
'返回值：截取后的字符串
'**************************************************
PublicFunctionSubstZFC(ByValstr,ByValstrlen)
Ifstr=""Then
SubstZFC=""
ExitFunction
EndIf
Diml,t,c,i,strTemp
str=Replace(Replace(Replace(Replace(str,"",""),""",Chr(34)),">",">"),"<","<")
l=Len(str)
t=0
strTemp=str
strlen=CLng(strlen)
Fori=1Tol
c=Abs(Asc(Mid(str,i,1)))
Ifc>255Then
t=t+2
Else
t=t+1
EndIf
Ift>=strlenThen
strTemp=Left(str,i)
ExitFor
EndIf
Next
SubstZFC=Replace(Replace(Replace(Replace(strTemp,"",""),Chr(34),"""),">",">"),"<","<")
EndFunction
12345678下一页阅读全文