4-5.aspx

来自「asp做的新闻系统」· ASPX 代码 · 共 18 行

ASPX
18
字号
<Html>
<Script Language="VB" Runat="Server">
    Sub Page_Load(Sender As Object,e As Eventargs)
      Dim shtLoop1, shtLoop2 As Short
      Dim arA(), arB() As String
      Dim colA As NameValueCollection
      colA=Request.QueryString
      arA = colA.AllKeys ' 取得全部的键值并存到一个数组中
      For shtLoop1 = 0 To UBound(arA)
      Response.Write("参数名:" & arA(shtLoop1))
      arB = colA.GetValues(shtLoop1) ' 利用外循环的索引来取得参数内容并存到一个数组中
      For shtLoop2 = 0 To UBound(arB)
      Response.Write(" 内容:" & arB(shtLoop2) & "<br>")
      Next shtLoop2
      Next shtLoop1
    End Sub
</Script>
</Html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?