今天,由我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...