ASP

<% '****************************** '函數：workdays(date_begin , date_end) '參數：date_begin,開始日期；date_end,結束日期 '作者：阿里西西 '日期：2007/7/15 '描述：計算兩個時間內的工作日 '樣本：workdays("2007-05-18" , "2007-05-21") '****************************** function&

<% '****************************** '函數：Generator(Length) '參數：Length,任意長度的數值，隨機碼位元 '作者：阿里西西 '日期：2007/7/15 '描述：產生任意英文+數字位元長度的隨機碼函數 '樣本：Generator(80) '****************************** Function Generator(Length)  Dim i, tempS

<% '****************************** '函數：MultiPage(Numbers,Perpage,Curpage,Url_Add) '參數：Numbers,總記錄數；Perpage,每頁記錄數；Curpage,當前頁；Url_Add,當前頁其它參數如?action=list& '作者：阿里西西 '日期：2007/7/15 '描述：ASP通用分頁樣式函數 '樣本：MultiPage(100,10,2,"?action=list&") '************

<% '****************************** '函數：HTMLEncode(reString) '參數：reString,待編碼轉換處理的字串 '作者：阿里西西 '日期：2007/7/15 '描述：對HTML代碼進行轉換 '樣本：HTMLEncode("<p>歡迎訪問<br>阿里西西</p>") '****************************** Function HTMLEncode(reString) &

<% '****************************** '函數：CheckStr(byVal ChkStr) '參數：ChkStr,待驗證的字元 '作者：阿里西西 '日期：2007/7/15 '描述：對SQL注入危險字元進行重編碼處理 '樣本：CheckStr("and 1=1 or select * from") '******************************

<% '****************************** '函數：SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority) '參數：MailtoAddress,內送郵件地址；MailtoName,接收者姓名；ubject,主題；ailBody,郵件內容；FomName,主送姓名；ailFrom,主送郵件地址；riority,郵件等級 '作者：阿里西西 '日期：2007/7/13

<% '****************************** '函數：IsObjInstalled(strClassString) '參數：strClassString,組件對象名 '作者：阿里西西 '日期：2007/7/13 '描述：檢測組件是否安裝 '樣本：<%=IsObjInstalled(strClassString)%> '******************************

<% '****************************** '函數：CheckString(strng) '參數：strng,待驗證字串 '作者：阿里西西 '日期：2007/7/13 '描述：檢測字串是否為純字母和數字組合 '樣本：<%=CheckString(strng)%> '****************************** Function CheckString(strng)

'********************************************************* '函數：IsValidEmail[str] '參數：str，待處理的字串 '作者：木木 '日期：2007/7/12 '描述：檢測郵箱格式是否為xxxx@xxx.com或者xxxx@xxx.com.cn等格式 '樣本：<%=IsValidEmail(ali@alixixi.com)%> '*****************************************

<% '****************************** '函數：FormatFileSize(l1) '參數：l1,位元組數 '作者：阿里西西 '日期：2007/7/12 '描述：格式檔案大小樣式 '樣本：<%=FormatFileSize(l1)%> '****************************** function FormatFileSize(l1)  dim l2,l3

asp 字串截取函數'********************************************************* '函數：cutStr[str(strlen)] '參數：str，待處理的字串,strlen，截取的長度 '作者：木木 '日期：2007/7/12 '描述：截取指定長度的字串 '樣本：<%=cutStr("歡迎光臨阿里西西",5)%> '****************************************************

<% '****************************** '函數：bbimg(l1,maximgheight,maximgwidth) '參數：l1,圖片路徑；maximgheight,最大允許圖片高度；maximgwidth,最大允許圖片寬度 '作者：阿里西西 '日期：2007/7/12 '描述：限制頁面圖片的最大高度和寬度 '樣本：<%=bbimg("alixixi.gif",300,100)%> '******************************

<% '****************************** '函數：ConnectionMssql(ConnStr) '參數：ConnStr,資料庫連接代碼 '作者：阿里西西 '日期：2007/7/13 '描述：通用資料庫連接過程 '樣本：<%=ConnectionMssql("Provider = Microsoft.Jet.OLEDB.4.0;Data Source = test.mdb")%> '********

<% '****************************** '函數：SelPlay(strUrl,strWidth,StrHeight) '參數：strUrl,動畫視頻路徑；strWidth,視頻高度；StrHeight,視頻高度 '作者：阿里西西 '日期：2007/7/13 '描述：取得使用者真實IP，對Proxy 位址仍然有效；傳回值：文本類型的IP地址 '樣本：<%=SelPlay("mov.swf","120","90")%> '***************

<% '****************************** '函數：GetUserTrueIP() '參數：無 '作者：阿里西西 '日期：2007/7/13 '描述：取得使用者真實IP，對Proxy 位址仍然有效；傳回值：文本類型的IP地址 '樣本：<%=GetUserTrueIP()%> '****************************** Function GetUserTrueIP()

<% '****************************** '函數：ShowServerVar(VarName) '參數：VarName，如提供變數名，則顯示該變數值，如果參數為空白則顯示所有變數值 '作者：阿里西西 '日期：2007/7/13 '描述：顯示所有的伺服器變數值，傳回值:對應值的字串 '樣本：<%=ShowServerVar(VarName)%> '******************************

<% '****************************** '函數：gen_key(digits) '參數：digits----要產生隨機數的位元 '作者：阿里西西 '日期：2007/7/13 '描述：產生由數字，大寫字母，小寫字母指定位元的隨機數；傳回值:要產生的指定倍數的隨機數 '樣本：<%=gen_key(8)%> '****************************** Function gen_key(digits) '定義並初始化數組

驗證Ip格式<% '****************************** '函數：CheckIp(paR_strIp) '參數：str 要檢測的字串 '作者：阿里西西 '日期：2007/7/13 '描述：驗證Ip格式，是返回１，否則返回０ '樣本：<%=CheckIp("219.45.23.11")%> '****************************** Function CheckIp(paR_strIp)

核心代碼：驗證輸入網址是否有效並可以訪問<% '****************************** '函數：UrlOK(strURL) '參數：strURL,待驗證的網址 '日期：2007/7/13 '描述：驗證輸入網址是否有效並可以訪問 '樣本：<%=UrlOK("http://www.jb51.net")%> '****************************** Function UrlOK(strURL) On Error Resume Next

<% '****************************** '函數：NewOrder(ArrStr) '參數：Rstr,以逗號做分隔的數字數組 '作者：阿里西西 '日期：2007/7/13 '描述：重排序數字數組 '樣本：<%=NewOrder("34,53,13,22,38,86,111,23,65")%> '****************************** Function NewOrder(ArrStr) For i =