flash+asp+xml留言本教程
作者 佚名技术
来源 服务器技术
浏览
发布时间 2012-07-08
| '数据库存放目录 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")=encod |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: 在FLASH中轻松画花教程下一篇: FLASH 实现动态模糊效果
关于flash+asp+xml留言本教程的所有评论
