Arkadaşlar aşağıdaki kodun içine bu sayfayı <!-- #include file="yonetim_cookie.asp" --> include etmek istiyorum ama bunu eklediğim zaman kod çalışmıyor. Asp'den çok fazla anlamam. Bana yardımcı olabilir misiniz?
Kod:
<%@ Language="VBScript.Encode" CODEPAGE="1254"%>
<%
' transfer ettiğimiz dosyayı isimlendirirken dosya adına günün tarihini iliştirmesi için aşama oluşturuyoruz...
' dosyayı transfer ettikten sonra bu verileri kullanacağız. cpr1 : tarih, cpr2 : ay, cpr3 : gün
cpr1=Year(date) ' tarih için Yılı öğrendik
if month(date) < 10 then ' eğer ay 10 rakamından küçükse başına 0 ekledik
cpr2 = "0" & month(date)
else
cpr2 = month(date) ' değilse ayı olduğu gibi aldık
end if
if Day(date) < 10 then ' eğer gün 10 rakamından küçükse başına 0 ekledik
cpr3 = "0" & Day(date)
else
cpr3 = Day(date) ' değilse günü olduğu gibi aldık
end if
' tarih oluşturma bölümü bitti
safha = Request.QueryString("safha")
On Error Resume Next
If safha = "" Then
%>
<br />
<form action="yukleresim.asp?safha=yukle" method="post" ENCtype="multipart/form-data">
<table border="0" align="center" cellpadding="5" cellspacing="5">
<tr><td>
<input class="form" type="file" name="dosyaisim" size="35">
</td></tr>
<tr><td align="center">
<input class="buton" type="submit" value=" Dosyayı servera gönder..." onClick="this.value='Dosya yükleniyor..'">
</td></tr>
</table>
</form>
<% end If %>
<%
If safha="yukle" Then ' Eğer dosya yükleme talimatı verilmiş ise
dosyayeri = "upload" ' Gönderdiğimiz dosyanın kaydedileceği dizini belirliyoruz
' Dosyayı veritabanına kayıt yapmak ve veritabanındaki ID numarasını aldırmak için veritabanı ile bağlantı kuruyoruz
Set baghlanti = Server.CreateObject("Adodb.Connection")
baghlanti.open = "Provider=Microsoft.Jet.Oledb.4.0;Data Source="& server.MapPath("data.mdb") &";"
' Dosyanın ismine veritabanındaki kayıt ID sini iliştirmek için ID yi alıyoruz
set say = Server.CreateObject("Adodb.Recordset")
say.open "SELECT top 1 * FROM MAKALELER ORDER BY MAKALE_ID desc",Baghlanti, 1, 3 'son kayıtı bulduk
saynumara = say("cprID")+1 'son kayıta 1 ekledik ki birazdan eklenecek kayıda karşılık gelecek ID olmuş olsun.
' Dosya isminin ilerdede çakışmaması için veya dosya ismine biraz daha hava katmak için random sayı üretiyoruz
Randomize
Numara = INT (RND*9999999999)+1
Server.ScriptTimeout=1000
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False
Sayac = Upload.SaveToMemory
If Sayac = 0 Then
Response.Write "Lütfen yüklemek üzere bir dosya seçiniz..."
Response.End
End If
For Each File in Upload.Files
If FILE.EXT<>".rar" then 'bu tip dosyalara müsaade veriyoruz
If FILE.EXT<>".zip" then
If FILE.EXT<>".doc" then
If FILE.EXT<>".xls" then
If FILE.EXT<>".pdf" then
If FILE.EXT<>".flv" then
If File.ImageType="UNKNOWN" Then 'biraz önce müsaade verdiklerimizin dışında bütün resim formatlarını kabul ediyoruz.
Response.Write "Yüklemek istediğiniz dosya türüne müsaade verilmemiş / yasaklanmış..."
Response.End
End If
End if
End if
End if
End if
End if
End if
Next
Set dosya = Upload.Files ("dosyaisim")
dosyaadi = cpr1&cpr2&cpr3&"_"&saynumara&"_"&Numara&Right(dosya.FileName,4)
Path = Server.MapPath(dosyayeri & "/" & dosyaadi)
dosya.SaveAs Path
Set Jpeg = Server.CreateObject("Persits.Jpeg" )
Jpeg.Open Path
if Jpeg.OriginalWidth > 500 then
Jpeg.Width = 500
end if
jpeg.Height = Jpeg.OriginalHeight * Jpeg.Width / Jpeg.OriginalWidth
Jpeg.Canvas.Brush.Solid = False
Path2 = Server.MapPath(dosyayeri & "/" & dosyaadi)
Jpeg.Save Path2
say close : set say = nothing
%>
<br>
<div align="center">
<br>
Dosya adresi: <br><b>upload/<%=dosyaadi%></b>
<%end if%>
</div>
</body>
</html>