极乐门资源网 Design By www.ioogu.com
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下一页阅读全文
<%
'''' 函数目录 ''''
''''-----------------------------------------------''''
'''' 函数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制作中常用到的函数库集合
极乐门资源网 Design By www.ioogu.com
极乐门资源网
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件!
如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
极乐门资源网 Design By www.ioogu.com
暂无asp制作中常用到的函数库集合第1/8页的评论...
稳了!魔兽国服回归的3条重磅消息!官宣时间再确认!
昨天有一位朋友在大神群里分享,自己亚服账号被封号之后居然弹出了国服的封号信息对话框。
这里面让他访问的是一个国服的战网网址,com.cn和后面的zh都非常明白地表明这就是国服战网。
而他在复制这个网址并且进行登录之后,确实是网易的网址,也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情,因为以前都没有出现这样的情况,现在突然提示跳转到国服战网的网址,是不是说明了简体中文客户端已经开始进行更新了呢?
更新日志
2024年12月24日
2024年12月24日
- 小骆驼-《草原狼2(蓝光CD)》[原抓WAV+CUE]
- 群星《欢迎来到我身边 电影原声专辑》[320K/MP3][105.02MB]
- 群星《欢迎来到我身边 电影原声专辑》[FLAC/分轨][480.9MB]
- 雷婷《梦里蓝天HQⅡ》 2023头版限量编号低速原抓[WAV+CUE][463M]
- 群星《2024好听新歌42》AI调整音效【WAV分轨】
- 王思雨-《思念陪着鸿雁飞》WAV
- 王思雨《喜马拉雅HQ》头版限量编号[WAV+CUE]
- 李健《无时无刻》[WAV+CUE][590M]
- 陈奕迅《酝酿》[WAV分轨][502M]
- 卓依婷《化蝶》2CD[WAV+CUE][1.1G]
- 群星《吉他王(黑胶CD)》[WAV+CUE]
- 齐秦《穿乐(穿越)》[WAV+CUE]
- 发烧珍品《数位CD音响测试-动向效果(九)》【WAV+CUE】
- 邝美云《邝美云精装歌集》[DSF][1.6G]
- 吕方《爱一回伤一回》[WAV+CUE][454M]