ASP jQuery AJAX无刷新评论

jquery真的是一个非常优秀的JS库，简单容易掌握，对于网页中的多级菜单、级联效果、Tab选项卡切换、图片轮转显示，实现起来都非常的简单，往往就是几句代码的事。

做AJAX应用，jquery提供的$.get()、$.post()函数都可以用于提交数据，但建议使用$.ajax()来提交，那两个函数都不提供错误返回信息，不利全面掌控。

看代码实现，这里我删减了一部分，便于说明(comments.asp)：

$(function(){　　//页面初始化时获取评论内容　　getComments(1);});//获取评论内容function getComments(pageno){　　$.ajax({　　　　type:"GET",　　　　url:"proc_comments.asp",　　　　data:"action=getComments&id=44&page="+pageno+"&num="+Math.round(Math.random()*10000),　　　　error:function(){$("#comm_list table tr td").html("获取评论信息失败");},　　　　success:function(comments_data){　　　　　　$("#comm_list").html(comments_data);　　　　}　　});}　　//添加评论到数据库，同时更新显示，注意escape编码后提交function addComments(){　　if($.formValidator.pageIsValid()){　　　　$.ajax({　　　　　　type:"POST",　　　　　　url:"proc_comments.asp",　　　　　　data:"action=addcomments&id=44&comm_user="+escape($("#comm_user").val())+"&comm_content="+escape($("#comm_content").val()),　　　　　　success:function(){　　　　　　　　getComments(1);　　　　　　}　　　　});　　}}

这里的$.formValidator.pageIsValid()猫东的表单验证插件的一个表单验证函数，我用button替代了原有的submit，在它的onclick事件中添加addComments()函数提交评论，为避免空提交，这里提交前先做验证。

提交数据是action代表要执行的操作，id传递文章id，page是请求的分页页面，Math.round(Math.random()*10000)防止页面被浏览器缓存而导致暂时无法刷新，如果出错显示错误信息

客户端用escape()函数编码含中文的字符串，服务器端用unescape()解码，这样做是为了防止乱码，如果你采用的是utf8，那就不必了，设置正确的页面编码和服务端脚本编码就不会出问题。由于jquery默认使用utf8传输数据，而且不提供设置编码，这里只有自己做转换，如果你用form插件的时候就会发现，编码问题是不能回绝的，看来以后得向utf8看起了，呵呵！

看以下处理代码,长了点，不过就三个函数，一个分支语句(proc_comments.asp)：

<!--#include file="conn.asp"--><%response.charset="gb2312"dim action,idaction=Lcase(trim(Request("action")))id=trim(Request("id"))select case actioncase "getcomments"　　dim pageno　　pageno=trim(Request.QueryString("page"))　　call getComments(id,pageno)case "addcomments"　　addComments(id)case else　　Response.Write "else"end selectFunction IIf(bExp1, sVal1, sVal2)　　If (bExp1) Then　　　　IIf = sVal1　　Else　　　　IIf = sVal2　　End IfEnd Function'操作数据库返回评论内容，包含了分页的显示function getComments(id,page)tempstr1="<div class=""comm_item"">" & vbcrlf &_　　　　"<h4>网友：{$comm_user$} 发表于 {$comm_pubdate$}</h4>" & vbcrlf &_　　　　"<div class=""comm_item_body"">{$comm_content$}" & vbcrlf &_　　　　"</div>" & vbcrlf & "</div>" & vbcrlftempstr2="<table width=590 height=292 border:1px solid #CCC;margin:5px 5px;""><tr><td align=center>暂无人发表评论</td></tr></table>"dim rethtmlopenConn(dbfile)sqlstr="select * from comments where comm_pid=" & id & " order by comm_subdate desc"'sqlstr="select * from comments"call openRS(sqlstr,1)dim rscnt:rscnt=rs.recordcountdim pagesize:pagesize=3dim pagenumif (rscnt mod pagesize)=0 then　　pagenum=rscnt/pagesizeelse　　pagenum=Int(rscnt/pagesize)+1end ifIf not(rs.bof and rs.eof) Then　　dim swaphtml,cnt　　rs.pagesize=3　　rs.absolutepage=page　　cnt=rs.pagesize　　do while not rs.eof and cnt>0　　　　cnt=cnt-1　　　　swaphtml=tempstr1　　　　swaphtml=replace(swaphtml,"{$comm_user$}",rs("comm_user"))　　　　swaphtml=replace(swaphtml,"{$comm_pubdate$}",rs("comm_subdate"))　　　　swaphtml=replace(swaphtml,"{$comm_content$}",rs("comm_content"))　　　　rethtml=rethtml & swaphtml　　　　rs.movenext　　loopelse　　rethtml=tempstr2End IfcloseRS()closeConn()'显示分页相关信息If rscnt>0 then　　pagehtml="<div class=""comm_page"">已有{$rscnt$}条评论 {$link_list$}</div>"　　pagehtml=replace(pagehtml,"{$rscnt$}",rscnt)　　If pagenum>1 then　　　　for i=1 to pagenum　　　　　　linkhtml=linkhtml & IIf(i=page,i & " ","<a href=""javascript:getComments(" & i & ")"">" & i & "</a> ")　　　　next　　else　　　　linkhtml=""　　end if　　pagehtml=replace(pagehtml,"{$link_list$}",linkhtml)　　rethtml=rethtml & pagehtmlEnd ifResponse.Write rethtmlend function　　'处理提交的评论，添加到数据库，注意先unescape解码，否则乱码function addComments(id)openConn(dbfile)sqlstr="insert into [comments](comm_user,comm_content,comm_pid) values('" &_　　　　 unescape(trim(Request.Form("comm_user"))) & "','" & unescape(trim(Request.Form("comm_content"))) & "'," & id & ")"conn.execute(sqlstr)closeConn()end function%>

IIf()是一个简化函数，getComments()返回评论信息，有两个参数，文章id和分页编码，addComments()添加评论，很容易就完成了