flash & ASP

Flash form send data to Database

سنقسم العمل إلى ثلاث مراحل .....................

• تصميم النموذج بواسطة الفلاش

• إعداد قاعدة بيانات بواسطة برنامج Access لتخزين فيها

• تصميم صفحة ASP كوسيط بين الفلاش والأكسس

تصميم النموذج بواسطة الفلاش

في البداية أنشئ مجلد "MyNote" يحوي على ملف الفلاش " MyNote.fls" ونسق الواجهة لتبدوا كالصورة المرفقة

النموذج يحوي على ثلاث مربعات إدخال Input text وهي .. "DayTxt-TitleTxt-NoteTxt"

ومن لوحة component أدرج Pushbutton نحتاج في هذا المثال إلى زرين

Label النص الذي يظهر فوق الزر

Click Handler كتابة اسم الدالة التي سيتم مناداته عند الضغط على الزر

خصص للزر ارسال الدالة Nsend ولزر اعادة تعينن NReset

حدد Fram1 وذهب إلى لوحة Actions-Movie Clip

function Nsend () {
Note=new LoadVars()
Note.NDay=_root.txtD.text;
Note.NTitel=_root.txtT.text;
Note.NNot=_root.txtN.text;
	Note.sendAndLoad("http://localhost/Mynote/note.asp",Note,"post");	

}

function Nreset () {
_root.txtD.text= "";
_root.txtT.text= "";
_root.txtN.text= "";	
}

إعداد قاعدة بيانات بواسطة برنامج Access لتخزين فيها

أفتح برنامج الأكسس لإنشاء قاعدة تدعي myNot"" وحفظها في مجلد "MyNote" وصمم في جدول "Notes"ويحوي على الحقول التالية

id-ترقيم تلقائي

NDay

NDate

NTitel

NNot

جميعها من نوع نص

تصميم صفحة ASP كوسيط بين الفلاش والأكسس

تحتاج إلى تثبيت خدمة IIs لتحول جهازك الشخصي إلى سيرفر افتراضي . حول المجلد "MyNote" والذي يضم كلا من قاعدة البيانات وملف الفلاش إلى مسار وهمي بتباع الآتي :

• حدد المجلد "MyNote" ثم بالزر الأيمن اختر خصائص property

• اختر تبويب مشاركة ويب وفعل خيار مشاركة هذا المجلد ثم انقر موافق

• الآن أصبح المجلد "MyNote" مسار وهمي يسهل الوصول إلية

افتح برنامج الفرونت ببج أو دريم ويفر و افتح صفحة فارغة سمها "Note" من نوع asp وحفظها في مجلد "MyNote"

في صفحة Note.asp في قسم الكود اكتب التالي :

<%@LANGUAGE="VBSCRIPT" %>
<%Option Explicit%>
<%
dim strDay,strTitel,strNot,strDate
strDate=now()
strDay=Request("NDay")
strTitel=Request("NTitel")
strNot=Request("NNot")

dim con
Set con=Server.CreateObject("ADODB.Connection")
	con.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath("myNot.mdb")
con.Open

dim Rs
Set Rs=Server.CreateObject("ADODB.Recordset") 
Rs.open  "Notes",con,2,2	

Rs.addNew
Rs("NDay")=strDay
Rs("NDate")=strDate
Rs("NTitel")=strTitel
Rs("NNot")=strNot
Rs.update
response.Write("Successfully added") 
Rs.close
con.close
set Rs=nothing
set con=Nothing
%>