asp+ajax打造无刷新新闻评论系统

核心提示： function fb() //处理提交 { var msg=document.getElementById("msg"); var user=document.getElementById("user"); var content=document

　　function fb() //处理提交
　　 {
　　 var msg=document.getElementById("msg");
　　 var user=document.getElementById("user");
　　 var content=document.getElementById("content")
　　 var newsid=document.getElementById("newsid")
　　 if (user.value=="")
　　 {
　　 alert("呢称不可为空!");
　　 return false;
　　 }
　　 if (content.value=="")
　　 {
　　 alert("内容不可为空!");
　　 return false;
　　 }
　　 msg.innerText="正在发表评论";
　　 loadXML("get","pl_fb.asp?user="+user.value+"&content="+content.value+"&newsid="+newsid.value,getfb);
　　 }
　　 function getfb(xmlDom) //评论提交后所触发的事件，更新评论列表
　　 {
　　 var msg=document.getElementById("msg");
　　 msg.innerText=xmlDom.responseText;
　　 loadXML("get","pl_list.asp",getList);
　　 }

服务器处理程序

根据JS代码页的分段介绍，我们了解此系统的功能大致包括评论的显示处理、评论的删除处理、评论的提交处理三个功能，那么我们就根据这三个功能分别介绍。

评论的显示处理页面：pl_list.asp

此程序为asp生成xml文件，通过分页的方式将评论的内容以XML的形式呈现出来，我们可以单独运行。

代码：

　　〈!--#include file="conn.asp"--〉
　　 〈%
　　 Response.ContentType = "text/XML"
　　 Response.expires = 0
　　 Response.expiresabsolute = Now() - 1
　　 Response.addHeader "pragma", "no-cache"
　　 Response.addHeader "cache-control", "private"
　　 Response.CacheControl = "no-cache"
　　 Response.write("〈?xml version=""1.0"" encoding=""gb2312""?〉")
　　 currentpage=request("page")
　　 if currentpage="" or int(currentpage)=0 then currentpage=1
　　 set rs=server.createobject("adodb.recordset")
　　 sql="select * from pl order by id desc"
　　 rs.cursorlocation=3
　　 rs.open sql,conn,1,1
　　 if not rs.bof or not rs.eof then
　　 rs.pagesize=5
　　 rs.absolutepage=currentpage
　　 rowcount=rs.pagesize
　　 Response.write("〈pl tot='"&rs.recordcount&"' curpage='"¤tpage&"'〉")
　　 do while not rs.eof and rowcount〉0
　　 Response.write("〈pllist〉")
　　 Response.write("〈user〉"&rs("user")&"〈/user〉")
　　 Response.write("〈dateandtime〉"&rs("dateandtime")&"〈/dateandtime〉")
　　 Response.write("〈content〉"&rs("content")&"〈/content〉")
　　 Response.write("〈id〉"&rs("id")&"〈/id〉")
　　 Response.write("〈/pllist〉")
　　 rowcount=rowcount-1
　　 rs.movenext
　　 loop
　　 else
　　 Response.write("〈pl tot='"&rs.recordcount&"' curpage='"¤tpage&"'〉")
　　 end if
　　 rs.close
　　 set rs=nothing
　　 response.write("〈/pl〉")
　　 %〉

Conn.asp 数据库连结文件，在删除与提交处理中同样使用