Programalama > ASP

Etiketler: limitli, karakter

Ort. 0
Puan ver:
<%
'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,{,|,},~,£")%>
<%end sub%>


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2018 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.