Genellikle ilişkili tablolar, ilişkili verilerle çalışırken kısa veritabanı bağlantıları yapıyorum. Belli sorguya ait gelen verilerin sadece Unique ID lerine ihtiyacım oluyor. Bu verileri başka bir yerde kullanacağım ama bir sürü satır kod yazmam gerekiyor.

Önce veritabanı bağlantısı yap, sonra döngüye sok, sonra bu ID leri yanyana koyup virgülle ayır. PHP değil ki bu tek satırla tabloya bağlanıp, ikinci satırlada fetch_array() yapıp diziye alabilesin?

ASP RecordSet te Getrows metodu ile bunları bir arraye atayabiliyorsunuz. Fakat bu array 2 boyutlu olduğu için Join() ile birleştirip tek string haline getiremiyorsunuz. Çünkü Join() fonksiyonu multi-dimensional arrayleri kabul etmiyor. Yani tek tek string birleştirme yapmanız gerekiyor.

İşinize yarayabilecek fonksiyonum;

<%
Function VeriSorgu(Query,dbConnection)
Set rsSorgu = Server.CreateObject("ADODB.RecordSet")
 rsSorgu.Open Query,dbConnection,1,3
 VeriSorgu = "-1"
 If Not rsSorgu.Eof Then
  SorguDizi = rsSorgu.Getrows
  For SorguLoop = 0 To UBound(SorguDizi,2)
   VeriSorgu = VeriSorgu & "," & SorguDizi(0,SorguLoop)
  Next
 End If
 rsSorgu.Close : Set rsSorgu = Nothing
End Function
%>

Fonksiyona değer olarak Query ve Database bağlantınızın adını veriyorsunuz. Çıktı olarak
-1,15,266,26126 olarak bir veri döndürüyor. Fakat verdiğiniz sorguda ID alanı gelen ilk değer olmalı…

Kullanım örnekleri

<%
AktifYazilar = VeriSorgu("Select VeriID from tblYazilar Where Durum=1",dbConn)
%>

Bu sayede AktifYazilar string inde aktif yazıların ID leri olacak. String in başında -1 değeri var, bunu isterseniz replace edebilirsiniz.

SQL Sorgularında in() fonksiyonu kullandığım için bu haliyle kullanıyorum, böylece geri dönen değer boş olduğu zamanlar SQL Sorgusunda hatayla karşılaşmıyorum.

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,

<%
Function Virgulle(Veri)
	Veri = Cstr(StrReverse(Veri))
	For i = 1 To Len(Veri)
		GeciciVeri = Mid(Veri,i,1) & GeciciVeri
		If i Mod 3 = 0 And Not i = Len(Veri) Then GeciciVeri = "," & GeciciVeri
	Next
	Virgulle = GeciciVeri
End Function
%>

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]Response.Status=”301 Moved Permanently”
Response.AddHeader “Location”,”http://selim.topaloglu.net/”[/asp]

PHP
[php]header(’HTTP/1.1 301 Moved Permanently’);
header(’Location: http://selim.topaloglu.net/’);[/php]

ASP.net
[csharp][/csharp]

Java JSP
[java]response.setStatus(301);
response.setHeader(”Location”, “http://selim.topaloglu.net/”);
response.setHeader(”Connection”, “close”);[/java]

.htaccess
[code]redirect 301 / http://selim.topaloglu.net/[/code]

Google Analytics bilgilerinizi artık kendi uygulamalarınızda kullanabileceksiniz… Daha önceden masaüstü yazılımla bu bilgileri almamızı sağlayan bir program kullanmıştım.

ADOBE AIR altyapısı kullanan programın adı Analytics Reporting Suite ti… ThinkingPHP de yayınlanan bu yazıda web uygulamalarınızda analytics raporlarınızı kullanabileceğiniz API DataSource yayınlanmış durumda.

Buradan buyrun