高手推薦的比較有用的ASP函數(shù)集合
更新時(shí)間:2007年03月25日 00:00:00 作者:
現(xiàn)在不寫asp了,這次我將我以前沉淀下的一些函數(shù)庫共享給大家,希望能給初學(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)開發(fā)常用函數(shù)庫 ------------------
'OpenDB(vdata_url) -------------------- 打開數(shù)據(jù)庫
'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ù)過濾 ↓----------------------------
'CheckStr(byVal ChkStr) ----------------- 檢查無效字符
'CheckSql() ----------------------------- 防止SQL注入
'UnCheckStr(Str)------------------------- 檢查非法sql命令
'Checkstr(Str) -------------------------- ASP最新SQL防注入過濾涵數(shù)
'HTMLEncode(reString) ------------------- 過濾轉(zhuǎn)換HTML代碼
'DateToStr(DateTime,ShowType) ----------- 日期轉(zhuǎn)換函數(shù)
'Date2Chinese(iDate) -------------------- 獲得ASP的中文日期字符串
'lenStr(str) ---------------------------- 計(jì)算字符串長度(字節(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)頁是否有效
'getHTMLPage(filename) ------------------ 獲取文件內(nèi)容
'CheckFile(FilePath) -------------------- 檢查某一文件是否存在
'CheckDir(FolderPath) ------------------- 檢查某一目錄是否存在
'MakeNewsDir(foldername) ---------------- 根據(jù)指定名稱生成目錄
'CreateHTMLPage(filename,FileData,C_mode) 生成文件
'CheckBadWord(byVal ChkStr) ------------- 過濾臟字
'###############################################################
Dim ipData_url
ipData_url="./Ip.mdb"
Response.Write("--------------客戶端信息檢測(cè)------------"&"<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("--------------數(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)
'------------------------------打開數(shù)據(jù)庫
'使用: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
<%@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)開發(fā)常用函數(shù)庫 ------------------
'OpenDB(vdata_url) -------------------- 打開數(shù)據(jù)庫
'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ù)過濾 ↓----------------------------
'CheckStr(byVal ChkStr) ----------------- 檢查無效字符
'CheckSql() ----------------------------- 防止SQL注入
'UnCheckStr(Str)------------------------- 檢查非法sql命令
'Checkstr(Str) -------------------------- ASP最新SQL防注入過濾涵數(shù)
'HTMLEncode(reString) ------------------- 過濾轉(zhuǎn)換HTML代碼
'DateToStr(DateTime,ShowType) ----------- 日期轉(zhuǎn)換函數(shù)
'Date2Chinese(iDate) -------------------- 獲得ASP的中文日期字符串
'lenStr(str) ---------------------------- 計(jì)算字符串長度(字節(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)頁是否有效
'getHTMLPage(filename) ------------------ 獲取文件內(nèi)容
'CheckFile(FilePath) -------------------- 檢查某一文件是否存在
'CheckDir(FolderPath) ------------------- 檢查某一目錄是否存在
'MakeNewsDir(foldername) ---------------- 根據(jù)指定名稱生成目錄
'CreateHTMLPage(filename,FileData,C_mode) 生成文件
'CheckBadWord(byVal ChkStr) ------------- 過濾臟字
'###############################################################
Dim ipData_url
ipData_url="./Ip.mdb"
Response.Write("--------------客戶端信息檢測(cè)------------"&"<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("--------------數(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)
'------------------------------打開數(shù)據(jù)庫
'使用: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
相關(guān)文章
檢查上傳圖片是否合法的函數(shù),木馬改后綴名、圖片加惡意代碼均逃不過
很多ASP程序檢查上傳圖片是否合法往往只去檢查文件的后綴,這樣有一個(gè)很大的安全隱患,就是如果把ASP文件的后綴名改成.jpg或者.gif上傳,或者圖片里加入惡意代碼再上傳,那也會(huì)被程序認(rèn)為是圖片文件而照傳不誤。假如不懷好意的人上傳個(gè)木馬文件進(jìn)去,雖然是后綴為jpg也許無法直接運(yùn)行,但確確實(shí)實(shí)給服務(wù)器帶來了很大的安全隱患。2008-03-03ASP + Serv-u 實(shí)現(xiàn)FTP的代碼
ASP + Serv-u 實(shí)現(xiàn)FTP的代碼...2006-10-10ASP中實(shí)現(xiàn)執(zhí)行定時(shí)任務(wù)的方法
這篇文章主要介紹了ASP中實(shí)現(xiàn)執(zhí)行定時(shí)任務(wù)的方法,本文使用WSH (Windows Scripting Host) 的實(shí)現(xiàn)定時(shí)任務(wù),需要的朋友可以參考下2014-07-07在JScript中使用緩存技術(shù)的實(shí)際代碼
在編寫ASP程序時(shí),通常為了提高ASP程序的運(yùn)行效率及減少對(duì)數(shù)據(jù)庫的連接和查詢,會(huì)使用緩存技術(shù)來緩存一些需要從數(shù)據(jù)庫讀取的數(shù)據(jù)。而在ASP中實(shí)現(xiàn)緩存的方法常用的就是使用Application對(duì)象。在編寫ASP程序時(shí),我們有兩種語言可以選擇,分別是VBScript和JScript。2008-05-05插件下載┊垃圾引用防御補(bǔ)?。啃r(shí)自動(dòng)換KEY,支持靜態(tài)頁面)
插件下載┊垃圾引用防御補(bǔ)丁(每小時(shí)自動(dòng)換KEY,支持靜態(tài)頁面)...2007-02-02asp實(shí)現(xiàn)excel中的數(shù)據(jù)導(dǎo)入數(shù)據(jù)庫
本文給大家匯總介紹了使用asp實(shí)現(xiàn)將Excel中數(shù)據(jù)導(dǎo)入到數(shù)據(jù)庫中的方法,需要的朋友可以參考一下2015-09-09