http://nfex.ru/index.php?action=history&feed=atom&title=ASP.Net%2FServer%2FServer_Variables
ASP.Net/Server/Server Variables - История изменений
2026-04-29T19:46:13Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://nfex.ru/index.php?title=ASP.Net/Server/Server_Variables&diff=2399&oldid=prev
в 15:30, 26 мая 2010
2010-05-26T15:30:47Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 15:30, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>
http://nfex.ru/index.php?title=ASP.Net/Server/Server_Variables&diff=2400&oldid=prev
Admin: 1 версия
2010-05-26T11:53:49Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==All Request Server Variables (VB.net)==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="csharp"><br />
<%@ Page Language=VB Debug=true %><br />
<script runat=server><br />
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)<br />
Dim NameArray() As String<br />
Dim VisitorSV As NameValueCollection<br />
Dim I as Integer<br />
VisitorSV = Request.ServerVariables<br />
NameArray = VisitorSV.AllKeys<br />
For I = 0 To UBound(NameArray)<br />
lblMessage.Text = lblMessage.Text _<br />
& NameArray(I) & ": " _<br />
& VisitorSV.Item(I) & "<BR>"<br />
Next<br />
End Sub<br />
</SCRIPT><br />
<HTML><br />
<HEAD><br />
<TITLE>Server Variables Page</TITLE><br />
</HEAD><br />
<BODY LEFTMARGIN="40" TOPMARGIN="30"><br />
<form runat="server"><br />
<asp:Label<br />
id="lblMessage"<br />
runat="Server"<br />
/><br />
</Form><br />
</BODY><br />
</HTML><br />
<br />
</source><br />
<br />
<br />
<br />
<br />
==Get all server variables (VB.net)==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="csharp"><br />
<%@ Page Language=VB Debug=true %><br />
<script runat=server><br />
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)<br />
Dim NameArray() As String<br />
Dim VisitorSV As NameValueCollection<br />
Dim I as Integer<br />
VisitorSV = Request.ServerVariables<br />
NameArray = VisitorSV.AllKeys<br />
For I = 0 To UBound(NameArray)<br />
If NameArray(I) <> "ALL_HTTP" and _ <br />
NameArray(I) <> "ALL_RAW" Then<br />
lblMessage1.Text = lblMessage1.Text _<br />
& NameArray(I) & ": " _<br />
& VisitorSV.Item(I) & "<BR>"<br />
End If<br />
Next<br />
End Sub<br />
</SCRIPT><br />
<HTML><br />
<HEAD><br />
<TITLE>Server Variables Sample Page</TITLE><br />
</HEAD><br />
<BODY ><br />
<form runat="server"><br />
<Font Face="Tahoma"><br />
<asp:Label<br />
id="lblMessage1"<br />
runat="Server"<br />
Font-Bold="True"<br />
FOnt-Size="9"<br />
/><br />
</Font><br />
</Form><br />
</BODY><br />
</HTML><br />
<br />
</source><br />
<br />
<br />
<br />
<br />
==Request Server Variables Item(REMOTE_ADDRESS) (VB.net)==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="csharp"><br />
<%@ Page Language="vb" %><br />
<html><br />
<head><br />
<title>Request property example</title><br />
<script runat="server"><br />
Sub Page_Load()<br />
Message.Text = "The current request is from: " & _<br />
CStr(Request.ServerVariables.Item("REMOTE_ADDRESS"))<br />
End Sub<br />
</script><br />
</head><br />
<body><br />
<asp:label id="Message" runat="server"/><br />
</body><br />
</html><br />
<br />
</source></div>
Admin