?? 4-7.aspx
字號:
<%@ Page language="VB" %>
<HTML>
<TITLE>[例4-7]獲取服務(wù)器環(huán)境變量</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("環(huán)境變量: " & 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>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -