ASP jQuery AJAX无刷新评论

做公司网站时的一个应用，用猫东的表单验证插件做实时的验证，和jquery的ajax提交数据，获取评论的时候加入简单的分页

原理很简单，注意一下编码问题就行了

实现了获取评论无刷新，发表评论无刷新，页面获取评论时显示loading加载效果

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,id
action=Lcase(trim(Request("action")))
id=trim(Request("id"))
select case action
case "getcomments"
    dim pageno
    pageno=trim(Request.QueryString("page"))
    call getComments(id,pageno)
case "addcomments"
    addComments(id)
case else
    Response.Write "else"
end select

Function IIf(bExp1, sVal1, sVal2)
    If (bExp1) Then
        IIf = sVal1
    Else
        IIf = sVal2
    End If
End 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>" & vbcrlf
tempstr2="<table width=590 height=292 border:1px solid #CCC;margin:5px 5px;""><tr><td align=center>暂无人发表评论</td></tr></table>"

dim rethtml
openConn(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.recordcount
dim pagesize:pagesize=3
dim pagenum
if (rscnt mod pagesize)=0 then
    pagenum=rscnt/pagesize
else
    pagenum=Int(rscnt/pagesize)+1
end if
If 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
    loop
else
    rethtml=tempstr2
End If
closeRS()
closeConn()
'显示分页相关信息
If rscnt>0 then
    pagehtml="<div class=""comm_page"">已有{$rscnt$}条评论&nbsp;{$link_list$}</div>"
    pagehtml=replace(pagehtml,"{$rscnt$}",rscnt)
    If pagenum>1 then
        for i=1 to pagenum
            linkhtml=linkhtml & IIf(i=page,i & "&nbsp","<a href=""javascript:getComments(" & i & ")"">" & i & "</a>&nbsp;")
        next
    else
        linkhtml=""
    end if
    pagehtml=replace(pagehtml,"{$link_list$}",linkhtml)
    rethtml=rethtml & pagehtml
End if
Response.Write rethtml
end 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()添加评论，很容易就完成了，源码贴上了：

代码：comments.rar

不赘述了，IE8写文章太麻烦了，编辑器问题太多了。