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 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢! |
你可能对下面的文章感兴趣
上一篇: 在FLASH中轻松画花教程下一篇: FLASH 实现动态模糊效果
关于flash+asp+xml留言本教程的所有评论