Förbjuda tecken?

3 svar · 290 visningar · startad av ikolito 10 aug. 2001

ikolitoMedlem sedan okt. 200055 inlägg

Trådstart10 aug. 2001 23:00#1

Jag undrar hur man gör en function som ska söka igenom en sträng efter vissa tecken sen ska den kolla mot en annan sträng (som innehåller de tecken som skava tillåtna) och om det finns förbjudna tecken ska den gå till en sida annars till en annan.

emissionMedlem sedan dec. 19996 721 inlägg

11 aug. 2001 08:02#2

%
function teststring(instring,charsallowed)
  dim m_objRxp
  set m_objRxp=New RegExp
  m_objRxp.Pattern="[^" & charsallowed & "]"
  teststring=(not m_objRxp.Test(instring))
end function

if teststring("aaabcd","abc") then
	response.redirect "bapp.asp" 'inga förbjudna tecken
else
	response.redirect "bipp.asp" 'det fanns förbjudna tecken
end if	
%>

ikolitoMedlem sedan okt. 200055 inlägg

13 aug. 2001 00:06#3

jag tror inte att jag har RegExp för att alltidn är jag prövat såna script så blir det "internt serverfel" finns det någon annan metod?

emissionMedlem sedan dec. 19996 721 inlägg

13 aug. 2001 00:48#4

function teststring(instring,charsallowed)
teststring=true
for i=1 to len(instring)
if instr(charsallowed,mid(instring,i,1))<=0 then
teststring=false
exit function
end if
next
end function