メモ
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim q As NameValueCollection = Request.QueryString Dim kc = q.Keys For Each s As String In kc 'todo:xss warning - QueryString Response.Write(s & "=" & q(s) & "<br>") Next End Sub