flash asp xml留言本教程_Flash教程

教程Tag：暂无Tag,欢迎添加,赚取U币!

推荐：Flash教程:一个水波效果
主要使用了遮罩和beginGradientFill来实现,对机器要求比较高,机器不是很好的朋友慎狂点...点击查看Flash:http://tinsgao.googlepages.com/wave.swf主要代码

在下载到本地或者上传到空间上之前,请到后台修改参数设置里面的地址,然后进行测试!
假如你的机器或者服务器不支持FSO,请手动修改URL.XML文件里面的地址!

ASP主要部分： page.asp (传给flash第n页的n条纪录)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% show_page = 9 ’每页显示的纪录
db = "data/data.mdb" ’数据库存放目录
’-连接数据库
set conn=server.createobject("adodb.connection")
conn.open "driver=;dbq="&server.mappath(db)
’-----------------------------------------------------------------------
’用途:将UTF-8编码汉字转为GB2312码，兼容英文和数字！
function encodestr(str)
dim i
str=trim(str)
str=replace(str,"’","""")
str=replace(str,vbCrLf&vbCrlf,"")
encodestr=replace(str,vbCrLf," ")
end function
’用途:将UTF-8编码汉字转为GB2312码，兼容英文和数字！
Function uni(Chinese)
For j = 1 to Len (Chinese)
a=Mid(Chinese, j, 1)
uni= uni & "&#x" & Hex(Ascw(a)) & ";"
next
End Function %>
<%
’假如FLASH传过来变量
if request("action")="showpage" then
’打开纪录
sql="select * from gbook order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
’---------------分页开始
if not rs.eof then
’假如有记录
rs.PageSize = show_page
total=rs.RecordCount ’共多少条记录
maxpage=rs.PageCount ’共分几页
page=request("page") ’当前页
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
else
’假如没记录
total=0
maxpage=0
page=0
out=""
wujilu="1"
’把wujilu变量传给flash,让flash知道没有记录然后做出相应的动作
’输出xml文件格式
Response.Write "<?xml version=’1.0’ encoding=’utf-8’?>"
Response.Write "<gbook total=’"&total&"’ maxpage=’"&maxpage&"’ page=’
"&page&"’ wujilu=’"&wujilu&"’></gbook>"
Session.CodePage="936"
end if
’---------------分页结束
’---------------打开 PageSize 条记录开始
if not rs.eof then
’假如有记录
for i=1 to rs.PageSize
page_id=rs("id")
page_name=uni(rs("name"))
if len(rs("title")) > 19 then ’截取字符
page_title=left(rs("title"),19)&".."’截取字符
else
page_title=rs("title")
end if
page_title=uni(page_title)
page_date=rs("date")
out=out&"<info page_id=’"&page_id&"’ page_name=’"&page_name&"’ page_title=’
"&page_title&"’ page_date=’"&page_date&"’ />"
rs.movenext
if rs.EOF then
i=i 1
Exit For
end if
next
end if
’---------------打开 PageSize 条记录结束
rs.close
set rs=nothing
conn.close
set conn=nothing’释放资源
’输出分页信息，xml格式
Response.Write "<?xml version=’1.0’ encoding=’utf-8’?>"
Response.Write "<gbook total=’"&total&"’ maxpage=’"&maxpage&"’
page=’"&page&"’>"&out&"</gbook>"
Session.CodePage="936"
end if
%>

show.asp（传给flash单条纪录的信息）

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
show_page = 9 ’每页显示的纪录
db = "data/data.mdb" ’数据库存放目录
set conn=server.createobject("adodb.connection")
conn.open "driver=;dbq="&server.mappath(db)
’-----------------------------------------------------------------------
’用途:将UTF-8编码汉字转为GB2312码，兼容英文和数字！
function encodestr(str)
dim i
str=trim(str)
str=replace(str,"’","""")
str=replace(str,vbCrLf&vbCrlf,"")
encodestr=replace(str,vbCrLf," ")
end function
Function uni(Chinese)
For j = 1 to Len (Chinese)
a=Mid(Chinese, j, 1)
uni= uni & "&#x" & Hex(Ascw(a)) & ";"
next
End Function
’------------------------------------------------------------
%>
<%
if request("action")="show" then
’打开纪录为flash传过来的第show_id条信息
sql="select * from gbook where id="&request("show_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
’uni参数,就是把gb编码转换成utf-8编码,要不然flash会乱码
show_name=uni(rs("name"))
show_id=uni(rs("id"))
show_title=uni(rs("title"))
if rs("email")<>"" then
show_email=uni(rs("email"))
end if
if rs("qq")<>"" then
show_qq=uni(rs("qq"))
end if
show_content=uni(rs("content"))
show_date=uni(rs("date"))
out=out&"<info show_name=’"&show_name&"’ show_id=’"&show_id&"’
show_title=’"&show_title&"’ show_email=’"&show_email&"’ show_qq=’
"&show_qq&"’ show_content=’"&show_content&"’ show_date=’"&show_date&"’ />"
rs.close
set rs=nothing
conn.close
set conn=nothing
’输出xml格式
Response.Write "<?xml version=’1.0’ encoding=’utf-8’?>"
Response.Write "<gbook>"&out&"</gbook>"
end if
%>

add.asp（flash传给asp增加纪录）

<%
show_page = 9 ’每页显示的纪录
db = "data/data.mdb" ’数据库存放目录
set conn=server.createobject("adodb.connection")
conn.open "driver=;dbq="&server.mappath(db)
’-----------------------------------------------------------------------
’用途:将UTF-8编码汉字转为GB2312码，兼容英文和数字！
function encodestr(str)
dim i
str=trim(str)
str=replace(str,"’","""")
str=replace(str,vbCrLf&vbCrlf,"")
encodestr=replace(str,vbCrLf," ")
end function
Function uni(Chinese)
For j = 1 to Len (Chinese)
a=Mid(Chinese, j, 1)
uni= uni & "&#x" & Hex(Ascw(a)) & ";"
next
End Function
’------------------------------------------------------------
%>
<%
Session.CodePage="65001"
if encodestr(request("action"))="add" then’假如flash传过来的变量是add
if encodestr(request("w_name"))="" then’假如w_name等于空
cuowu="n"
response.write"&addok=" cuowu ’
elseif encodestr(request("w_title"))="" then ’假如标题空
cuowu="t"
response.write"&addok=" cuowu
elseif encodestr(request("w_content"))="" then’假如留言内容空
cuowu="c"
response.write"&addok=" cuowu
end if
if cuowu="" then ’假如姓名,标题,留言内容不为空
sql="select * from gbook "
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,3
rs.addnew ’增加纪录
rs("name")=encodestr(request("w_name"))
rs("title")=encodestr(request("w_title"))
if encodestr(request("w_email"))="" then
rs("email")=null
else
rs("email")=encodestr(request("w_email"))
end if
if encodestr(request("w_qq"))="" then
rs("qq")=null
else
rs("qq")=encodestr(request("w_qq"))
end if
rs("content")=encodestr(request("w_content"))
rs("date")=date()
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write"&addok=ok" ’返回给flash 留言成功
end if
end if
Session.CodePage="936"
%>

FLASH部分:
留言列表

读取单条纪录

gbtitle.removeMovieClip();//卸载留言列表
_global.zhen="read";
function Page(index)
{
//把asp传来的变量传给动态文本
show_id = "ID:" read[index].attributes.show_id;
show_name = "留言者:" read[index].attributes.show_name;
show_title = "标题:" read[index].attributes.show_title;
show_qq = "QQ:" read[index].attributes.show_qq;
show_email = "E-mail:" read[index].attributes.show_email;
show_content = read[index].attributes.show_content;
show_date = "发表时间:" read[index].attributes.show_date;
} // End function
showXML = new XML();
showXML.ignoreWhite = true;
showXML.load(gbookurl "show.asp?action=show&show_id=" go_id "&temp="
Math.random() * Number(getTimer()));
showXML.onLoad = function (success)
{
if (success)
{
//假如加载成功
_root.xiaoxikuang.xiaoxi = "正在加载数据,请等待...";
read = showXML.firstChild.childNodes;
Total = read.length;
Page(0);
gotoAndPlay(79);
}
else
{
gotoAndPlay("error");
//假如加载失败
_root.xiaoxikuang.xiaoxi = "无法连接到数据库，请检测网络连接";
} // end if
};// end function

写纪录

主要用到的代码就这些,还可以把后台治理功能加在flash里面,但是因为我正在工作,没有时间,所以就做了一个简单的留言本!

分享：Flash制作鼠标滑过文字产生光效果动画
效果：学习鼠标划过文字产生的特效。01、新建flash文档，背景色：645646，帧频30，大小：150*50。02、【文件】【导入】【导入到舞台】导入一幅位图。（原文

来源：闪吧/所属分类：Flash教程/更新时间：2008-03-05

[收藏][报错][返回列表]

flash asp xml留言本教程_Flash教程

Flash在线视频教程 Flash视频教程打包下载

Flash教程Rss订阅网站制作教程搜索

Flash教程推荐

猜你也喜欢看这些