یک مثال کامل :
Flash and ASP Guestbook
Classic guest book made with ASP and Flash
I have created this script using Flash and ASP.Data is saved in access database and retrieved through ASP and displayed in Flash movie in HTML format. PHP version of the same Guestbook is available under PHP section.
Steps
Start a new flash movie. Insert a new Dynamic text box and give it name txtmain and don't forget to check the HTML option. Insert a dynamic text fields status which will be used for displaying messages. Insert a new layer, name it action and place following code in action window.
lowlimit = number(1);
highlimit = number(10);
loadVariablesNum ("asguest.asp", 0,"post");
stop();
lowlimit and highlimit are the flash variables that would be send to PHP script. First time data range from record 1 to record 10 will be displayed in HTML enabled text box.
Insert two new button instances for up and down scrolling
For Up Button
on (release) {
txtmain.scroll--;
}
For Down Button
on (release) {
txtmain.scroll++;
}
Above code is self-explanatory.
I am not giving details for SCROLLING the movie. I will add a new tutorial in the flash section.
Add two button instances for Next 10 and previous 10 records and add the following code in action window.
Code for next Button
on (release) {
lowlimit = Number(lowlimit)+Number(10);
highlimit = Number(highlimit)+Number(10);
txtmain = "Processing Entries from "+lowlimit+" to "+highlimit+" Please wait ::: ";
loadVariablesNum ("asguest.asp", 0,"post");
}
Code for Previous Button
on (release) {
if (txtll == "1") {
txtmain = ":::: Nothing before Zero ::::";
}else {
lowlimit = Number(lowlimit) - Number(10);
highlimit = Number(highlimit) - Number(10);
txtmain = "Processing Entries "+lowlimit+" to "+highlimit+" Please wait for a while :::::: ";
loadVariablesNum ("asguest.asp", 0,"post");
}
}
Add three dynamic text fields to the movie for Total entries(totalentries),Low Limit (txtll) and High Limit (txthl) respectively.
Now Insert a new movie instance. Place four dynamic text boxes for name(textname) , email (txtemail) , website (txtwebsite) and comments (txtcomments). Add two buttons for Submit and Reset.
Code for Submit Button
on (release) {
if (txtname == "") {
_root.txtmessage = "Name information missing.";
} else if (txtemail == "") {
_root.txtmessage = "Email missing.";
} else if (txtcomments == "") {
_root.txtmessage = "Comments missing.";
} else if (txtwebsite == "") {
_root.txtmessage = "Enter the URL to your website";
} else {
submit1 = "Y";
highlimit = 10;
lowlimit = 0;
_root.txtmain = "wait :::: Posting New Entry ::: ";
loadVariablesNum ("/asguest.asp", 0, "post");
_root.txtmessage = "Comments posted";
txtname1 = txtname;
gotoAndStop (2);
}
}
Code for reset button
on (release) {
txtname = "";
txtemail = "";
txtWebsite = "http://";
txtcomments = "";
}
"GuestBook.asp"
dim filename 'name of database file
dim maxfld 'record counter
dim cmtStr ' comment string
filename=server.mappath("/") & "\" & "guestbook.mdb" // path to access database
Set connection string for access database
cs="Provider=Microsoft.jet.oledb.3.51;"
cs=cs & "Persist Security info=false;"
cs=cs & "data source="
cs=cs & filename & ";"
set adocon=server.createobject("adodb.connection"& #41; 'create connection object
adocon.open cs 'open connection
'fetch variables from flash
txtname=request.form.item("txtname")
txtemail=request.form.item("txtemail")
txtwebsite=request.form.item("txtwebsite")
txtcomments=request.form.item("txtcomments" 1;
'Create recordset and get no of records in the database.
set rs_max_value=adocon.execute("select max(val(gid)) as x from tbguest")
maxfld=rs_max_value.fields("x")
'Increment the no by one.
if isnull(maxfld) then
maxfld=1
else
maxfld=maxfld+1
end if
rs_max_value.close ' close the recordset object.
'If new data is submitted
if request.form.item("submit1")="Y" then
'create a new string in HTML format using variables
cmtstr = "Name: <b>" & txtname & "</b><br>Email: <b><u><a href=" & "'" & "mailto:" & txtemail & "'" & ">" & txtemail & "</a></u></b><br>"
cmtstr = cmtstr & "Website: <b><u><a href=" & "'" & txtwebsite & "'" & " target=" & "'" & "_blank" & "'" & ">" & txtwebsite & "</a></u></b><br>"
cmtstr = cmtstr & "Comments: <b>" & txtcomments & "</b><br>"
cmtstr = cmtstr & "<i>Posted on: " & Now() & "<br>"
dim commandobject
dim insertionstr
set commandobject=server.createobject("adodb.comma nd") 'create a command object
set commandobject.activeconnection=adocon // set active connection to the command object
insertionstr="insert into tbguest (gid,gcomments) values (?,?)" ' sql query for insertion
commandobject.commandtext=insertionstr
commandobject.prepared=true
commandobject.parameters.append commandobject.createparameter("gid",3,,1000 1;
commandobject.parameters.append commandobject.createparameter("gcomments",200, ,500)
'Assign values to command objects
commandobject("gid")=maxfld
commandobject("gcomments")=cmtstr
commandobject.execute 'execute the query
set commandobject=nothing // destroy the command object
end if
dim llimit
dim hlimit
llimit=request.form.item("lowlimit")
hlimit=request.form.item("highlimit")
'Calculate total entries in Access
dim sqlstr
dim flashstr
sqlstr="select max(gid) as x from tbguest"
set rs_flash=adocon.execute(sqlstr)
totalent=rs_flash.fields("x")
rs_flash.close
'Following code is for displaying entries from lowlimit to highlimit
if totalent>0 then
sqlstr="select * from tbguest order by gid desc"
set rs_flash=adocon.execute(sqlstr)
dim strflash
rs_flash.movefirst
if totalent>=hlimit then
hlimit=totalent
end if
upto=llimit-1
j=0
for j=1 to upto
rs_flash.movenext
next
i=0
for i=1 to (hlimit-llimit)+1
if rs_flash.eof then exit for
strflash=strflash & rs_flash.fields("gcomments")
rs_flash.movenext
next
strflash=strflash & "<br><br>" & " :::::::::: ::: Nothing Below This :::::::::: ::::: "
else
strflash=":: Nothing to Display ::"
rs_flash.close
end if
response.write("&txtll=" & llimit & "&txthl=" & hlimit & "&totalentries=" & totalent & "&txtmain=")
response.write(strflash) // variables for flash movie.
adocon.close // destroy the connection
پاسخ با نقل قول
