|mmortaL Dvix: ®© - Ziyaretçi defteri

* İmparatorunuza Söyleyin. Şimdi ki Osmanlı Padişahı Öncekilere Benzemez. Benim Gücümün Ulaştığı Yerlere, Sizin İmparatorunuzun Hayalleri Bile Ulaşamaz. [Fatih Sultan Mehmet]


	\|mmortaL Dvix: ®©

Yaşadığın An O Andır O'da Nefes Aldıgın Kadardır!


	Ziyaretçi defteri

<-Geri

Devam->

Bugün 24 ziyaretçi (28 klik) kişi burdaydı! TÜRKİYE CANIM FEDA

Kod-Dunyasi

Dinamik Css Menü

Dynamic Drive

Css Kodları

Kod Kaynakları

Çeviri

|mmorTaL

Sik kullanilanlara ekle

ANA SAYFAN YAP

Arka plan rengi <%@ Language=VBScript %> <% dim totalbytes dim safearray 'upload.mdb dosyasi file dsn olarak tanimlanmali 'yada bir connection stringi ile baglanti kurulabilir 'Internet Guest Account (serverismiIUSR_serverismi)kullanıcısına full yetki verilmeli if request.servervariables("REQUEST_METHOD") = "POST" then set cnnl=server.CreateObject("ADODB.Connection") cnnl.Open "upload" set adtbl=server.CreateObject("ADODB.Recordset") adtbl.Open "files", cnnl, adOpenDynamic, adLockOptimistic set x = server.createobject("SCUpload.Upload") x.upload response.write "

FILE:
" for i = 1 to x.files.count for j = 1 to x.files(i).item.count response.write " Path Name: " & x.files(i).item(j).pathname & "
" response.write " File Size: " & x.files(i).item(j).size & "
" response.write " Content Type: " & x.files(i).item(j).contenttype & "

" x.files(i).item(j).save "c:inetpubwwwrootraporlar" adtbl.AddNew adtbl("adi") = x.files(i).item(j).filename adtbl("tarih") = date() adtbl("lokasyon")="http:/raporlar/"&x.files(i).item(j).filename adtbl.update next next response.write "

" response.write "File Name: " & x.file("F1").filename & "
" adtbl.close cnnl.Close else %>

<% end if %>

Bilgileriniz sistemimize kaydedilmektedir.

Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?

Ücretsiz kaydol