flash+asp+xml留言本教程

   源文件下载地址

   在下载到本地或者上传到空间上之前,请到后台修改参数设置里面的地址,然后进行测试!

   如果你的机器或者服务器不支持FSO,请手动修改URL.XML文件里面的地址!

ASP主要部分：

page.asp （传给flash第n页的n条纪录)

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

＜%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
＜%
show_page = 9 '每页显示的纪录
db = "data/data.mdb" '数据库存放目录
set conn=server.createobject（"adodb.connection")
conn.open "driver={microsoft access driver （*.mdb)};dbq="&server.mappath（db)
'-----------------------------------------------------------------------
'用途:将UTF-8编码汉字转为GB2312码，兼容英文和数字！
function encodestr（str)
dim i
str=trim（str)
str=replace（str,"'","""")
str=replace（str,vbCrLf&vbCrlf,"＜/p>＜p>")
encodestr=replace（str,vbCrLf,"＜br>")
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={microsoft access driver （*.mdb)};dbq="&server.mappath（db)
'-----------------------------------------------------------------------
'用途:将UTF-8编码汉字转为GB2312码，兼容英文和数字！
function encodestr（str)
dim i
str=trim（str)
str=replace（str,"'","""")
str=replace（str,vbCrLf&vbCrlf,"＜/p>＜p>")
encodestr=replace（str,vbCrLf,"＜br>")
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"
%>