天楓常用的ASP函數封裝如下
2024-05-04 11:00:44
供稿：網友
復制代碼 代碼如下:
<%
'－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
'天楓ASP class v1.0，集常用asp函數于一體
'天楓版權所有
'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
