Question

求asp页面刷新代码

我想刷新的是留言页面，我的发表留言和显示留言在一个页面了，当我点击提交留言的时候，会在当前页面把刚刚提交的留言内容显示出来，而不是手动刷新后，才浏览出来，而且手动刷新后，会把同样的信息在添加一遍，请问该代码怎么写啊，这是我的代码

<%
if request("body")<>"" and request("body")<>"我也说一句" then
dim username
username=session("username")
if session("username")<>"" then
dim Bcontent
Bcontent=request("body")
Set rs = Server.CreateObject("ADODB.Recordset")
set rs01=conn.execute("select personID from person where personname='" &username&"'")
session("personID")=rs01("personID")
personID=session("personID")
sql="insert into bbs(personID,Bcontent,submit_date) values('"& personID&"','"&Bcontent&"',getdate())"
rs.open sql,conn,3,3
'Response.write "<script>top.location.reload()</script>"
end if
end if

%>

Answer 1

<%
if request("body")<>"" and request("body")<>"我也说一句" then
dim username
username=session("username")
if session("username")<>"" then
dim Bcontent
Bcontent=request("body")
Set rs = Server.CreateObject("ADODB.Recordset")
set rs01=conn.execute("select personID from person where personname='" &username&"'")
session("personID")=rs01("personID")
personID=session("personID")
sql="insert into bbs(personID,Bcontent,submit_date) values('"& personID&"','"&Bcontent&"',getdate())"
rs.open sql,conn,3,3
response.Redirect("bbs.asp")
end if
end if

%>

Answer 2

<%
if request("body")<>"" and request("body")<>"我也说一句" then
dim username
username=session("username")
if session("username")<>"" then
dim Bcontent
Bcontent=request("body")
Set rs = Server.CreateObject("ADODB.Recordset")
set rs01=conn.execute("select personID from person where personname='" &username&"'")
session("personID")=rs01("personID")
personID=session("personID")
sql="insert into bbs(personID,Bcontent,submit_date) values('"& personID&"','"&Bcontent&"',getdate())"
rs.open sql,conn,3,3
response.Redirect(request.servervariables("HTTP_REFERER"))
end if
end if

%>