| Språk : |
|
| Encyclopedia gemenskap |Encyclopedia Svar |Submit fråga |Ordförråd Kunskap |Överför kunskap |
Göm sida |
|
Dolda sidor (dolda sida) En SEO fusk innebär några sidor med program eller skript för att upptäcka en sökmotor för att åtkomst eller vanliga användare. Om sökmotorn returnerar webbsidor optimerade version. Om besöka vanliga människor, är en annan version avkastningen. Detta fusk sätt kan användare normalt inte hittas. Eftersom när din webbläsare för att se denna sida, antingen på sidan eller i HTML-källfilen, du får sökmotorerna ser redan en annan version. Detekteringsmetod är att titta på den här webbsidan ögonblicksbilder. Användning och code-sharing Den här sidan är dold fuska svart hatt SEO metoder är mer komplexa, behovet av att ha en stark svart hatt seoer programmeringsförmåga, ursprungligen ville jag skriva uppsättningar av code-sharing för alla, men i slutändan inte testa framgång, är följande sträng av kod min online hitta, om rätten till arbete, försök det själv, om du är en programmeringsexpert, jag hoppas du kan ge oss en sammanfattning av den rätta koden och IP-databasen, då jag kommer att publicera det lätt att ladda ner och visa.<% Funktionen cip (SIP) spets = CSTR (SIP) sip1 = vänster (spets, cint (instr (spets, ".") -1)) spets = mitt (spets, Cint (instr (spets, ".") 1)) sip2 = vänster (spets, cint (instr (spets, ".") -1)) spets = mitt (spets, Cint (instr (spets, ".") 1)) sip3 = vänster (spets, cint (instr (spets, ".") -1)) sip4 = mid (spets, Cint (instr (spets, ".") 1)) CIP = cint (sip1) * 256 * 256 * 256 cint (sip2) * 256 * 256 cint (sip3) * 256 cint (sip4) änden funktion ipconnpath = "count / ip.mdb" vip = Request.ServerVariables ("REMOTE_ADDR") %> <% uppsättning connip = Server.CreateObject ("ADODB.Connection") DBPath = Server.MapPath (ipconnpath) connip.Open "driver = {Microsoft Access Driver (* mdb.)}; DBQ =" & DBPath ipnow = cip (VIP) Ställ rsip = Server.CreateObject ("ADODB.Recordset") sql = "SELECT * FROM ip där (onip <=" & ipnow & "och offip> =" & ipnow & ")" rsip.Open SQL, connip, 1,1 vwhere = vänster (rsip ("addj"), 2) rsip.Close ställa rsip = ingenting connip.Close set connip = inget%> |
| Användare Omdöme |
|
Inga kommentarer |
