Objekt krävs.: 'objRegExp'

5 svar · 240 visningar · startad av Peeer 3 maj 2002

PeeerMedlem sedan mars 20025 907 inlägg

Trådstart3 maj 2002 13:30#1

Får följande felmedelande:

Körningsfel i Microsoft VBScript fel '800a01a8'
Objekt krävs.: 'objRegExp'
/asp/gastbok.asp, rad 51

När jag använder nedstående funktion!

Function radbryt(strText)
strText = Server.HTMLEncode(strText)
objRegExp.Pattern = "\<(HR)\>"       [b]<----- detta är rad 51[/b]
strText = objRegExp.Replace(strText,"<hr>") 
smiley = strText

anropas av nedstående kod:

text = radbryt(rs("text"))

Det jag försöker göra är en funktion som rensar bort all skadlig kod, men tillåter <hr> taggen. Hur gör jag??

@ndersMedlem sedan juni 200032 967 inlägg

3 maj 2002 13:34#2

Du har inte skapat ditt RegExp-objekt.

Set objRegExp = new RegExp

Mvh,

LarsGMedlem sedan dec. 200012 464 inlägg

3 maj 2002 13:34#3

Function radbryt(strText)
strText = Server.HTMLEncode(strText)
set objRegExp = new regexp '<--
objRegExp.Pattern = "\<(HR)\>"

PeeerMedlem sedan mars 20025 907 inlägg

3 maj 2002 13:38#4

Trevligt med snabba svar. Synd bara att det inte blir som jag vill. Koden funkar inte. Även <hr> taggen "HTMLEncodas" dvs. den skrivs ut som text i webbläsarfönstret!
Mer hjälp tack!

PeeerMedlem sedan mars 20025 907 inlägg

3 maj 2002 13:48#5

Löste det själv!

Function radbryt(strText)
strText = Server.HTMLEncode(strText)
strText = Replace(strText,"<hr>","<hr>")
radbryt = strText

voigtann1Medlem sedan juni 20019 519 inlägg

3 maj 2002 21:25#6

Kan förklara om någon nu vill veta det:
När HTMLEncode startar så översätter alla < > taggar till just ,"< och &gt

Därför fungede det inte.