Advanced Search

VB.NET Add and Remove Querystring Variables

/ Published in: VB.NET
Save to your folder(s)

Expand | Embed | Plain Text

Copy this code and paste it in your HTML 
  1. Public Function AddQuerystringVar(ByVal strURL As String, ByVal QuerystringKey As String, ByVal QuerystringValue As String) As String
  2.     strURL = RemoveQuerystringVar(strURL, QuerystringKey) ' Remove value if already in URL
  3.     If InStr(strURL, "?") = 0 Then
  4.         Return strURL + "?" + QuerystringKey + "=" + QuerystringValue
  5.     Else
  6.         Return strURL + "&" + QuerystringKey + "=" + QuerystringValue
  7.     End If
  8. End Function
  9.  
  10. Public Function RemoveQuerystringVar(ByVal strURL As String, ByVal QuerystringKey As String) As String
  11.     Dim re As New Regex("(.*)(\?|&)" + QuerystringKey + "=[^&]+?(&)(.*)", RegexOptions.IgnoreCase)
  12.     strURL = re.Replace(strURL + "&", "$1$2$4")
  13.     strURL = Mid(strURL, 1, (strURL.Length - 1))
  14.     Return strURL
  15. End Function

Report this snippet


Comments

RSS Icon Subscribe to comments

You need to login to post a comment.