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 + -
显示快捷键?