复制代码代码如下:
<%
'-------------------------------------
'天枫ASPclassv1.0,集常用asp函数于一体
'天枫版权所有http://www.52515.net
'QQ:76994859EMAIL:[email protected]
'所有功能函数名如下:
'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)检测组件是否安装
'SendMailJMAIL发送邮件
'ResponseCookies写入cookies
'CleanCookies清除cookies
'GetTimeover取得程序页面执行时间
'FormatSize大小格式化
'FormatTime时间格式化
'Zodiac取得生肖
'Constellation取得星座
'-------------------------------------
ClassCls_fun
'--------字符处理--------------------------
'****************************************************
'函数名:StrLength
'作用:取得字符串长度(汉字为2)
'参数:str----字符串内容
'返回值:字符串长度
'****************************************************
PublicfunctionStrLength(str)
DimRep,lens,i