高手推薦的比較有用的ASP函數集合

現在不寫asp了，這次我將我以前沉澱下的一些函數庫共用給大家,希望能給初學者啟示,給老手也有所協助吧，先謝謝大家支援!
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
StartTime=timer() '程式執行時間檢測
'###############################################################
'┌──VIBO───────────────────┐
'│ VIBO STUDIO 著作權 │
'└───────────────────────┘
' Author:Vibo
' Email:vibo_cn@hotmail.com
'----------------- Vibo ASP網站開發常用函數庫 ------------------
'OpenDB(vdata_url) -------------------- 開啟資料庫
'getIp() ------------------------------- 得到真實IP
'getIPAdress(sip)------------------------ 尋找ip對應的真真實位址
'IP2Num(sip) ---------------------------- 限制某段IP地址
'chkFrom() ------------------------------ 防站外提交設定
'getsys() ------------------------------- 作業系統檢測
'GetBrowser() --------------------------- 瀏覽器版本檢測
'GetSearcher() -------------------------- 識別搜尋引擎
'
'---------------------- 資料過濾 ↓----------------------------
'CheckStr(byVal ChkStr) ----------------- 檢查無效字元
'CheckSql() ----------------------------- 防止SQL注入
'UnCheckStr(Str)------------------------- 檢查非法sql命令
'Checkstr(Str) -------------------------- ASP最新SQL防注入過濾涵數
'HTMLEncode(reString) ------------------- 過濾轉換HTML代碼
'DateToStr(DateTime,ShowType) ----------- 日期轉換函式
'Date2Chinese(iDate) -------------------- 獲得ASP的中文日期文字
'lenStr(str) ---------------------------- 計算字串長度（位元組）
'CreateArr(str) ------------------------- 產生二維數組
'ShowRsArr(rsArr) ----------------------- 用表格顯示記錄集getrows產生的數組的表結構
'---------------------- 外接組件使用函數↓------------------------
'sendMail(to_Email,from_Email,from_Name,mail_Subject,mail_Body,mail_htmlBody) -----'Jmail組件 發送郵件
'-----------------------------------------系統檢測函數↓------------------------------------------
'IsValidUrl(url) ------------------------ 檢測網頁是否有效
'getHTMLPage(filename) ------------------ 擷取檔案內容
'CheckFile(FilePath) -------------------- 檢查某一檔案是否存在
'CheckDir(FolderPath) ------------------- 檢查某一目錄是否存在
'MakeNewsDir(foldername) ---------------- 根據指定名稱組建目錄
'CreateHTMLPage(filename,FileData,C_mode) 組建檔案
'CheckBadWord(byVal ChkStr) ------------- 過濾髒字
'###############################################################
Dim ipData_url
ipData_url="./Ip.mdb"
Response.Write("--------------用戶端資訊檢測------------"&"<br>")
Response.Write(getsys()&"<br>")
Response.Write(GetBrowser()&"<br>")
Response.Write(GetSearcher()&"<br>")
Response.Write("IP:"&getIp()&"<br>")
Response.Write("來源:"&(getIPAdress(GetIp()))&"<br>")
Response.Write("<br>")
Response.Write("--------------資料提交檢測--------------"&"<br>")
if not chkFrom then
Response.write("請不要從站外提交內容！"&"<br>")
Response.end
else
Response.write("本站提交內容！"&"<br><br>")
End if
function OpenDB(vdata_url)
'------------------------------開啟資料庫
'使用:Conn = OpenDB("data/data.mdb")
Dim vibo_Conn
Set vibo_Conn= Server.CreateObject("ADODB.Connection")
vibo_Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(vdata_url)
vibo_Conn.Open
OpenDB=vibo_Conn
End Function
function getIp()
'-----------------------得到真實IP
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
getIp=userip
End function