Flash ASP Access實現寫吧

2021-05-22 23:04:30 字數 2345 閱讀 6658

今天,由我voidman同學來向大家展示如何製作乙個超炫的寫吧。沒見過的可以點這裡

預覽位址:

首先建立乙個資料庫表,表名為test,有兩個屬性id和content。content的型別為文字

test.asp

<%

dim cn

set cn = server.createobject("adodb.connection")

set rs=server.createobject("adodb.recordset")

rs.open "select content from [表名 ]",cn,3,3

while not rs.eof

totalcontent=totalcontent&rs("content")&"#"    

'把資料庫中的每條內容以#分割

rs.movenext()

loop

response.write ("flashc&")

'輸出為flashcontent=內容1#內容2#內容3#……&相當於乙個變數,

'名為flashcontent,值為內容1#內容2#內容3#……&

rs.close

cn.close

%>

test.fla

在第一幀加入動作

stop();

system.usecodepage = true;                             //顯示中文

var newload = new loadvars();                        //建立loadvars類的物件newload

newload.load("test.asp");

newload.onload = function(success) };

在第2幀中建立乙個影片剪輯名為b,在b影片剪輯中建立乙個動態文字,變數設為content

在幀上加入動作

stop();

system.usecodepage = true;                         //顯示中文

var aspcontent = newload.flashcontent;            //接受flashcontent變數

var acontent = new array();                     //開闢乙個陣列

for (i=0; i第二部分:寫入資料

預覽位址

第一幀新增乙個矩形做底,上面建立乙個輸入文字域,名字為incontent,再建立乙個按鈕btn

第一幀新增幀動作

stop();

system.usecodepage = true;                 //以便寫入中文                            

adddate = new loadvars();

_root.btn.onrelease = function() else };

};write.asp

<%

dim cn

set cn = server.createobject("adodb.connection")

mycontent =trim(request("content"))                        

//接受content屬性,賦值給 mycontent

if mycontent="" then

response.redirect("write.swf")                         //如果輸入為空,則返回

end if

set rs=server.createobject("adodb.recordset")

sql="select content from test"

rs.open sql,cn,1,3

rs.addnew

rs("content")=mycontent                                     //寫入資料庫

rs.update

rs.close

set rs = nothing

cn.close

set cn = nothing

response.write("提交成功!")

%>

當然,這些只是最基礎的flash連線資料庫的方式。光掌握這些還不能寫出乙個完善的寫吧,還有很多問題會碰到,比如排列,拖動,分頁等。且聽下回分解。

實變函式 實分析總結

一 概述。實變函式,又叫實分析,整本書滿滿的證明就講了乙個勒貝格積分。最為大家所熟知的是用牛頓 萊布尼茨公式算的黎曼積分。但是黎曼積分本身依賴於函式的連續性,像不連續的狄利克雷函式就無法積分了。為了解決這一問題,勒貝格利用分割值域的方法,使得函式可積。但是分割出來的值域,只能放在一起,形式集合。如果...

NestedScrollWebview實現與優化

nestedscrollwebview實現與優化 原文如下 好久沒寫了,好像也沒什麼人關注我,呵呵,但我還是堅持寫一下,希望能幫到有需要的人!今天我來說一下nestedscrollwebview。最近在弄乙個需求,我需要用到coordinatorlayout webview 實現滾動互動效果,但要實...

saltstack keepalived實現高可用

本篇部落格承接saltstack安裝部署和saltstack grains,pillar,jinja模組的使用 建立目錄。root server1 keepalived vim files keepalived.conf configuration file for keepalived globa...