Hazır Script – Hazır Kod

Limitli karakter

Bir stringte sadece izin verile karakterlerin kullanilmasini saglar

<%

'date:01.07.2003

'nolovelust

'postmaster@smslust.net

'www.smslust.net

function NoTurkce(input)

dim gecerliKarakterler

gecerliKarakterler = " !,&#%()*+-./0123456789:;=?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`'abcdefghijklmnopqrstuvwxyz{|}~£$"""""

if len(input)>0 then

					for i=1 to len(input)

					harf = mid(input,i,1)

					if  not instr(gecerliKarakterler,harf)>0 then

					NoTurkceHata(harf)

					response.end

					Exit function

					end if

					next

else

                    NoTurkceHata("Bos deger")

					response.end

end if

NoTurkce=input

end function

%>

<%sub NoTurkceHata(hata)

<p align="center"><%=Server.HTMLEncode(hata)%><br/>illegal character!<br/> You can only use characters below:<br/>

<%=Server.HTMLEncode("!,#,%,(,),*,+,,,-,.,/,0,1,2,3,4,5,6,7,8,9,:,;,=,?,@,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,[,\,],^,_,`,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,{,|,},~,£")%>