快速业务通道

flash+asp+xml留言本教程

作者 佚名技术 来源 服务器技术 浏览 发布时间 2012-07-08

演示地址 源文件下载 在下载到本地或者上传到空间上之前,请到后台修改参数设置里面的地址,然后进行测试! 如果你的机器或者服务器不支持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={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
''用途:将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" '

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

分享到: 更多

Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved

地址(ADD):厦门软件园二期望海路63号701E(东南融通旁) 邮编(ZIP):361008

电话:0592-5908028 传真:0592-5908039 咨询信箱:web@lingzhong.cn 咨询OICQ:173723134

《中华人民共和国增值电信业务经营许可证》闽B2-20100024  ICP备案:闽ICP备05037997号