Dosya yolu belirlenmesi
getparentfoldername dosyanın yolunu belirtir
<%
fso.GetExtensionName("c:\mrt\sanane.xls")
<%
fso.GetExtensionName("c:\mrt\sanane.xls")
GetFile Dosya Nesnesini
Yol üzerindeki dosya nesnesini verir Getfile
<%
set fso = createobject("scripting.filesystemobject")
fso.GetExtensionName("c:\mrt\sanane.xls")
%>
<%
response.write(fso.getfilename("c:\mrt\sanane.xls"))
%>
<%
set fso = createobject("scripting.filesystemobject")
fso.GetExtensionName("c:\mrt\sanane.xls")
%>
<%
response.write(fso.getfilename("c:\mrt\sanane.xls"))
%>
Form gönder
Bu örneğimizde formdan yazı gönderme basit bir şekilde inceliyeceğiz. Basit bir form oluşturuyoruz örnekteki gibi... form.asp olarak kayıt edin.
Örnek Form ; form.asp olarak kayıt edin
Form
Sonra gonder.asp oluşturun.Açıklma; Request.form (Request objesi bilgi toplamak amaçlı kullanılan bir objedir) bilgileri cekiyoruz. objmail (Mail göndermemizi saglayan sunucu nesnesi) objJmail.MailServerUserName gönderilen yer/host xxx.asp ye gönderiyorum siz onu değiştirebilirsiniz hata olabilir çünkü.
gonder.asp dosya içeriği
<%
On Error Resume Next
objJmail.Charset = "ISO-8859-9" 'mail charset kodu
objJmail.AddRecipient "xxx.asp" 'gönderilecek adres
Set objJmail = Nothing
<head>
Örnek Form ; form.asp olarak kayıt edin
Sonra gonder.asp oluşturun.Açıklma; Request.form (Request objesi bilgi toplamak amaçlı kullanılan bir objedir) bilgileri cekiyoruz. objmail (Mail göndermemizi saglayan sunucu nesnesi) objJmail.MailServerUserName gönderilen yer/host xxx.asp ye gönderiyorum siz onu değiştirebilirsiniz hata olabilir çünkü.
gonder.asp dosya içeriği
<%
isim = request.form("isim")
baslik = request.form("baslik")
email = request.form("email")
mesaj = request.form("mesaj")
On Error Resume Next
Set objJmail = Server.Createobject("JMail.Message")
objJmail.Charset = "ISO-8859-9" 'mail charset kodu
objJmail.From = email
objJmail.MailServerUserName = "xxx.asp" 'mail kullanıcı adınız
objJmail.MailServerPassWord = "sifre" 'mail şifreniz
objJmail.Subject = baslik
objJmail.AddRecipient "xxx.asp" 'gönderilecek adres
objJmail.Body = mesaj
objJmail.Send("xxx.asp")
Set objJmail = Nothing
%>
<html>
<head>
<title>Mail Gönderildi</title>
</head>
Asp değişkenler
İlk dersimize başlayalım. Örneğimizde değişkenler tanımlanmış çıktı olarak blogspot verilecektir. Neden mi ?? Çünkü asp bir değişkendir eğer " içine alınsaydı asp olarak çıkardı burada asp="blogspot" olarak atanmış...
<%
dim asp
asp= "blogspot" %>
<% response.write(asp) %>
Klasor içinde tasıma Movefile
Klasör içinde dosya taşıma Movefile nesnesi ile yapılmakta.Burada c:\mrt\ içindeki sanane.txt dosyasını c:\mrt\bry klasörüne taşımaktadır. Bütün olay mrt klasörünün içinde gerçekleşmektedir.
<%
<%
set fso = createobject("scripting.filesystemobject")
fso.movefile "c:\mrt\sanane.txt","c:\mrt\bry\"
%>
Rastgel Dosya Olustur Gettemp
Asp de rastgele dosya oluşturma gettemp nesnesi ile yapılmakta. Burada c:\sanane\x\ klasörünün içine rastgele .tmp uzantılı dosya üretir.
<%
fso.GetExtensionName("c:\mrt\sanane.xls")
response.write(fso.gettempname)
<%
set fso = createobject("scripting.filesystemobject")
fso.GetExtensionName("c:\mrt\sanane.xls")
%> <br> <%
response.write(fso.getfilename("c:\mrt\sanane.xls"))
%> <br> <%
response.write(fso.getparentfoldername("c:\sanane\x\y\sanane.xls"))
response.write(fso.gettempname)
%>
Döngüler for - next
Bu yazımda asp de for next dögüsünü açıklayacağım. Örnekte 1 den 100 e kadar olan sayıları 2 şerli atlayara ekrana yazan programdır. Neden 2 şerli ?... 2 li olmasının sebebi step komutu bu komut yardımı ile 2,3 10 olarak dögümüzü döndürürüz. En sondaki next ise döngünün bir sonraki adıma geçmesini sağlar. (br etiketini koymanın sebebini bilirsiniz alt satıra geçmek)
<%
for i=1 to 100 step 2
Response.write(i)
Response.write("<br>")
next
%>
Kaydol:
Kayıtlar (Atom)