getparam.asp
来自「Active Server Pages 网页制作教程看之前请传到ASP空间。或者」· ASP 代码 · 共 24 行
ASP
24 行
<%
Params = Request.ServerVariables("QUERY_STRING")
ParamList = Split( Params, "&" )
ReDim Name(UBound(ParamList)), Data(UBound(ParamList))
For I = 0 To UBound(ParamList)
X = Split(ParamList(I), "=")
Name(I) = X(0)
Data(I) = X(1)
Next
%>
<HTML>
<BODY>
<H2>读取附带在网址后面的参数<HR></H2>
<BLOCKQUOTE>
<%
For I = 0 To UBound(ParamList)
Response.Write Name(I) & " = " & Data(I) & "<P>"
Next
%>
</BLOCKQUOTE>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?