09 Eylül 2010 Perşembe

Kategoriler

Yazar'dan mesaj:

<%response.write "Asp Ögreniyorum"%>

Asp ögrenmek veya gelistirmek isteyenlerin sayfasi

Tavsiye ettigim yazilar

Asp ile performans

Son yazılar

Rasgele yazılar

Son yorumlar

Hakan Yilmaz: ayıp ayıp sağdan soldan alıp siteye kendiniz yapmış gibi kontroletmeden koyuyorsunuz bi bakın çalışmıyor. hemen bütüm forumlarda var ama çalışmıyor boşuna uğraşmayın
fatih: teşekkür ederim işime yaradı :)
kubilay: @k şu şekilde kullanıyoruz. <% degisken= deneme yanılma response.write duzelt(degisken) %> veya <%=duzelt(degisken)%>
k: nasıl kullancaz bunu yani response.write asdsdsd>>><<<<qweqwe yazısında >< karakterlerini yazmaması için
davetiye: çok teşekkürler işe yaradı

Randevular

Randevum boş

Asp ile performanslı kodlar

26.01.2010 20:17:00 | 12

Programlamada en önemli konulardan biri de performanstır, öyle siteler varki hitini sayaçlar hesaplayamaz :)

100k hitiniz olduğunda siteniz 3 serverda çalışabiliyorsa, o siteyi çöpe atın. Bizim amacımız 100k tekilde en fazla vps`e geçmektir. O da vps `i tek siteyle kullanarak değil birkaç siteyle.

Kısa bilgiden ve vaadlerden sonra makalemize geçiyoruz...

yorumlar

Asp Replace

26.01.2010 15:02:00 | 12

<%
Function duzelt(ByVal strEntry)
strEntry = Replace(strEntry, "<", "")
strEntry = Replace(strEntry, ">", "")
strEntry = Replace(strEntry, " ", "-")
strEntry = Replace(strEntry, "", "_")
strEntry = Replace(strEntry, "/", "")
strEntry = lcase(Replace(strEntry, "s", "s", 1, -1, 1))
strEntry = lcase(Replace(strEntry, "ç", "c", 1, -1, 1))
strEntry = lcase(Replace(strEntry, "i", "i", 1, -1, 1))
strEntry = lcase(Replace(strEntry, "I", "i", 1, -1, 1))
strEntry = lcase(Replace(strEntry, "ö", "o", 1, -1, 1))
strEntry = lcase(Replace(strEntry, "g", "g", 1, -1, 1))
strEntry = lcase(Replace(strEntry, "ü", "u", 1, -1, 1))
strEntry = Replace(strEntry, ":", "")
strEntry = Replace(strEntry, """", "")
strEntry = Replace(strEntry, "!", "")
strEntry = Replace(strEntry, "?", "")
strEntry = Replace(strEntry, "`", "")
strEntry = Replace(strEntry, "`", "")
strEntry = Replace(strEntry, ".", "")
strEntry = Replace(strEntry, "(", "")
strEntry = Replace(strEntry, ")", "")
strEntry = Replace(strEntry, "[", "")
strEntry = Replace(strEntry, "]", "")
strEntry = Replace(strEntry, "&", "")
strEntry = Replace(strEntry, "`", "")
strEntry = Replace(strEntry, "$", "s")
duzelt = strEntry
End Function
%>

yorumlar

ip adresi Gösterme

26.01.2010 14:58:00 | 12

sayfanizda ziyaretçinin ip adresini göstermeyi isteyenlere.

yorumlar

Asp Türkçe Karakter

26.01.2010 14:57:00 | 12

Sayfanizin basina asagidaki kodu eklemeniz yeterli

<% @ Language = VBScript CodePage=1254
Session.CodePage = 1254
Session.LCID = 1055
Response.Charset="ISO-8859-9"
Response.Charset="Windows-1254"
response.ContentType="text/HTML"
%>

yorumlar