推荐下天枫常用ASP函数封装，推荐大家使用
网学网为广大网友收集整理了，推荐下天枫常用asp函数封装，推荐大家使用，希望对大家有所帮助！
复制代码 代码如下:<%
''－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
''天枫ASP class v1.0，集常用asp函数于一体
''天枫版权所有http://www.52515.net
''QQ:76994859 EMAIL:Chenshaobo@gmail.com
''所有功能函数名如下：
'' StrLength(str) 取得字符串长度
'' CutStr(str,strlen) 字符串长度切割
'' CheckIsEmpty(tstr) 检测是否为空
'' isInteger(para) 整数检验
'' CheckName(str) 名字字符校验
'' CheckPassword(str) 密码检验
'' CheckEmail(email) 邮箱格式检验
'' Alert(msg,goUrl) 弹出对话框提示
'' GoBack(Str1,Str2,isback) 出错信息提示
'' Suc(str1,str2,url) 操作成功信息提示
'' ChkPost() 检测是否站外提交表单
'' PSql() 防止sql注入
'' FiltrateHtmlCode(Str) 防止生成HTML
'' HtmlCode(str) 过滤HTML
'' Replacehtml(tstr) 清滤HTML
'' GetIP() 获取客户端IP
'' GetBrowser 获取客户端浏览器信
'' GetSystem 获取客户端操作系统
'' GetUrl() 获取当前页面URL包含参数
'' CUrl() 获取当前页面URL
'' GetExtend 取得文件扩展名
'' CheckExist(table,fieldname,fieldcontent,isblur) 检测某个表中某个字段的内容是否存在
'' GetNum(table,fieldname,resulttype,args) 检测某个表某个字段有多少条，最大值 ，最小值等
'' GetFolderSize(Folderpath) 计算某个文件夹的大小
'' GetFileSize(Filename) 计算某个文件的大小
'' IsObjInstalled(strClassString) 检测组件是否安装
'' SendMail JMAIL发送邮件
'' ResponseCookies 写入cookies
'' CleanCookies 清除cookies
'' GetTimeover 取得程序页面执行时间
'' FormatSize 大小格式化
'' FormatTime 时间格式化
'' Zodiac 取得生肖
'' Constellation 取得星座
''－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Class Cls_fun
''－－－－－－－－字符处理－－－－－－－－－－－－－－－－－－－－－－－－－－
''****************************************************
''函数名：StrLength
''作 用：取得字符串长度（汉字为2)
''参 数：str ----字符串内容
''返回值：字符串长度
''****************************************************
Public function StrLength(str)
Dim Rep,lens,i
Set rep=new regexp
rep.Global=true
rep.IgnoreCase=true
rep.Pattern="[\u4E00-\u9FA5\uF900-\uFA2D]"
For each i in rep.Execute(str)
lens=lens+1
Next
Set Rep=Nothing
lens=lens + len(str)
strLength=lens
End Function
''****************************************************
''函数名：CutStr
''作 用：字符串长度切割，超过显示省略号
''参 数：str ----字符串内容
'' strlen ------要显示的长度
''返回值：切割后字符串内容
''****************************************************
Public Function CutStr(str,strlen)
Dim l,t,i,c
If str="" Then
cutstr=""
Exit Function
End If
str=Replace(Replace(Replace(Replace(Replace(str," "," "),""",Chr(34)),">",">"),"<","<"),"|","|")
l=Len(str)
t=0
For i=1 To l
c=Abs(Asc(Mid(str,i,1)))
If c>255 Then
t=t+2