Recommended: Detailed explanation of the simple way to change ASP pages to pseudo-static Currently, many websites use the method of generating static pages. The reason is that the access speed will be improved (the server-side CPU utilization rate is very low), and it is also easy to be included by search engines. However, one problem this brings is that you need enough space to store these static pages. If your space is not very rich and you want to be included by search engines, you can actually use pseudo-use
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'OpenDB(vdata_url)---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'getIp()----------------------------------Get the real IP
'getIPAdress(sip)----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'IP2Num(sip)-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'chkFrom()-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'getsys() ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'GetBrowser() -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'GetSearcher()------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'CheckStr(byValChkStr)-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'CheckSql()------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'UnCheckStr(Str)----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Checkstr(Str)------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'HTMLEncode(reString)---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'DateToStr(DateTime,ShowType)----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Date2Chinese(iDate)----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'lenStr(str)--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'CreateArr(str)-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'ShowRsArr(rsArr)--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'sendMail(to_Email,from_Email,from_Name,mail_Subject,mail_Body,mail_htmlBody)----- 'Jmail component sends mail
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'IsValidUrl(url)-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'getHTMLPage(filename)---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'CheckFile(FilePath)--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'CheckDir(FolderPath)-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'MakeNewsDir(foldername)--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'CreateHTMLPage(filename,FileData,C_mode) generates file
'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(Source:&(getIPAdress(GetIp()))&<br>)
Response.Write(<br>)
Response.Write(---------------------------------------&<br>)
ifnotchkFromthen
Response.write (Please do not submit content from outside the site! &<br>)
Response.end
else
Response.write(Content submitted by this site! &<br><br>)
Endif
functionOpenDB(vdata_url)
'-----------------------------------------------------------------------------------------------------------------------------
'Use: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()
'-------------------------Get the real IP
userip=Request.ServerVariables(HTTP_X_FORWARDED_FOR)
Ifuserip=Thenuserip=Request.ServerVariables(REMOTE_ADDR)
getIp=userip
Endfunction
FunctiongetIPAdress(sip)
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
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()
Ifaprs.bofandiprs.eofthen
country=Unknown region
city=
Else
country=iprs.Fields.Item(country).Value
city=iprs.Fields.Item(city).Value
EndIf
getIPAdress=country&city
iprs.Close()
Setiprs=Nothing
EndFunction
Share: parse vulnerabilities regarding eWebEditor web editor First, some default characteristics of the editor are introduced: default login admin_login.asp default database db/ewewebeditor.mdb default account admin password admin or admin888 search inurl:ewebeditor at least thousands of sites with default characteristics. So try the default background http://www.xxx.com.cn/admin/eweb
6 pages in total Previous page 123456Next page