複製代碼代碼如下:
<%
'－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
'天楓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