Yazar: Mustafa

Mustafa — Sat, 12 Jun 2010 06:37:05 +0000

Sanirim Bana Yardimci OLacak KimsecikLer Gelmiyor

Yazar: Mustafa

Mustafa — Thu, 10 Jun 2010 07:12:10 +0000

MerhabaLar Benim elimde Bir Admin Panelli Xml Site Var Ama Ben o Admin Panelini Farkli Bir Swf nin xml icin Uyarlamaya Calisiyor Belli Bir Kismini Yaziyor Xml icine Ama 4 Tane Kod Daha Yazdirmam Gerekiyor xml icerisine bunu Nasil Yapa bilirim Acaba xml icerisine Yazim Yapan Kodlar Asapıdaki gibi
Degistirecegim Yerleri Ben Degistirdim Lakin xml icerisine Dosyanin Yolunu ve dosya isimi + uzantisini (JPG) olarak yazdirmak istiyorum Bunu Nasil Yapa bilirim Acaba
Xml icerisine Yazdirmak istedigim Kod

thumbs/3.jpg
images/3.jpg
600
468

Orjinal Xml Dosyasi Yazim Ornegi

3
Çilek Mobilya
Cephe Uygulama

Admin Panel xml Yazdirma Kodlari
<%
dim id,title,details
dim msg
dim objXML
set objXML = server.CreateObject("Microsoft.FreeThreadedXMLDOM")
dim eobjXML
set eobjXML = server.CreateObject("Microsoft.FreeThreadedXMLDOM")
dim Upload
Set Upload = Server.CreateObject("Persits.Upload.1")
id = "AUTO"
title = "Cephe Uygulama"
etitle = "Facial Applications"

if request.QueryString("Submit") “” then
Set File = Upload.Files(“DOSYA”)
Set BFile = Upload.Files(“BDOSYA”)
Upload.OverwriteFiles = True

Count = Upload.SaveToMemory

objXML.async = False
eobjXML.async = False

blnFileExist = objXML.load(xmlpath)
eblnFileExist = eobjXML.load(exmlpath)

if request.QueryString(“id”) = “” then

If blnFileExist = False Then
objXML.appendChild(objXML.createProcessingInstruction(“xml”,”version=”"1.0″”"))
intID = 1
Else
if objXML.childnodes(0).childnodes(1).hasChildNodes then
intID = objXML.childnodes(0).childnodes(1).childnodes(_
objXML.childnodes(0).childnodes(1).childnodes.length -1).childnodes(0).text + 1
else
intID = 1
end if
End If

kd=intID

klasor = “../images/1/”
bklasor = “../images/1/b/”

If Count = 2 Then
Set File = Upload.Files(1)
Path = Server.MapPath(klasor&kd&”.jpg”)
File.SaveAs Path
Set BFile = Upload.Files(2)
Path = Server.MapPath(bklasor&kd&”.jpg”)
BFile.SaveAs Path

end if

Set objXMLv = objXML.createElement(“res”)
objXMLv.appendChild(objXML.createElement(“resim”))
objXMLv.appendChild(objXML.createElement(“referans”))
objXMLv.appendChild(objXML.createElement(“kategori”))

objXMLv.childNodes(0).text = intID
objXMLv.childNodes(1).text = Upload.form(“details”)
objXMLv.childNodes(2).text = Upload.form(“title”)

objXML.documentElement.childnodes(1).appendChild(objXMLv.cloneNode(true))

objXML.save(xmlpath)

Set eobjXMLv = eobjXML.createElement(“res”)
eobjXMLv.appendChild(eobjXML.createElement(“resim”))
eobjXMLv.appendChild(eobjXML.createElement(“referans”))
eobjXMLv.appendChild(eobjXML.createElement(“kategori”))

eobjXMLv.childNodes(0).text = intID
eobjXMLv.childNodes(1).text = Upload.form(“edetails”)
eobjXMLv.childNodes(2).text = Upload.form(“etitle”)

eobjXML.documentElement.childnodes(1).appendChild(eobjXMLv.cloneNode(true))

eobjXML.save(exmlpath)

else

objXMLv.childNodes(0).text = Upload.form(“id”)
objXMLv.childNodes(1).text = Upload.form(“details”)
objXMLv.childNodes(2).text = Upload.form(“title”)

set objXMLvOld = objXML.childnodes(0).childnodes(1).childnodes(request.QueryString(“id”)-1)

objXML.documentElement.childnodes(1).replaceChild objXMLv, objXMLvOld
objXML.save(xmlpath)

eobjXMLv.childNodes(0).text = Upload.form(“id”)
eobjXMLv.childNodes(1).text = Upload.form(“edetails”)
eobjXMLv.childNodes(2).text = Upload.form(“etitle”)

set eobjXMLvOld = eobjXML.childnodes(0).childnodes(1).childnodes(request.QueryString(“id”)-1)

eobjXML.documentElement.childnodes(1).replaceChild eobjXMLv, eobjXMLvOld
eobjXML.save(exmlpath)

end if

Set objXMLv = Nothing
Set objXML = Nothing

Set eobjXMLv = Nothing
Set eobjXML = Nothing

msg = “Kayit Eklendi!”

response.Redirect(“listcontents.asp”)

end if

if request.QueryString(“id”) “” then
objXML.Load(xmlpath)
set xmlcontents = objXML.DocumentElement.selectSingleNode(“resimler”)
set xmlcontent = xmlcontents.ChildNodes.item(request.QueryString(“id”)-1)
id = xmlcontent.ChildNodes.item(0).text
details = xmlcontent.ChildNodes.item(1).text
title = xmlcontent.ChildNodes.item(2).text
end if

if request.QueryString(“id”) “” then
eobjXML.Load(exmlpath)
set exmlcontents = eobjXML.DocumentElement.selectSingleNode(“resimler”)
set exmlcontent = exmlcontents.ChildNodes.item(request.QueryString(“id”)-1)
eid = exmlcontent.ChildNodes.item(0).text
edetails = exmlcontent.ChildNodes.item(1).text
etitle = exmlcontent.ChildNodes.item(2).text
end if

Yazar: mehmet

mehmet — Sat, 20 Mar 2010 15:46:59 +0000

merhaba.. ben swf çağırıyorum fakat çağırdığım swf ile birlikte çalışan xml çalışmıyor..

Yazar: secseaghost

secseaghost — Mon, 15 Mar 2010 11:38:25 +0000

ilk anlattığınızı yaptım
aynen şçyle bi buton ekledim birinci frame daha sonra kodları yazdım swfyi çağırdım fakat aynı yerde butonla birlikte çıktı ayrı bencerede a.ılmadı bide swfnin olduğu yerle aynı dosya içine koydum
çıldırcam neden olmuyor

Yazar: secseaghost

secseaghost — Mon, 15 Mar 2010 10:59:42 +0000

falsh site yapıyorum fakat sitede sayfaya buton eklemek ve bu butna tıklayınca dışardan çağıracağım foto galerisi swfsine gitsin istiyorum nasıl olcak yardımcı olur

Yazar: ncicekli

ncicekli — Sun, 28 Feb 2010 11:57:39 +0000

Arkadaşlar bu kodlar bende niye çalışmıyor. Defalarca kontrol ettim ama nedense bir tülü çalışmadı ya…
Lütfen yardım edin…

Yazar: atasözleri

atasözleri — Fri, 26 Feb 2010 09:51:16 +0000

Teşekkürler abiler,

Ben şajsen XML’den veri çekmeyi hallettim ama hepsiburadanın bannerlerı gibi kayarak hareket etmesini istiyorum. Frame ile yapmak istedim kocaman kocaman frameler oldu, zamanladıktan sonra bir movie clip’in hide olmasını sonra diğerinin visible olmasını sağlayamazmıyız?

Teşekkürler.

Yazar: saim emre kanat

saim emre kanat — Fri, 22 Jan 2010 20:41:10 +0000

Selamlar Ali bey.
çok teşekürler bu yararlı bilgiler için inş sizinle birlikte öğrenicem as3′ü
birde Engin yöyen’in kitabını almayı düşünüyorum istedikten sonra olcağını düşünüyorum. bu siteyi takip edicem.

Teşekürler.

Yazar: alio

alio — Wed, 23 Dec 2009 00:57:40 +0000

çalışmıyorken ne hatası veriyor? verdiği hatayı yazar mısın?

Yazar: Xequed

Xequed — Tue, 22 Dec 2009 22:59:14 +0000

on (press) {
resim = “omer1.jpg”;
loadMovie(resim, _root.dergi1s);
fscommand(“quit” , “true”);
}

Kodu kullanıyorum fakat çalışmıyor nasıl bir dongu olusturmam lazım ?

Dışardan Resim-Swf Çağırma (As3) yazısına yapılan yorumlar

Yazar: Mustafa

Yazar: Mustafa

Yazar: mehmet

Yazar: secseaghost

Yazar: secseaghost

Yazar: ncicekli

Yazar: atasözleri

Yazar: saim emre kanat

Yazar: alio

Yazar: Xequed