test

以后代码放在这样的Frame里，比较醒目一点，诗也可以放在里面，虽然最近没有写什么

     Private   Sub Page_Load() Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim stemp As String = Server.UrlDecode(Request.QueryString.ToString())
        If (stemp.Chars(stemp.Length - 1) = "/"c) Then
            Server.Transfer("/")
        Else
            stemp = stemp.Substring(stemp.IndexOf(";") + 1)
            Response.Redirect(stemp & "/")
        End If
    End Sub