怎么样反回当前页！！！

我做的是一个论坛回复页，当回复以后就跳转到这个帖子页面，该怎么做呢？？<%@ Page  Debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script language="VB" runat="server">

    Sub Page_Load(ByVal Sender As Object, ByVal E As EventArgs)
        
        If Not Page.IsPostBack Then
            bbs_id.Text = Request.QueryString("bbs_id")
            Call BindData()
        End If
        If Session("user_name") = "" Then
            Enter.Visible = False
            tab.Visible = False
        Else
            Enter.Visible = True
            tab.Visible = True
        End If
    End Sub
    Sub BindData()
        Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data.mdb"))
        Dim cmd As New OleDbCommand("select * from bbs Where bbs_id=" & bbs_id.Text & " Or father_id=" & bbs_id.Text & " order by submit_date", conn)
        conn.Open()
        Dim dr As OleDbDataReader = cmd.ExecuteReader()
        MyRepeater.DataSource = dr
        MyRepeater.DataBind()                                            
    End Sub    Sub Enter_Click(ByVal Sender As Object, ByVal E As EventArgs)
        Dim conn1 As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data.mdb"))
        '获取有关数据
        ''----------------------------------------------------------------------------------------------------------------------------       
        'Dim cmdhf As New OleDbCommand("select * from link where name='" & Session("username") & "' and  username='fb'", conn)
        'conn.Open()
        'Dim dr As OleDbDataReader = cmdhf.ExecuteReader
        'If dr.Read() Then
        '    Exit Sub
        'End If
        ''---------------------------------------------------------------------------------------------------------  
        Dim thetitle, thebody, layer, father_id, child, hits, ip, forum_id, faces
        thetitle = title.Text
        thebody = body.Text
        layer = 2
        father_id = bbs_id.Text
        child = 0
        hits = 0
        ip = Request.ServerVariables("remote_addr")
        faces = Session("face")
        forum_id = Session("forum_id")        '建立SQL字符串
        Dim strA, strB, strSql As String
        strA = "Insert Into bbs(title,faces,layer,user_id,father_id,child,hits,ip,submit_date,forum_id"
        strB = " Values('" & thetitle & "','" & faces & "'," & layer & ",'" & Session("user_name") & "'," & father_id & "," & child & "," & hits & ",'" & ip & "',#" & Now() & "#," & forum_id
        If Trim(body.Text) <> "" Then
            strA = strA & ",body"
            strB = strB & ",'" & thebody & "'"
        End If
        strSql = strA & ")" & strB & ")"
        Dim cmd As New OleDbCommand(strSql, conn1)
        Dim Exp As Exception
        Try     
            conn1.Open()
            cmd.ExecuteNonQuery()
            strSql = "update bbs Set child=child+1 Where bbs_id=" & bbs_id.Text
            cmd.CommandText = strSql
            cmd.ExecuteNonQuery()
            Response.Redirect("bbs.aspx")
        Catch Exp
            message.Text = "发生错误，没有正常插入记录"
        End Try
    End Sub
</script>
<html>
<head>
<script language="javascript" type="text/javascript">
// <!CDATA[function AutoNumber1_onclick() {}// ]]>
</script>
</head>
<body >
<br />
    <br /><br /> <br /><br /> <br /><br /><br /> <br /><br /> <br /> <br />     
<center>
<asp:Repeater id="MyRepeater" runat="server" >
<headerTemplate>
<table border="1" cellpadding="2"  cellspacing="0" style="border-collapse: collapse"  width="75%" id="AutoNumber1" >
</headerTemplate>
<ItemTemplate>
<tr bgcolor="#C5EDE7">
<td width="20%" align="center">
发言人：<asp:HyperLink Text='<%# Container.DataItem("user_id") %>'  runat="server"/>
</td>
<td>
&nbsp&nbsp&nbsp&nbsp发布时间：<%# Container.DataItem("submit_date") %>
&nbsp&nbsp点击：<%# Container.DataItem("hits") %>次</font></I>
</td>
</tr>
<tr>
<td>
<asp:Image ID="image1" ImageUrl ='<%# "faces/" & Container.DataItem("faces") %>' runat ="server" />
</td>
<td>  
<b><font><%# Container.DataItem("title") %></font></b>
<p>
<p><font><%# Container.DataItem("body") %></font> 
</td>
  </tr>
</ItemTemplate>
<footerTemplate>
</table>
</footerTemplate>
</asp:Repeater>
<p>
<asp:panel id="tab" runat="server" Visible="false"   > <table   border="1" cellpadding="2" bgcolor="#e1f3f4" cellspacing="0" style="border-collapse: collapse; width: 74%; background-color: transparent;" bordercolor="#80bfff" id="AutoNumber1" >
<form runat="server">
<tr>
<td>主题：</td>
<td style="width: 515px">
<asp:textbox id="title" columns="60" runat="server" style="background-color: transparent"/>
</td>
</tr>
<tr>
<td>内容：</td>
<td style="width: 515px">
<asp:Textbox id="body" Textmode="multiline" columns="60" rows="4" runat="server" style="background-color: transparent"/>
</td>
</tr>

<tr>
<td style="height: 27px"><asp:textbox id="bbs_id" visible="False" runat="server" style="background-color: transparent"/></td>
<td style="width: 515px; height: 27px;">
<asp:button id="Enter" text="  回复  " Visible="false"   onclick="Enter_Click" runat="server" style="background-color: transparent" />
</td>
</tr>
</form>
        </table></asp:panel>
<asp:label id="message" runat="server" />
<p style="font-size: x-large"><a href="bbs.aspx">返回</a>
</center>

</body>
</html>