selim topaloÄŸlu

bir programcının günlüğü

ASP ile sayıyı virgülle ayırma

  • Kategori : Asp
PerÅŸembe
24 Temmuz 2008

Uzun zaman sonra, daha önce kullanmadığım birşeye ihtiyacım oldu... Uzun bir sayıyı 3 lü haneler şeklinde virgülle ayırmak. PHP sinide yayınlarım boş zamanımda.

Buyrun fonksiyona,

ASP:
  1. Function Virgulle(Veri)
  2.     Veri = Cstr(StrReverse(Veri))
  3.     For i = 1 To Len(Veri)
  4.         GeciciVeri = Mid(Veri,i,1) & GeciciVeri
  5.         If i Mod 3 = 0 And Not i = Len(Veri) Then GeciciVeri = "," & GeciciVeri
  6.     Next
  7.     Virgulle = GeciciVeri
  8. End Function

Â

301 Yönlendirmesi

Cuma
11 Ocak 2008

Domain değişikliği gibi durumlarda Arama Motoru Botlarının sitenizi takip etmesi için index koyup link mi veriyorsunuz? Yoksa direk Redirect mi yapıyorsunuz...

301 Moved Permanently durum kodunu kullanarak google ın işini kolaylaştırabilirsiniz. SanalCafe.SC den SanalCafe.com a geçiş esnasında çok yararı oldu...

Aşağıda bir çok dil için 301 yönlendirmesi kodunu yayınlıyorum.

ASP

ASP:
  1. Response.Status="301 Moved Permanently"   
  2. Response.AddHeader "Location","http://selim.topaloglu.net/"

PHP

PHP:
  1. header('HTTP/1.1 301 Moved Permanently');   
  2. header('Location: http://selim.topaloglu.net/');

ASP.net

C#:
  1. <SCRIPT runat="server">   
  2. private void Page_Load(object sender, System.EventArgs e)   
  3. {   
  4. Response.Status = "301 Moved Permanently";   
  5. Response.AddHeader("Location","http://www.davidwalsh.name");   
  6. }   
  7. </SCRIPT>

Java JSP

JAVA:
  1. response.setStatus(301);   
  2. response.setHeader("Location", "http://selim.topaloglu.net/");   
  3. response.setHeader("Connection", "close");

.htaccess

CODE:
  1. redirect 301 / http://selim.topaloglu.net/

Rastgele Veri

  • Kategori : SQL
PerÅŸembe
3 Ocak 2008

Bugün Giray ın Access rastgele veri sql ine ihtiyacı olunca daha önceden kullandığım kodu verdim kendisine. Farklı veritabanları için farklı SQL kodlarını aşağıdada yayınlıyorum.

ASP + ACCESS DATABASE

ASP:
  1. Randomize()
  2. intRandomNumber = Int (1000*Rnd)+1
  3.  
  4. Set rsVeri = dbConn.Execute("Select Top 5 Rnd(" & -1 * (intRandomNumber) & "*VeriID),* from tblVeriler order by 1")

SQL SERVER

SQL:
  1. SELECT Top 5 * FROM tblVeriler ORDER BY NewID()

mySQL

SQL:
  1. SELECT * FROM tblVeriler ORDER BY RAND() LIMIT 5

Aşağıdaki sorgu daha performanslı şekilde çalışıyor...

SQL:
  1. SELECT tblVeriler.* FROM (SELECT VeriID FROM tblVeriler ORDER BY RAND() LIMIT 5) AS Rastgele JOIN tblVeriler ON tblVeriler.VeriID = Rastgele.VeriID

Son Yazılar


Meta


Son Yorumlar