User-668204308 posted
Hey all. Here's some code I developed since I've grown tired of wasting time by typing down the page's name when I want to go to the same page and inserting weird code like "?id=" just to get sent to a new page with querystring attached. I thought I
could share it since it's become really useful to me by saving lots of typing time.
This allows you to redirect yourself to a new page with or without QueryString (by passing the value down in the second field of the sub) or to the same page you're in by typing "myself" on the first field of the sub.
This only allows ONE querystring value.
-------------------------------
Public
Class
Travel
Shared Sub Into(ByVal destiny As String, Optional ByVal valuetotransport As String = "")
If Trim(LCase(destiny)) <> "myself" And Trim(LCase(destiny)) <> "" Then
If valuetotransport <> "" Then
HttpContext.Current.Response.Redirect(destiny + "?value=" + valuetotransport)
Else
HttpContext.Current.Server.Transfer(destiny)
End If
ElseIf Trim(LCase(destiny)) = "myself" And Trim(LCase(destiny)) <> "" Then
If valuetotransport <> "" Then
HttpContext.Current.Response.Redirect(GetCurrentPageName() + "?value=" + valuetotransport)
Else
HttpContext.Current.Server.Transfer(GetCurrentPageName())
End If
End If
End Sub
Shared Function GetCurrentPageName() As String
Dim sPath As String = System.Web.HttpContext.Current.Request.Url.AbsolutePath
Dim oInfo As System.IO.FileInfo = New System.IO.FileInfo(sPath)
Dim sRet As String = oInfo.Name
Return sRet
End Function
End Class
-----------------------------------------
