Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '在此处放置初始化页的用户代码 If Trim(Request.QueryString("id")) <> "" Then Dim idone As Integer = Trim(Request.QueryString("id")) Response.Write("<script language='javascript'>setTimeout(""{location.href='list.aspx?id=" & idone & "'}"",4000);</script>") lblerror.Text = "【正在跳转页面!5秒后将跳转到您回复的帖子页面!如果在5秒内没有跳转到页面,请按下面连接!】" hylink1.Text = "〖点这里返回〗" hylink1.NavigateUrl = "list.aspx?id=" & idone hylink2.Text = "〖点这里返回首页〗" hylink2.NavigateUrl = "index.aspx" End If End Sub请参考
'在此处放置初始化页的用户代码
If Trim(Request.QueryString("id")) <> "" Then
Dim idone As Integer = Trim(Request.QueryString("id"))
Response.Write("<script language='javascript'>setTimeout(""{location.href='list.aspx?id=" & idone & "'}"",4000);</script>")
lblerror.Text = "【正在跳转页面!5秒后将跳转到您回复的帖子页面!如果在5秒内没有跳转到页面,请按下面连接!】"
hylink1.Text = "〖点这里返回〗"
hylink1.NavigateUrl = "list.aspx?id=" & idone
hylink2.Text = "〖点这里返回首页〗"
hylink2.NavigateUrl = "index.aspx"
End If
End Sub请参考