揭秘asp常用函數(shù)庫大全_ASP教程

2024-05-04 11:04:22

字體：大中小

供稿：網(wǎng)友

推薦：詳解將ASP頁面改為偽靜態(tài)的簡單方法
目前很多網(wǎng)站都采用生成靜態(tài)頁的方法，原因是這樣訪問速度會得到提高(服務(wù)器端CPU利用率很低)，另外也容易被搜索引擎收錄，但是這帶來的一個問題就是需要足夠大的空間存放這些靜態(tài)頁面，如果你的空間不是很富裕，而又想有利于被搜索引擎收錄，其實可以采用偽

’----------------- FLYSO Blog ASP站點開發(fā)常用函數(shù)庫 ------------------
’OpenDB(vdata_url) -------------------- 打開數(shù)據(jù)庫
’getIp() ------------------------------- 得到真實IP
’getIPAdress(sip)------------------------ 查找ip對應(yīng)的真實地址
’IP2Num(sip) ---------------------------- 限制某段IP地址
’chkFrom() ------------------------------ 防站外提交設(shè)定
’getsys() ------------------------------- 操作系統(tǒng)檢測
’GetBrowser() --------------------------- 瀏覽器版本檢測
’GetSearcher() -------------------------- 識別搜索引擎
’
’---------------------- 數(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) ---------------------------- 計算字符串長度（字節(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)檢測函數(shù)↓------------------------------------------
’IsValidUrl(url) ------------------------ 檢測網(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("--------------客戶端信息檢測------------"&" ")
Response.Write(getsys()&" ")
Response.Write(GetBrowser()&" ")
Response.Write(GetSearcher()&" ")
Response.Write("IP:"&getIp()&" ")
Response.Write("來源:"&(getIPAdress(GetIp()))&" ")
Response.Write(" ")

Response.Write("--------------數(shù)據(jù)提交檢測--------------"&" ")
if not chkFrom then
 Response.write("請不要從站外提交內(nèi)容！"&" ")
 Response.end
else
 Response.write("本站提交內(nèi)容！"&" ")
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()
’-----------------------得到真實IP
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
getIp=userip
End function

Function getIPAdress(sip)
’---------------------查找ip對應(yīng)的真實地址
Dim iparr,iprs,country,city
If sip="127.0.0.1" then sip= "192.168.0.1"
iparr=split(sip,".")
sip=cint(iparr(0))*256*256*256+cint(iparr(1))*256*256+cint(iparr(2))*256+cint(iparr(3))-1
Dim vibo_ipconn_STRING
vibo_ipconn_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(ipData_url)
Set iprs = Server.CreateObject("ADODB.Recordset")
iprs.ActiveConnection = vibo_ipconn_STRING
iprs.Source = "Select Top 1 city, country FROM address Where ip1 <=" & sip & " and " & sip & "<=ip2"
iprs.CursorType = 0
iprs.CursorLocation = 2
iprs.LockType = 1
iprs.Open()

If iprs.bof and iprs.eof then
 country="未知地區(qū)"
 city=""
Else
 country=iprs.Fields.Item("country").Value
 city=iprs.Fields.Item("city").Value
End If
getIPAdress=country&city
iprs.Close()
Set iprs = Nothing
End Function

分享：解析有關(guān)eWebEditor網(wǎng)頁編輯器的漏洞
首先介紹編輯器的一些默認(rèn)特征：默認(rèn)登陸admin_login.asp 默認(rèn)數(shù)據(jù)庫db/ewebeditor.mdb 默認(rèn)帳號admin密碼admin或admin888 在baidu/google搜索inurl:ewebeditor 幾萬的站起碼有幾千個是具有默認(rèn)特征的，那么試一下默認(rèn)后臺 http://www.xxx.com.cn/admin/eweb