Internet Programlama Kategorisindeki yazılar.
Oca
10
2015

Dreamweaver CC + PHP + MySQL Kod Yazmadan Web Yazılımı Hazırlama (Örnek Proje Yaparak)

Dreamweaver CC + PHP + MySQL Kod Yazmadan Web Yazılımı Hazırlama

Dreamweaver CC + PHP + MySQL Kod Yazmadan Web Yazılımı Hazırlama

Merhaba,

Bu yazımda sizlere bir süredir videolarını çekmek için çalıştığım Dreamweaver CC ile Php + Mysql ikilisini kullanarak kod yazmadan web yazılımı-sitesi hazırlama video serisini paylaşacağım. Bu video serisi basit bir Teknik Servis Takipyazılımının nasıl yapılacağı konusu baz alınarak hazırlanmıştır. Genel manada veritabanına veri ekleme, güncelleme, silme, verilerimizi sorgulama işlemleri ve kullanıcı giriş- çıkış işlemleri anlatılmıştır.
Şimdiden faydalı olmasını dilerim.

devamı…

Tem
24
2012

E-okul Veli Bilgilendirme Sistemindeki Görüntüleme Sorunu ve Çözümü

Bir çok veli gibi bu gün bende kızımı hangi okula kaydettireceğimi öğrenebilmek için https://e-okul.meb.gov.tr/IlkOgretim/MEM/IOM00009.aspx adresindeki Veli Bilgilendirme sistemine giriş yapmak istedim. Ama o da ne!!

Sayfa beni kabul etmiyordu, kimlik doğrulama resmini 2-3 sefer girmeme rağmen giriş yapamadım. Öncelikle sorun belki Firefox kaynaklıdır diyerek Internet Explorer 9 ile giriş yapmayı denedim ama yine olmuyordu. devamı…

Ara
28
2011

WordPress ElegantEstate Temasında Thumbnail Sorunu

Geçen gün arkadaşımın sitesini bir başka firmadaki VPS üzerine taşıdık, fakat herşey düzgün olmasına rağmen resimlerin önizlemeleri görünmüyordu.

Aslında çözüm basitmiş ama biraz uğraştırdı devamı…

Ara
26
2011

Sys is Undefined hatası ve çözümü

IIS 7 üzerinde kendinize bir web sunucu oluşturdunuz, tüm ayarları yaptınız hatta ftp sunucu ile bilumum çözümleri de koydunuz ama o da ne ! kodları derleyip siteye gönderdiğiniz halde localhostta çalışan kodlar sitede çalışmıyor 🙁

Herşeyi ile tas tamam olan sitede ne bir hata uyarısı var ne de sonuç!

*) Firefox vs kullanıyorsanız hatanın ne olduğunu anlamak için FIREBUG eklentisini de kurmanız gerekebilir, yoksa sys is undefined hatasını göremezsiniz bile… devamı…

Haz
2
2011

IIS üzerinde Silverlight Application Mime Type Ayarları

IIS üzerinde Silverlight uygulamalarını çalıştırabilmek için MIME TYPE ayarlarının yapılması gerekmektedir.  Bunun için aşağıda yer alan kodları addmime.vbs olarak kaydedin

[box type=”info”]

Const ADS_PROPERTY_UPDATE = 2

if WScript.Arguments.Count < 2 then

WScript.Echo “Kullanım: ” + WScript.ScriptName + ” mimetype uzantısı”

WScript.Quit

end if

Set MimeMapObj = GetObject(“IIS://LocalHost/MimeMap”)

aMimeMap = MimeMapObj.GetEx(“MimeMap”)

i = UBound(aMimeMap) + 1

Redim Preserve aMimeMap(i)

Set aMimeMap(i) = CreateObject(“MimeMap”)

aMimeMap(i).Extension = WScript.Arguments(0)

aMimeMap(i).MimeType = WScript.Arguments(1)

MimeMapObj.PutEx ADS_PROPERTY_UPDATE, “MimeMap”, aMimeMap

MimeMapObj.SetInfo

WScript.Echo “MimeMap eklendi: “

WScript.Echo ”    Uzantı: ” + WScript.Arguments(0)

WScript.Echo ”    Tip:      ” + WScript.Arguments(1)

[/box]

kaydetmiş olduğunuz bu dosyanın bulunduğu klasörde yine aşağıdaki kodları kullanarak mimetype.cmd isimli bir dosya oluşturun.

[box]

addmime.vbs .xbap application/x-ms-xbap

addmime.vbs .xaml  application/xaml+xml

addmime.vbs .xaml  application/xaml+xml

iisreset

[/box]

ve mimetype.cmd dosyanıza çift tıklayarak çalıştırın.

Bu sayede IIS üzerine Silverlight tarafından kullanılan mime type ayarlarınızı ekleyebilir ve web sunucunuzu restart yaparak ayarların hizmete alınmasını sağlayabilirsiniz.

Mar
24
2009

MySQL ile TOP 5 gibi sorgular nasıl yapılır?

Uzun bir aradan sonra yeniden merhaba,

Yine bir sorun yaşandı ve pratik olarak sorun giderildi. Şu MYSQL sorguları da bir standart haline gelebilse daha çok sevineceğim ama elde değil.

Farklı farklı VTYS ile çalışırken SQL sorgu dönüşümlerini de beraberinde yapmak sanırım kaçınılmaz olmaya başladı, bu günde daha önceden yapmış olduğum bir MYSQL bağlantısı üzerinde “Select TOP 10 from vtsamsun”  gibi bir sorguyu çalıştırmak istedim ama o da ne? MYSQL TOP 10 komutumu kabul etmedi.

Bunun üzerine biraz araştırma yapınca MYSQL ve ORACLE sistemlerinde bu sorgunun farklı şekillerde kullanılması gerektiğini gördüm ve belki işinize yarayabilir diye aşağıdaki dönüşüm cümleciklerini oluşturdum.

Örnek olarak ilk 10 kaydı sorgulamak istersek;

MSSQL üzerinde

SELECT TOP 10 ad, soyad, email FROM vtsamsun

MYSQL üzerinde

SELECT  ad, soyad, email FROM vtsamsun LIMIT 10

ORACLE üzerinde

SELECT  ad, soyad, email FROM vtsamsun WHERE ROWNUM <= 10

şeklinde cümlecikler yazmamız gerekiyor.



Kas
16
2008

Microsoft Office Excel ile nasıl toplu mail gönderilir?

Geçenlerde bir iş için excel listesindeki şahıslara otomatik olarak mail gönderilmesi gerekiyordu. Malum doğum günleri ve evlilik yıldönümleri gibi özel günlerde kişileri mail olarak da hatırlamak güzel bir jest oluyor.

Bunun için oturup değişik bir makro yazdım. Program excel sayfasında yer alan kişilerin doğum tarihleri ile  evlilik tarihlerinin gün ve ay bilgilerine bakarak o anki gün ve ay bilgilerini karşılaştırıp eğer kişinin doğum günü ise doğum günü mesajı, evlilik yıldönümü ise evlilik kutlama mesajını otomatik olarak kişinin mailine gönderiyor.

Programda CDO mail eklentisi kullanılmıştır. Bilmeyenler için söyleyeyim excel de makro (VBA) alanına ALT+f11 tuşlarına basarak geçilir.

 

Excel hücre yapısında A sütunu kişi ADI, B sütunu Soyadı, C sütunu Doğum Tarihi, D sütunu Evlilik Tarihi, E sütunu ise e-mail adresidir.

Şimdi kodlara bakarsak;

    Const ForReading = 1, ForWriting = 2, ForAppending = 8

Private Sub Mail_Yolla(adres, dogum, evlilik, adsoyad)
If evlilik = 1 Then
dosya = “c:\mesajlar\evlilik.txt” ‘evlilik mesaj dosyası
baslik = “Mutlu Yıllar” ‘Evlilik mail başlığı
End If
If dogum = 1 Then
dosya = “c:\mesajlar\dogum.txt” ‘Doğum günü mesaj dosyası
baslik = “Uzun ve mutlu bir ömür dileklerimle” ‘Doğum günü mail başlığı
End If
mesajimiz = dosyaoku(dosya)
mesajimiz = Replace(mesajimiz, “<adsoyad>”, adsoyad) ‘<adsoyad> alanı ile kişi adı değiştiriliyor
On Error Resume Next
Dim tanimla, ayarla As Object, referans
Set tanimla = CreateObject(“CDO.Message”)
Set ayarla = CreateObject(“CDO.Configuration”)
ayarla.Load -1
Set referans = ayarla.Fields
With referans
.Item(“
http://schemas.microsoft.com/cdo/configuration/smtpusessl“) = False
.Item(“
http://schemas.microsoft.com/cdo/configuration/smtpauthenticate“) = 1
.Item(“
http://schemas.microsoft.com/cdo/configuration/sendusername“) = “burak@sekercioglu.eu” ‘Gönderici mail adresi
.Item(“
http://schemas.microsoft.com/cdo/configuration/sendpassword“) = “<mail adres şifresi>” Mail adresinizin şifresi

.Item(“http://schemas.microsoft.com/cdo/configuration/smtpserver“) = “mail.sekercioglu.eu” ‘Giden Posta Sunucunuz

.Item(“http://schemas.microsoft.com/cdo/configuration/sendusing“) = 2
.Item(“
http://schemas.microsoft.com/cdo/configuration/smtpserverport“) = 25
.Update
End With
With tanimla
Set .Configuration = ayarla
.To = adres
.CC = “”
.BCC = “”
.From = “””burak”” <
burak@sekercioglu.eu>” ‘Kimden mail gidecekse
.Subject = baslik
.TextBody = mesajimiz
.Send
End With
If Err.Number = -2147220973 Then
MsgBox “Lütfen Firewall ayarlarınızı kontrol ediniz”, vbExclamation, “Mail Gönderilemedi”
Exit Sub
End If
MsgBox ” E-postanız gönderildi”, vbInformation, “
www.sekercioglu.eu
End Sub

Function dosyaoku(dosya)
   ‘Hazır mesaj şablonlarını okuyan fonksiyon
   ‘text dosya içinde <adsoyad> olarak tanımlanan alana program otomatik olarak kişi adsoyad bilgisini yazar
    Set fso = CreateObject(“Scripting.FileSystemObject”)
    Set ts = fso.OpenTextFile(dosya, ForReading)
    While Not ts.AtEndOfStream
        dosyaoku = dosyaoku & ts.ReadLine & vbCrLf
    Wend

    ts.Close
End Function

Sub kontrol()
sayfa = “sayfa1”
q = q + 1
satir = Worksheets(sayfa).Cells(q, 1).Value

Do While satir <> “”
q = q + 1
satir = Worksheets(sayfa).Cells(q, 1).Value
ad = Worksheets(sayfa).Cells(q, 1).Value
soyad = Worksheets(sayfa).Cells(q, 2).Value
dogum = Worksheets(sayfa).Cells(q, 3).Value
evlilik = Worksheets(sayfa).Cells(q, 4).Value
adres = Worksheets(sayfa).Cells(q, 5).Value
dogumay = Month(dogum)
dogumgun = Day(dogum)

evlilikay = Month(evlilik)
evlilikgun = Day(evlilik)
adsoyad = ad & ” ” & soyad

bugun = Day(Now)
buay = Month(Now)

If bugun = dogumgun And buay = dogumay Then
dogum = 1
evlilik = 0
Mail_Yolla adres, dogum, evlilik, adsoyad
End If

If bugun = evlilikgun And buay = evlilikay Then
dogum = 0
evlilik = 1
Mail_Yolla adres, dogum, evlilik, adsoyad
End If

 

Loop

End Sub

 

ayrıca c:\mesajlar klasörü içersinde 2 adet text dosya hazırlamanız gerekiyor. Bunlardan bir tanesinin ismi dogum.txt diğeri de evlilik.txt olmalıdır (program içersinde verilen dosya yoluna dikkat ediniz!

bu dosyaların içeriği ise aşağıdaki gibi olabilir

dogum.txt Dosyası Örneği;

Nice Mutlu senelere sevgili <adsoyad>

Umarım tüm dileklerin gerçekleşir ve sevdiklerinle birlikte mutlu ve huzurlu bir yıl geçirirsin.

Burak ŞEKERCİOĞLU
0312 123 45 67

göreceğiniz gibi yazı içersinde <adsoyad> olarak bir alan tanımladık. Programımız bu alanı algılayıp onun yerine A ve B sütunlarından alınan ADSOYAD verisini yerleştirecektir.

 

Program bu kadar.. Kaç kişiye kadar mail gönderebiliriz diye soracak olursanız. Program A sütununda boş satır görene kadar tüm satırları işleyecektir, herhangi bir sınırlama yoktur.

Ekleme: Eğer bu programcığı EXCHANGE SERVER kullanarak gönderim yapacaksanız o zaman kod içersinde yer alan
.Item(“http://schemas.microsoft.com/cdo/configuration/smtpusessl“) = False
.Item(“
http://schemas.microsoft.com/cdo/configuration/smtpauthenticate“) = 1

 satırlarını iptal ederek smtp server adresi yerine de EXCHANGE SERVER sunucu netbios isminizi yazmanız gerekmektedir.

TeamViewer ile İnternet üzerinden Uzaktan Erişim ve Destek Sekercioglu.eu Uzaktan Yardım
Ammyy Uzaktan Yardım
WinRAR
WEBMAIL Google PageRank Checker
Twitterda Takip Edin! Twitterda Takip Edin!
Twitter

Üye Paneli

Son Yazılar

Kategoriler

Son Yorumlar