ajax异步交付留言并不刷新本页显示出来

ajax异步提交留言并不刷新本页显示出来。
显示留言部分我是通过JQUERY的ajax调用显示的：

<div id="pmessage">
<script>repmessloading('<%=aum%>');</script>
</div>

function repmessloading(d)
{
$("#pmessage").html("<P style='text-align:center'><img src='lgwimages/loading.gif'>正在加载..</P>")
$.post("lgwinc/ajax_function.asp",{id:d,apart:"pmessloading"},function(result){
$("#pmessage").html(result);
});
}

留言部分也是通过ajax异步提交的：

<p>请留言：</p>
<form name="pmess" method="post"><input name="pnum" id="pnum" value="<%=aum%>" type="hidden" />
<textarea class="txtarea" name="content" id="content"></textarea>
<input type="submit" value="" class="mess" id="pemssbut" onClick="return chkpromess()"/>
<span id="errtxt"></span>
</form>

function chkpromess()
{
if($("#content").val()=="")
{
$("#errtxt").html('请您输入留言内容');
$("#content").focus();
return false;
}
else
{
var d=$("#paum").val();
var con=$("#content").val();
$.post("lgwinc/ajax_function.asp",{id:d,apart:"pmess",content:escape(con)},function(result){
$("#errtxt").html(result);
});
return true;
}
}

远程调用asp文件部分：

sub pmess()
pid=request("id")
if pid="" then
response.Write "服务繁忙，请您稍候再试"
response.End()
end if
con=VbsUnEscape(request("content"))
if con="" then
response.Write "请您输入留言内容"
response.End()
end if
if request.Cookies("vip")("vid")="" or request.Cookies("vip")("vst")="" then
response.Write "请您先登录"
response.End()
end if
set ajax_rs=server.CreateObject("adodb.recordset")
ajax_rs.open "select * from dh_project_message",conn,1,3
ajax_rs.addnew
ajax_rs("content")=con
ajax_rs("vipid")=request.Cookies("vip")("vid")
ajax_rs("projectid")=pid
ajax_rs("checktime")=now()
ajax_rs.update
ajax_rs.close
set ajax_rs=nothing
response.Write "<script>repmessloading("&pid&");</script>"
response.End()
end sub

sub pmessloading()
pid=request("id")
if pid="" then
response.Write "服务繁忙，请稍候再试.."
response.End()
end if
set ajax_rs=server.CreateObject("adodb.recordset")
ajax_rs.open "select * from dh_project_message where projectid="&pid&"",conn,1,1
i=1
do while not ajax_rs.eof
if i mod 2 =0 then
bgstr=""
else
bgstr="bgcolor='#e6e6e6'"
end if
set ajax_rk=server.CreateObject("adodb.recordset")
ajax_rk.open "select * from dh_vip where id="&rs("vipid")&"",conn,1,1
if ajax_rk("sort")=1 then
ctxt="设计师："&ajax_rk("tname")&"<img src='images/grade"&ajax_rk("grade")&".gif'>"
elseif ajax_rk("sort")=2 then
ctxt="雇主："&ajax_rk("tname")&""
end if
ajax_rk.close
set ajax_rk=nothing
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" <%=bgstr%> style="margin-bottom:5px;">
<tr>
<td style="padding:3px;"><b><%=ctxt%></b></td>

</tr>
<tr>
<td style="padding-left:3px;">  <%=ajax_rs("content")%></td>
</tr>
</table>
<%
ajax_rs.movenext
i=i+1
loop
ajax_rs.close
set ajax_rs=nothing
end sub
%>

我想的是无刷新显示留言内容通过response.Write "<script>repmessloading("&pid&");</script>"
再一次的调用JS函数但是好像没效果
是不是ajax异步返回服务器的数据不能这样写？
望高人指点一二谢谢。

[解决办法]
设置innerHTML为带script的脚本不会运行script里面的脚本的。需要用正则取出脚本代码然后eval执行，不过你这个不用这么麻烦，直接在添加成功的回调函数里面再启动ajax就好了啊

JScript code

function chkpromess(){if($("#content").val()==""){$("#errtxt").html('请您输入留言内容');$("#content").focus();return false;}else{var d=$("#paum").val();var con=$("#content").val();$.post("lgwinc/ajax_function.asp",{id:d,apart:"pmess",content:escape(con)},function(result){  $("#errtxt").html(result);  repmessloading($('#pnum').val());///////////});return true;}}
[解决办法]
无刷新更新数据什么意思？就是隔一段时间更新一下评论？

如果是启动几个计时器定时从服务器下载评论数据就好了
JScript codewindow.onload=function(){  setInterval(function(){repmessloading($('#pnum').val());},30000);//30s启动一次}

ajax异步交付留言并不刷新本页显示出来

热点推荐