Ahmet Korkut Tahaoğlu

SQL Server 2008 Enterprise Manager üzerinden ebatı gereksiz bir şekilde yükselmiş olan LOG dosyalarınızı aşağıdaki T-SQL kodu sayesinde çok daha küçük bir ebata indirebiliyorsunuz.

select name,recovery_model_desc from sys.databases

GO

Alter database BURAYAKENDİDBADINIZIYAZIN Set Recovery simple

GO

Declare @LogFileLogicalName sysname

select @LogFileLogicalName=Name from sys.database_files where Type=1

print @LogFileLogicalName

DBCC Shrinkfile(@LogFileLogicalName,100)

select name,recovery_model_desc from sys.databasesGO Alter database BURAYAKENDİDBADINIZIYAZIN Set Recovery simpleGODeclare @LogFileLogicalName sysnameselect @LogFileLogicalName=Name from sys.database_files where Type=1print @LogFileLogicalName
DBCC Shrinkfile(@LogFileLogicalName,100)

Son zamanlarda hem blog üzerinden hem de ASP İndir‘den gelen “Windows Media Player (wmv) dosyalarını sitemde nasıl gösterebilirim?” sorusuna cevabı blog içerisinde vermek istedim. Belki Google kaydeder, başkaları da faydalanabilir.

Windows Media Player dosyaları yani (wmv) sitenizde göstermeniz için gerekli olan kod aşağıdadır.

<object classid=”clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95″ width=”293″ height=”239″ codebase=”http://www.microsoft.com/Windows/MediaPlayer/”>
<param name=”Filename” value=”DOSYA_ADRESI_BURAYA”>
<param name=”AutoStart” value=”true”>
<param name=”ShowControls” value=”true”>
<param name=”BufferingTime” value=”2″>
<param name=”ShowStatusBar” value=”true”>
<param name=”AutoSize” value=”true”>
<param name=”InvokeURLs” value=”false”>
<embed src=”DOSYA_ADRESI_BURAYA” type=”application/x-mplayer2″ autostart=”1″ enabled=”1″ showstatusbar=”1″ showdisplay=”1″ showcontrols=”1″ pluginspage=”http://www.microsoft.com/Windows/MediaPlayer/” CODEBASE=”http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=6,0,0,0″ width=”293″ height=”239″></embed>
</object>

ASP ile Twitter hesabınıza içeriklerinizi, yazılarınızı veya herhangi bir veritabanı içeriğini aktarabilmeniz mümkün. Aşağıda Twitter‘a veri gönderme kodunu Google üzerinden tesadüfen bulduğum Koray Karaman‘a ait blog üzerinden aldım. Açıkçası Google da rastgele yaptığım bir arama sonrasında (Twitter konularını kurcalarken) bulduğum bir sonuçtu. Burada yaptığım olayı açıklamak oldu diyebiliriz. Netice de işin aslını Twitter‘a veri gönderen fonksiyon yapmakta. Aktarımı sadece veritabanından değil herhangi başka bir kaynaktan yapmakta mümkün olabilir. Örnek olarak şu an aklıma gelen RSS, XML veya benzeri kaynaklardan da aktarımlar Twitter‘a yapılabilir.

Herhangi bir sorunuz olursa bana iletişim bölümünden veya bu yazıya yorum ekleyerek ulaşabilirsiniz.

İlk olarak sayfanın en tepesine Twitter hesabınıza ait olan kullanıcı adı ve şifre tanımlamalarını yapmanız gerekiyor:

kullaniciadi = “Twitter” ‘Twitter hesabınızın kullanıcı adı
sifre = “TwitterDeneme” ‘ Twitter hesabınızın şifresi

Bunun ardından Twitter’a veriyi göndermeyi sağlayacak olan fonksiyonu yerleştiriyoruz:

function asp_twitter_update(strMsg,strUser,strPass)
dim oXml,strTwitterUrl
strTwitterUrl = “http://twitter.com/statuses/update.xml”
set oXml = Server.CreateObject(“MSXML2.ServerXMLHTTP.3.0″)
oXml.Open “POST”, strTwitterUrl, false, strUser, strPass
oXml.setRequestHeader “Content-Type”, “application/x-www-form-urlencoded”
oXml.Send “status=” & server.URLencode(strMsg)
asp_twitter_update = oXml.responseText
Set oXml = nothing
end Function

Türkçe karakterlerin sorun çıkarmaması için bu fonksiyonu da sayfaya yerleştiriyoruz:

Function Cevir(gelenveri)
gelenveri =  LCase(gelenveri)
gelenveri =  Replace(gelenveri ,Chr(32),”_”,1,-1,0)
gelenveri =  Replace(gelenveri ,Chr(208),”g”,1,-1,0)
gelenveri =  Replace(gelenveri ,Chr(240),”g”,1,-1,0)
gelenveri =  Replace(gelenveri ,Chr(222),”s”,1,-1,0)
gelenveri =  Replace(gelenveri ,Chr(254),”s”,1,-1,0)
gelenveri =  Replace(gelenveri ,Chr(199),”c”,1,-1,0)
gelenveri =  Replace(gelenveri ,Chr(231),”c”,1,-1,0)
gelenveri =  Replace(gelenveri ,Chr(221),”i”,1,-1,0)
gelenveri =  Replace(gelenveri ,Chr(236),”i”,1,-1,0)
gelenveri =  Replace(gelenveri ,Chr(237),”i”,1,-1,0)
gelenveri =  Replace(gelenveri ,Chr(214),”o”,1,-1,0)
gelenveri =  Replace(gelenveri ,Chr(246),”o”,1,-1,0)
gelenveri =  Replace(gelenveri ,Chr(252),”u”,1,-1,0)
gelenveri =  Replace(gelenveri ,Chr(220),”u”,1,-1,0)
Cevir = gelenveri
End  Function

Bunun ardından veritabanımıza bağlantı kurup (veritabanı bağlantısını yapacak olan objeyi tanımladığınızı varsayıyorum.) verileri fonksiyonlar yardımıyla Twitter’a gönderiyoruz.

Set objRS = objConn.Execute(“SELECT * FROM IcerikTablo ORDER BY ID DESC”)

Do Until objRS.EOF

nenia = “”&Cevir(objRS(“fldHucreAd”))&”" ‘Twitter mesajınız
nenia = left(nenia,160) ‘Max. 160 karakter olmalıdır.

Dim xmlStatuses,strMsg
strMsg = nenia
xmlStatuses = asp_twitter_update(strMsg,kullaniciadi,sifre)

objRS.MoveNext
Loop

objRS.Close
SET objRS = Nothing

SET objConn = Nothing

response.write(“İşlem tamamlandı.”)
response.End()

Genelde yapılması zor gibi görünse de ASP‘den EXCEL‘e veri aktarımı ASP > XML kadar kolay. (İlerleyen süreç içerisinde ASP‘den XML‘e aktarım için gerekli olan örnek kodu da vereceğim.)

ASP‘den EXCEL‘e aktarım yapabilmek için aşağıdaki örnek kodu kullanabilirsiniz.

<%
Response.ContentType = “application/vnd.ms-excel”
%>
<table>
<%
‘Buraya bir veritabanı döngüsü ile kayıtların otomatik olarak gelmesini sağlayacak kod yapısı yerleştirilebilir.
%>
<tr>
<td>Deneme 1</td>
<td>Deneme 1.1</td>
<td>Deneme1.2</td>
</tr>
<%
‘döngü biter
%>
</table>

Burada asıl işi yapan kod; Response.ContentType = “application/vnd.ms-excel” sayfanın EXCEL formatına gelmesini bu komut ile sağlıyorsunuz ve gerisini zaten sunucunuz hallediyor ve dosyayı size .xls formatında indirebilmeniz/görüntüleyebilmeniz için veriyor.

Sormak istediğiniz birşey olursa bu başlık altına yorum ekleyerek veya iletişim bölümünden bana ulaşabilirsiniz.

Aşağıdaki kodlar ile NTVMSNBC‘den haberleri XML methoduyla çekebilirsiniz.

NTVMSNBC‘e ait tüm RSS adreslerine bu adresten ulaşabilirsiniz: http://www.ntvmsnbc.com/id/24939559

Benim kodlar içerisinde kullandığım RSS adresi, NTV teknoloji haberleri bölümüne aittir.

<%
TheFeed = “http://www.ntvmsnbc.com/id/24927532/device/rss/rss.xml”

Set objXML = Server.CreateObject(“Microsoft.XMLDOM”)

objXML.Async = False

objXML.SetProperty “ServerHTTPRequest”, True

objXML.ResolveExternals = True

objXML.ValidateOnParse = True

objXML.Load(TheFeed)

CellCount = 0

If (objXML.parseError.errorCode = 0) Then

Set objRoot = objXML.documentElement

If IsObject(objRoot) = False Then

Response.Write “İşlem başarısız.”

Else

Set objItems = objRoot.getElementsByTagName(“item”)

If IsObject(objItems) = True Then

For Each objItem in objItems

On Error Resume Next

TheTitle= objItem.selectSingleNode(“title”).Text
TheLink =  objItem.selectSingleNode(“link”).Text
TheDesc =  objItem.selectSingleNode(“description”).Text
TheDate =  objItem.selectSingleNode(“pubDate”).Text

Response.Write “<a href=” & TheLink & “>” & _
“<b>” & TheTitle & “</b>” & _
“</a>” & _
“<br />”

Response.Write TheDesc & _
“<br />”

Response.Write TheDate & _
“<hr />”
‘Buraya veritabanı kayıt ekleme kodu. Kendi isteğinize göre.
Next
Response.Write(“Ntv haberleri alındı.”)
End If
Set objItems = Nothing
End If
Else
Response.Write “İşlem başarısız.”
End If

Set objXML = Nothing
%>

Kodları çalıştırmak konusunda sorun yaşarsanız bu başlık altına yorum yazarak beni bilgilendirin.