<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
<%
StartTime=timer()'程序執行時間檢測
'###############################################################
'┌──VIBO───────────────────┐
'│VIBOSTUDIO版權所有│
'└───────────────────────┘
'Author:Vibo
'Email:[email protected]
'-----------------ViboASP站點開發常用函數庫------------------
'OpenDB(vdata_url)--------------------打開數據庫
'getIp()-------------------------------得到真實IP
'getIPAdress(sip)------------------------查找ip對應的真實地址
'IP2Num(sip)----------------------------限制某段IP地址
'chkFrom()------------------------------防站外提交設定
'getsys()-------------------------------操作系統檢測
'GetBrowser()---------------------------瀏覽器版本檢測
'GetSearcher()--------------------------識別搜索引擎
'
'----------------------數據過濾↓----------------------------
'CheckStr(byValChkStr)-----------------檢查無效字符
'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)生成文件