Empfohlen: ASP-Komponenten-freie Paging-Implementierungsideen und Code Die komponentfreie Pagination ist unglaublich. Sie werden es wissen, indem Sie den Effekt dieses Artikels betrachten. Lassen Sie uns die folgende spezifische Implementierung mit Ihnen teilen. Interessierte Freunde können sich darauf beziehen.
Titel: ASP Ewebeditor V3.8 Spaltenverzeichnis Schwachstellen (andere Versionen sind Tests)
Sicherheitsdatei: ASP/Browse.asp
Verwundbarkeit tritt auf:
Sub initparam ()
sType = UCase(Trim(Request.QueryString(type)))sStyleName = Trim(Request.QueryString(style))sCusDir = Trim(Request.QueryString(cusdir))Dim i, aStyleConfig, bValidStylebValidStyle = FalseFor i = 1 To Ubound(aStyle)aStyleConfig = Split(aStyle(i), |||)If Lcase(sStyleName) = Lcase(aStyleConfig(0)) ThenbValidStyle = TrueExit ForEnd IfNextIf bValidStyle = False ThenOutScript(alert('Invalid Style.'))End IfsBaseUrl = aStyleConfig(19)nAllowBrowse = CLng(aStyleConfig(43))nCusDirFlag = Clng (AstyLeconfig (61)) Wenn nallowbrowse <> 1 thenoutscript (alert ('Browser nicht zulassen!') Enden, wenn ncusdirflag <> 1 thencusdir = elsescusdir = ersetzen (scusdir, /) wenn links (scusdir, 1) = links (scusdir, 1). Oder rechts (scusdir, 1) =. Oder instr (scusdir, ./)> 0 oder instr (scusdir, /.)> 0 oder instr (scusdir, //)> 0 thenscusdir = elseif rechts (scusdir, 1) <> /thenscusdir = scusdir & /end ifend ifsuploaddir = asytylekonfig (3) (3) (Susploaddir, 1), 1), (Susploaddir, 1), 1), (Susploaddir, 1). ../ & suploaddirend ifSelect case scusdirselect case stypecase fileAlyext = case MediaSlowext = rm | mp3 | wav | midi | ra | avi | mpg | mpeg | asf | asx | wma | movcase flasloyext = swfcase ElSeSaltext = bmp | jpg | jpeg | png | gifends selectscurdir. Nehmen Sie Dir = ../'2 an. Nehmen Sie Dir = ... // '3 an. Nehmen Sie an, Dir = ... /// Sdir = Ersetzen (SDIR,/,/) 'Filter 1SDIR = Ersetzen (SDIR, ../,)' Filter 2'1. Es wird hier filtriert sdir = ersetzen (sdir, ./) 'filter 3'2 wird auch hier angetrieben' 3 ist da .../. Interessanter! Es scheint, dass viele CMs so gefiltert werden. [ /color] wenn sdir <> thenfif checkValiddir (server.mappath (suploaddir & sdir)) = thenscurrdir = suploaddir & sdir & /elSesdir = end Ifend Ifend SubAktien: So erhalten Sie eine echte IP -Adresse von ASP Verwenden Sie Request.Servervariables (remote_addr) in ASP, um die IP -Adresse des Clients zu erhalten. Wenn der Client jedoch einen Proxy -Server verwendet, um darauf zuzugreifen, wird die IP -Adresse des Proxy -Servers erhalten, nicht die reale Client -IP -Adresse. Um die reale IP -Adresse des Clients über den Proxy -Server zu erhalten, müssen Sie Request.Servervariables (h verwenden