Etiket arşivi: ASP

Okulumuzun Yeni Web Arayüzü

BilgisayarBilişim.Net te düzenlenen en güzel okul web sitesi yarışması bahanesiyle yaklaşık 3-4 yıldır aynı olan okulumun web sitesine el atma fırsatım oldu.

Yaklaşık 1 haftalık bir çalışma sonucunda hazırladığım yeni web arayüzünü dün gece 23:46 itibariyle yayına verdim.

ASP + JQUERY kullanarak hazırladığım web sitesini ziyaret etmek için http://www.yerkoyeml.k12.tr adresini ziyaret edebilirsiniz.

Siteyi ziyaret ederken web tarayıcı olarak IE 6 ve ya IE 7 kullanıyorsanız site tasarımı kaymış vaziyette karşınıza çıkacaktır.

Bu tasarım karmaşasını en kısa sürede halletmeye çalışıyorum.

İlginize şimdiden çok teşekkür ederim.


vee OYLAMA BAŞLADI

Oylarınızı beklerim 🙂

3.Olduk

Oy veren katılımcılara teşekkür ederim. Oylamalar sonucunda okul web sitemiz 3.olmuştur. Desteklerini esirgemeyen herkese teşekkürü bir borç bilirim.

Sunucuda Yüklü Bileşenleri Görme (ASP)

IIS sunucusundaki yüklü olan bileşenleri görmek için aşağıdaki kodu boş bir asp sayfasına ekleyin ve sunucuya yükleyip çalıştırın.

<%
Dim rtyBilesenler(68)
rtyBilesenler(1) = "ADODB.Command"
rtyBilesenler(2) = "ADODB.Connection"
rtyBilesenler(3) = "ADODB.Recordset"
rtyBilesenler(4) = "ADODB.Stream"
rtyBilesenler(5) = "ADOX.Catalog"
rtyBilesenler(6) = "AspDNS.Lookup"
rtyBilesenler(7) = "ASPExec.Execute"
rtyBilesenler(8) = "AspHTTP.Conn"
rtyBilesenler(9) = "AspImage.Image"
rtyBilesenler(10) = "AspMX.Lookup"
rtyBilesenler(11) = "AspNNTP.Conn"
rtyBilesenler(12) = "AspPing.Conn"
rtyBilesenler(13) = "AspSock.Conn"
rtyBilesenler(14) = "CDO.MESSAGE"
rtyBilesenler(15) = "CDONTS.NewMail"
rtyBilesenler(16) = "Dundas.Mailer"
rtyBilesenler(17) = "Dundas.PieChartServer"
rtyBilesenler(18) = "Dundas.PieChartServer.2"
rtyBilesenler(19) = "Dundas.Upload"
rtyBilesenler(20) = "Dundas.Upload.2"
rtyBilesenler(21) = "Dundas.UploadProgress"
rtyBilesenler(22) = "ECHOCom.Echo"
rtyBilesenler(23) = "GuidMakr.GUID"
rtyBilesenler(24) = "ImgSize.Check"
rtyBilesenler(25) = "ixsso.Query"
rtyBilesenler(26) = "ixsso.Util"
rtyBilesenler(27) = "JMAil.Message"
rtyBilesenler(28) = "JMail.POP3"
rtyBilesenler(29) = "JMail.SMTPMail"
rtyBilesenler(30) = "JRO.JetEngine"
rtyBilesenler(31) = "Microsoft.DiskQuota.1"
rtyBilesenler(32) = "microsoft.XMLDOM"
rtyBilesenler(33) = "Microsoft.XMLHTTP"
rtyBilesenler(34) = "MSWC.AdRotator"
rtyBilesenler(35) = "MSWC.BrowserType"
rtyBilesenler(36) = "MSWC.ContentRotator"
rtyBilesenler(37) = "MSWC.Counters"
rtyBilesenler(38) = "MSWC.IISLog"
rtyBilesenler(39) = "MSWC.MyInfo"
rtyBilesenler(40) = "MSWC.MyInfo"
rtyBilesenler(41) = "MSWC.NextLink"
rtyBilesenler(42) = "MSWC.PageCounter"
rtyBilesenler(43) = "MSWC.PermissionChecker"
rtyBilesenler(44) = "MSWC.Status"
rtyBilesenler(45) = "MSWC.Tools"
rtyBilesenler(46) = "MSXML.DomDocument"
rtyBilesenler(47) = "MSXML2.DOMDocument"
rtyBilesenler(48) = "MSXML2.DOMDocument.3.0"
rtyBilesenler(49) = "Msxml2.FreeThreadedDOMDocument.3.0"
rtyBilesenler(50) = "MSXML2.ServerXMLHTTP"
rtyBilesenler(51) = "MSXML2.ServerXMLHTTP.3.0"
rtyBilesenler(52) = "MSXML2.XSLTemplate"
rtyBilesenler(53) = "Persits.Grid"
rtyBilesenler(54) = "Persits.Jpeg"
rtyBilesenler(55) = "Persits.MailSender"
rtyBilesenler(56) = "Persits.Upload"
rtyBilesenler(57) = "Persits.Upload.1"
rtyBilesenler(58) = "Persits.UploadProgress"
rtyBilesenler(59) = "POP3svg.Mailer"
rtyBilesenler(60) = "Scripting.Dictionary"
rtyBilesenler(61) = "Scripting.FileSystemObject"
rtyBilesenler(62) = "Scriptlet.TypeLib"
rtyBilesenler(63) = "SMTPsvg.Mailer"
rtyBilesenler(64) = "SOFTWING.AspTear"
rtyBilesenler(65) = "VBScript.RegExp"
rtyBilesenler(66) = "WinHttp.WinHttpRequest.5.1"
rtyBilesenler(67) = "WScript.Network"
rtyBilesenler(68) = "WScript.Shell"
Response.write("Yüklü bileşenlerin listesi:")
On Error Resume Next
For x=1 To Ubound(rtyBilesenler)
Set obj = Server.CreateObject(rtyBilesenler(x))
if err.number = 0 Then
Set obj = nothing
Response.write(rtyBilesenler(x) & "<br />")
End if
err.clear
next
%>

ASP ile bir tablonun çıktısını WORD dosyası olarak alma

ASP ile bir tablonun çıktısını WORD dosyası olarak almak için şu kodları kullanabiliriz.

Örneğin:

Adı Kat Sayı Toplam
Tevfik YÜCEL 3200 160
Adnan Akçakaza 3675 183,75
Engin ÖZDİL 3840 192
Toplamlar: 10715 535,75

şeklindeki bir tablonun WORD’e aktarılmış hali için BURAYI tıklayınız.

ASP ile bir tablonun çıktısını WORD dosyası olarak alma yazısına devam et

ASP ile bir tablonun çıktısını EXCEL dosyası olarak alma

ASP ile bir tablonun çıktısını EXCEL dosyası olarak almak için şu kodları kullanabiliriz.

Örneğin:

Adı Kat Sayı Toplam
Tevfik YÜCEL 3200 160
Adnan Akçakaza 3675 183,75
Engin ÖZDİL 3840 192
Toplamlar: 10715 535,75

şeklindeki bir tablonun EXCEL’e aktarılmış hali için BURAYI tıklayınız.

ASP ile bir tablonun çıktısını EXCEL dosyası olarak alma yazısına devam et

Küfür Filtresi (ASP)

Asp’de hazırlamış olduğum basit bir küfür filtresini burada paylaşmak istedim.

Genellikler ziyaretçi defterlerinde veya iletişim formlarında yaygın bir biçimde kullanılabilecek basit bir küfür filtresi;

Aşağıda vermiş olduğum kod parçasını çalışmalarınıza ekleyerek sizlerde şayet ziyaretçilerinizden gelen küfürlü mesajlardakı küfürleri okumadan görebilirsiniz.

<%
dim kufurler
dim x
dim metin
metin=”At ile eşşekler, sıpaları doğrurur. sıpalar eşeklerin yavrusudur.”
kufurler=Array(“eşşek”, “eşek”, “sıpa”)
For each x in kufurler
metin=replace(metin,x,left(x,1) & string(len(x)-2,”*”) & right(x,1))
Next
response.write “Metin: ” & metin
%>

– Kod parçasında metin isimli değişkenimiz küfürlü kelime taraması yapılacak olan değişkenimiz. Bizler buna formumuz içerisindeki mesaj alanından gelen bilgileri aktarabiliriz.

kufurler isimli dizimi bir diziye sahibiz ve burada küfür içeren kelimeleri tek tek eklemeliyiz. Ne kadar çok küfür içeren kelime eklersek kodumuz o kadar hızlı çalışır.

Eğer kodun çalışmasıyla ilgili herhangi bir sıkıntı yaşarsanız yorum bırakınız.
Küfürsüz günler dileğiyle kolay gelsin 😉

ASP.NET


Sevgili öğrencilerim,
Web tasarım ve programlama dersinde işlediğimiz konulara ve modüllere yardımcı olabileceğini düşündüğüm ASP.NET kitabını indirmek için

ASP Formlarda E-Posta Adresi Kontrolü

ASP’de hazırladığımız formlarda e-posta adreslerinin düzgün girilip girilmediğini kontrol etmek için aşağıdaki kodu kullanabiliriz.


Fonksiyon :

0 and i first = Left(email, i – 1)
last = Mid(email, i+1, Len(email))
Else
MailKontrol = false
exit Function
End If
i = 0
Do Until i = Len(first)
i = i + 1
char = Mid(first, i, 1)
` If char is not in [.z-aA-Z0-9]
If Asc(char) 46 and Asc(char) 95 and (Asc(46) 57) and _
(Asc(char) 90) and (Asc(char) 122) Then
MailKontrol = false
exit Function
End If
Loop
i = 0
nokta = false
Do Until i = Len(last)
i = i + 1
char = Mid(last, i, 1)
` If char is not in [.z-aA-Z0-9]
If Asc(char) 46 and (Asc(46) 57) and _
(Asc(char) 90) and (Asc(char) 122) Then
MailKontrol = false
exit Function
End If
Loop
nokta = false
If InStr(1, last, “.” , 1) > 0 Then
nokta = true
End If
MailKontrol = nokta
End Function
%>