📄 4-7.aspx
字号:
<%@ Page language="VB" %>
<HTML>
<TITLE>[例4-7]获取服务器环境变量</TITLE>
<%
Dim i, j As Integer
Dim key(), value() As String
Dim namevalue As NameValueCollection
namevalue=Request.ServerVariables
key = namevalue.AllKeys
For i = 0 To key.GetUpperBound(0)
Response.Write("环境变量: " & key(i) & "<br>")
value = namevalue.GetValues(i)
For j = 0 To value.GetUpperBound(0)
Response.Write("值: " & CStr(j) & ": " & value(j) & "<br>")
Next j
Response.Write("<HR>")
Next i
%>
<BODY>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -