asp karakter hatası

26-01-2008, 22:51:54

#1

aponal

Kimlik doğrulama veya yönetimden onay bekliyor.

TİRE EMLAK nasıl düzelticez

26-01-2008, 22:54:55

#2

AspCoder

Kimlik doğrulama veya yönetimden onay bekliyor.

Asp deki türkçe karakter sorunları için kullanabileceğin kodlar :

<%@ LANGUAGE=VBScript CODEPAGE=1254%>
<%
Response.Charset = "windows-1254"
Session.LCID = 1055
Session.CodePage = 1254
%>

Bunları deneyebilirsin.

26-01-2008, 23:01:29

#3

aponal

bu kodlarını nereye koyucam

26-01-2008, 23:04:52

#4

AspCoder

Hepsini koymayacan teker teker deneyebilirsin.

Sayfaların başına koy.

26-01-2008, 23:08:33

#5

aponal

sayfalarda bu var

<%@ LANGUAGE=VBScript CODEPAGE=1254%> değişeyimmi bu kalsınmı

26-01-2008, 23:17:14

#6

AspCoder

Onu kaldır.
Yazdığım kodları teker teker dene.

27-01-2008, 18:11:58

#7

aponal

ekledim olmadı ayarlarda bu var bunu kelimeleri düzelticek şekilde nasıl düzenleriz

Alıntı

<%
function duzenle(strInput)
dim strTemp

strTemp = split(strTemp," ",-1,1)
i=0
for each kelimem in strTemp
strTemp2 = split(kelimem,"<br>",-1,1)
k=0
for each kelime in strTemp2

if instr(1,kelime,"http://",1) > 0 then
strTemp2(k) = "<a href=""" & kelime & """ class=link target=""_blank"">" & kelime & "</a>"
elseif instr(1,kelime,"www.",1) > 0 then
strTemp2(k) = "<a href=""http://" & kelime & """ class=link target=""_blank"">" & kelime & "</a>"
elseif instr(1,kelime,".com",1) > 0 or instr(1,kelime,".net",1) > 0 or instr(1,kelime,".org",1) > 0 or instr(1,kelime,".edu",1) > 0 or instr(1,kelime,".tr",1) > 0 then
strTemp2(k) = "<a href=""mailto:" & kelime & """ class=link target=""_blank"">" & kelime & "</a>"
end if
k=k+1
next

kelimem = join(strTemp2,"<br>")
strTemp(i) = kelimem
i=i+1
next
strTemp = join(strTemp," ")
duzenle = strTemp
end Function
function giriskont(knt)
knt=replace(knt,"'", "", 1, -1, 1)
knt=replace(knt,"or", "", 1, -1, 1)
knt=replace(knt,"and", "", 1, -1, 1)
knt=replace(knt,"not", "", 1, -1, 1)
knt=replace(knt,"xor", "", 1, -1, 1)
knt=replace(knt,"eqv", "", 1, -1, 1)
knt=replace(knt,"imp", "", 1, -1, 1)
knt=replace(knt,"?", "", 1, -1, 1)
knt=replace(knt,"*", "", 1, -1, 1)
knt=replace(knt,"`","",1,-1,1)
knt=replace(knt,"=","",1,-1,1)
knt=replace(knt,"&","",1,-1,1)
knt=replace(knt,"%","",1,-1,1)
knt=replace(knt,"!","",1,-1,1)
knt=replace(knt,"#","",1,-1,1)
knt=replace(knt,"<","",1,-1,1)
knt=replace(knt,">","",1,-1,1)
knt=replace(knt,"*","",1,-1,1)
knt=replace(knt,"/","",1,-1,1)
knt=replace(knt,"\","",1,-1,1)
knt=replace(knt,"Chr(34)","",1,-1,1)
knt=replace(knt,"Chr(39)","",1,-1,1)
giriskont=knt
end function
function clear(str)
str=replace(str, "'", "[YES]", 1, -1, 1)
str=replace(str, "<", "[YES]", 1, -1, 1)
str=replace(str, ">", "[YES]", 1, -1, 1)
str=replace(str, "&", "[YES]", 1, -1, 1)
str=replace(str, "%", "[YES]", 1, -1, 1)
str=replace(str, "or", "[YES]", 1, -1, 1)
str=replace(str, "not", "[YES]", 1, -1, 1)
str=replace(str, "xor", "[YES]", 1, -1, 1)
str=replace(str, "imp", "[YES]", 1, -1, 1)
str=replace(str, "and", "[YES]", 1, -1, 1)
str=replace(str, "=", "[YES]", 1, -1, 1)
if instr(1,str,"[YES]",1) Then
response.redirect "default.asp"
end if
clear=str
end function
%>