天楓常用的ASP函數(shù)封裝如下
2024-05-04 11:00:44
供稿：網(wǎng)友
復(fù)制代碼 代碼如下:
<%
'－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
'天楓ASP class v1.0，集常用asp函數(shù)于一體
'天楓版權(quán)所有
'QQ:76994859 EMAIL:Chenshaobo@gmail.com
'所有功能函數(shù)名如下：
' StrLength(str) 取得字符串長度
' CutStr(str,strlen) 字符串長度切割
' CheckIsEmpty(tstr) 檢測是否為空
' isInteger(para) 整數(shù)檢驗(yàn)
' CheckName(str) 名字字符校驗(yàn)
' CheckPassword(str) 密碼檢驗(yàn)
' CheckEmail(email) 郵箱格式檢驗(yàn)
' Alert(msg,goUrl) 彈出對話框提示
' GoBack(Str1,Str2,isback) 出錯(cuò)信息提示
' Suc(str1,str2,url) 操作成功信息提示
' ChkPost() 檢測是否站外提交表單
' PSql() 防止sql注入
' FiltrateHtmlCode(Str) 防止生成HTML
' HtmlCode(str) 過濾HTML
' Replacehtml(tstr) 清濾HTML
' GetIP() 獲取客戶端IP
' GetBrowser 獲取客戶端瀏覽器信
' GetSystem 獲取客戶端操作系統(tǒng)
' GetUrl() 獲取當(dāng)前頁面URL包含參數(shù)
' CUrl() 獲取當(dāng)前頁面URL
' GetExtend 取得文件擴(kuò)展名
' CheckExist(table,fieldname,fieldcontent,isblur) 檢測某個(gè)表中某個(gè)字段的內(nèi)容是否存在
' GetNum(table,fieldname,resulttype,args) 檢測某個(gè)表某個(gè)字段有多少條，最大值 ，最小值等
' GetFolderSize(Folderpath) 計(jì)算某個(gè)文件夾的大小
' GetFileSize(Filename) 計(jì)算某個(gè)文件的大小
' IsObjInstalled(strClassString) 檢測組件是否安裝
' SendMail JMAIL發(fā)送郵件
' ResponseCookies 寫入cookies
' CleanCookies 清除cookies
' GetTimeover 取得程序頁面執(zhí)行時(shí)間
' FormatSize 大小格式化
' FormatTime 時(shí)間格式化
' Zodiac 取得生肖
' Constellation 取得星座
'－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Class Cls_fun
'－－－－－－－－字符處理－－－－－－－－－－－－－－－－－－－－－－－－－－
'****************************************************
'函數(shù)名：StrLength
'作 用：取得字符串長度（漢字為2)
'參 數(shù)：str ----字符串內(nèi)容
'返回值：字符串長度
'****************************************************
Public function StrLength(str)
Dim Rep,lens,i
Set rep=new regexp
rep.Global=true
rep.IgnoreCase=true
