推薦：詳解將ASP頁面改為偽靜態的簡單方法目前很多網站都採用生成靜態頁的方法，原因是這樣訪問速度會得到提高(服務器端CPU利用率很低)，另外也容易被搜索引擎收錄，但是這帶來的一個問題就是需要足夠大的空間存放這些靜態頁面，如果你的空間不是很富裕，而又想有利於被搜索引擎收錄，其實可以採用偽
'-----------------FLYSOBlogASP站點開發常用函數庫------------------'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)生成文件
'CheckBadWord(byValChkStr)-------------過濾髒字
'###############################################################
DimipData_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>)
ifnotchkFromthen
Response.write(請不要從站外提交內容！&<br>)
Response.end
else
Response.write(本站提交內容！&<br><br>)
Endif
functionOpenDB(vdata_url)
'------------------------------打開數據庫
'使用:Conn=OpenDB(data/data.mdb)
Dimvibo_Conn
Setvibo_Conn=Server.CreateObject(ADODB.Connection)
vibo_Conn.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=&Server.MapPath(vdata_url)
vibo_Conn.Open
OpenDB=vibo_Conn
EndFunction
functiongetIp()
'-----------------------得到真實IP
userip=Request.ServerVariables(HTTP_X_FORWARDED_FOR)
Ifuserip=Thenuserip=Request.ServerVariables(REMOTE_ADDR)
getIp=userip
Endfunction
FunctiongetIPAdress(sip)
'---------------------查找ip對應的真實地址
Dimiparr,iprs,country,city
Ifsip=127.0.0.1thensip=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
Dimvibo_ipconn_STRING
vibo_ipconn_STRING=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=&Server.MapPath(ipData_url)
Setiprs=Server.CreateObject(ADODB.Recordset)
iprs.ActiveConnection=vibo_ipconn_STRING
iprs.Source=SelectTop1city,countryFROMaddressWhereip1<=&sip&and&sip&<=ip2
iprs.CursorType=0
iprs.CursorLocation=2
iprs.LockType=1
iprs.Open()
Ifiprs.bofandiprs.eofthen
country=未知地區
city=
Else
country=iprs.Fields.Item(country).Value
city=iprs.Fields.Item(city).Value
EndIf
getIPAdress=country&city
iprs.Close()
Setiprs=Nothing
EndFunction
分享：解析有關eWebEditor網頁編輯器的漏洞首先介紹編輯器的一些默認特徵： 默認登陸admin_login.asp 默認數據庫db/ewebeditor.mdb 默認帳號admin密碼admin或admin888 在baidu/google搜索inurl:ewebeditor 幾萬的站起碼有幾千個是具有默認特徵的，那麼試一下默認後台http://www.xxx.com.cn/admin/eweb
共6頁上一頁123456下一頁