現(xiàn)在不寫(xiě)asp了，這次我將我以前沉淀下的一些函數(shù)庫(kù)共享給大家,希望能給初學(xué)者啟示,給老手也有所幫助吧，先謝謝大家支持!
%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
%
StartTime=timer() '程序執(zhí)行時(shí)間檢測(cè)
'###############################################################
'┌──VIBO───────────────────┐
'│             VIBO STUDIO 版權(quán)所有             │
'└───────────────────────┘
' Author:Vibo
' Email:vibo_cn@hotmail.com
'----------------- Vibo ASP站點(diǎn)開(kāi)發(fā)常用函數(shù)庫(kù) ------------------
'OpenDB(vdata_url)   -------------------- 打開(kāi)數(shù)據(jù)庫(kù)
'getIp()  ------------------------------- 得到真實(shí)IP
'getIPAdress(sip)------------------------ 查找ip對(duì)應(yīng)的真實(shí)地址
'IP2Num(sip) ---------------------------- 限制某段IP地址
'chkFrom() ------------------------------ 防站外提交設(shè)定
'getsys() ------------------------------- 操作系統(tǒng)檢測(cè)
'GetBrowser() --------------------------- 瀏覽器版本檢測(cè)
'GetSearcher() -------------------------- 識(shí)別搜索引擎
'
'---------------------- 數(shù)據(jù)過(guò)濾 ↓----------------------------
'CheckStr(byVal ChkStr) ----------------- 檢查無(wú)效字符
'CheckSql() ----------------------------- 防止SQL注入
'UnCheckStr(Str)------------------------- 檢查非法sql命令
'Checkstr(Str) -------------------------- ASP最新SQL防注入過(guò)濾涵數(shù)
'HTMLEncode(reString) ------------------- 過(guò)濾轉(zhuǎn)換HTML代碼
'DateToStr(DateTime,ShowType) ----------- 日期轉(zhuǎn)換函數(shù)
'Date2Chinese(iDate) -------------------- 獲得ASP的中文日期字符串
'lenStr(str) ---------------------------- 計(jì)算字符串長(zhǎng)度（字節(jié)）
'CreateArr(str) ------------------------- 生成二維數(shù)組
'ShowRsArr(rsArr) ----------------------- 用表格顯示記錄集getrows生成的數(shù)組的表結(jié)構(gòu)
'---------------------- 外接組件使用函數(shù)↓------------------------
'sendMail(to_Email,from_Email,from_Name,mail_Subject,mail_Body,mail_htmlBody) -----'Jmail組件發(fā)送郵件
'-----------------------------------------系統(tǒng)檢測(cè)函數(shù)↓------------------------------------------
'IsValidUrl(url) ------------------------ 檢測(cè)網(wǎng)頁(yè)是否有效
'getHTMLPage(filename) ------------------ 獲取文件內(nèi)容
'CheckFile(FilePath) -------------------- 檢查某一文件是否存在
'CheckDir(FolderPath) ------------------- 檢查某一目錄是否存在
'MakeNewsDir(foldername) ---------------- 根據(jù)指定名稱(chēng)生成目錄
'CreateHTMLPage(filename,FileData,C_mode) 生成文件
'CheckBadWord(byVal ChkStr) ------------- 過(guò)濾臟字
'###############################################################
Dim ipData_url
ipData_url="./Ip.mdb"
Response.Write("--------------客戶(hù)端信息檢測(cè)------------""br>")
Response.Write(getsys()"br>")
Response.Write(GetBrowser()"br>")
Response.Write(GetSearcher()"br>")
Response.Write("IP:"getIp()"br>")
Response.Write("來(lái)源:"(getIPAdress(GetIp()))"br>")
Response.Write("br>")
Response.Write("--------------數(shù)據(jù)提交檢測(cè)--------------""br>")
if not chkFrom then
    Response.write("請(qǐng)不要從站外提交內(nèi)容！""br>")
    Response.end
else
    Response.write("本站提交內(nèi)容！""br>br>")
End if
function OpenDB(vdata_url)
'------------------------------打開(kāi)數(shù)據(jù)庫(kù)
'使用: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()
'-----------------------得到真實(shí)IP
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
getIp=userip
End function

標(biāo)簽：衢州棗莊衡水蚌埠萍鄉(xiāng) 大理廣元江蘇

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《高手推薦的比較有用的ASP函數(shù)集合》，本文關(guān)鍵詞；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。