ASP.Net/Request/Save Request — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Текущая версия на 11:53, 26 мая 2010
Request Save in ASP.NET
<%@ Page Language="vb" %>
<html>
<head>
<title>Displaying the HTTP headers collection in ASP.NET</title>
</head>
<body>
<p>
<%
Response.Write(Request.Headers)
Request.SaveAs((Request.PhysicalApplicationPath & "HTTPRequest.txt"), True)
Request.SaveAs((Request.PhysicalApplicationPath & "HTTPRequest_NoHeaders.txt"), False)
%>
</p>
</body>
</html>
Save request to a file (VB.net)
<%@ Page Language=VB Debug=true %>
<script runat=server>
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Dim I as Integer
lblMessage4.Text = "Total number of Form fields: " _
& Request.Form.Count & "<BR>"
For I = 0 to Request.Form.Count - 1
If Request.Form.GetKey(I) = "__VIEWSTATE" Then
lblMessage4.Text = lblMessage4.Text _
& Request.Form.GetKey(I) & ": " _
& Left(Request.Form(I), 20) & "<BR>"
Else
lblMessage4.Text = lblMessage4.Text _
& Request.Form.GetKey(I) & ": " _
& Request.Form(I) & "<BR>"
End If
Next
Request.SaveAs("therequest.txt", True)
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Form Sample Page</TITLE>
</HEAD>
<BODY >
<form runat="server">
<Font Face="Tahoma">
<asp:Label
id="lblMessage1"
runat="Server"
Font-Bold="True"
Text="Field 1: "
/>
<asp:TextBox
id="Field1"
runat="Server"
/>
<BR><BR>
<asp:Label
id="lblMessage2"
runat="Server"
Font-Bold="True"
Text="Field 2: "
/>
<asp:TextBox
id="Field2"
runat="Server"
/>
<BR><BR>
<asp:Label
id="lblMessage3"
runat="Server"
Font-Bold="True"
Text="Field 3: "
/>
<asp:TextBox
id="Field3"
runat="Server"
/>
<BR><BR>
<asp:button
id="butOK"
runat="server"
text="OK"
Type="Submit"
OnClick="SubmitBtn_Click"
/>
<BR><BR>
<asp:Label
id="lblMessage4"
runat="Server"
Font-Bold="True"
/>
</Font>
</Form>
</BODY>
</HTML>