Normales VB-ASP Web-Projekt
Startpage: HTMLPage1.HTML
Inhalt:
----------------------------
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>Search Form</title>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET
7.1">
<meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema"
content="http://schemas.microsoft.com/intellisense/ie5";>
</head>
<body MS_POSITIONING="GridLayout">
<form id="Form1" action="IndexServer_dotnet.aspx" method="post">
<h2>Search <INPUT name="txtsearch" id="txtsearch"
style="Z-INDEX: 101; LEFT: 88px; POSITION: absolute; TOP: 60px" type="text"
name="Text1">for: <INPUT id="Button1"
style="Z-INDEX: 102; LEFT: 287px; POSITION: absolute; TOP: 64px" type="submit"
value="Submit" name="Submit1">
</h2>
</form>
</body>
</html>
Ziel Seite:
ASPX Page IndexServer_dotnet.aspx
Inhalt HTML:
---------------
<%@ Page Language="vb" AutoEventWireup="false"
Codebehind="IndexServer_dotnet.aspx.vb" Inherits="KB.IndexControls_main"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>Search The Website</title>
</HEAD>
<body>
<h1>Search Website
</h1>
<form id="Form1" method="get" Runat="Server">
<h2>Search for:
<asp:textbox id="txtSearch" Runat="Server"
Columns="40"></asp:textbox><asp:button id="Button1" onclick="doSubmit"
Runat="Server" Text="Search!"></asp:button>
<asp:Label id="Label1" runat="server"
Width="130px">Label</asp:Label></h2>
<hr>
<asp:label id="lblResults" Runat="Server"
EnableViewState="False" Width="400px" Font-Names="helvetica"
Font-Size="8pt"></asp:label><BR>
<br>
<!-- datagrid here --><asp:datagrid id="dgResults"
runat="server" OnPageIndexChanged="getResults_PageIndexChanged"
AllowPaging="True"
ForeColor="Black" BorderWidth="1px"
GridLines="Vertical" CellPadding="4" BackColor="Transparent" BorderStyle="None"
BorderColor="Gray" AutoGenerateColumns="False"
Font-Names="Arial" Font-Size="8pt" AllowSorting="True">
<SelectedItemStyle Font-Bold="True"
ForeColor="White" BackColor="#CE5D5A"></SelectedItemStyle>
<AlternatingItemStyle
BackColor="BurlyWood"></AlternatingItemStyle>
<ItemStyle BackColor="DarkSeaGreen"></ItemStyle>
<HeaderStyle Font-Bold="True" ForeColor="White"
BackColor="#6B696B"></HeaderStyle>
<FooterStyle BackColor="#CCCC99"></FooterStyle>
<Columns>
<asp:BoundColumn DataField="RANK"
HeaderText="Rank"></asp:BoundColumn>
<asp:BoundColumn DataField="DocTitle"
HeaderText="Title"></asp:BoundColumn>
<asp:BoundColumn DataField="Create"
HeaderText="Date"></asp:BoundColumn>
<asp:BoundColumn DataField="Size"
HeaderText="Size"></asp:BoundColumn>
<asp:BoundColumn DataField="VPATH"
HeaderText="Vert Path"></asp:BoundColumn>
<asp:BoundColumn DataField="Path"
HeaderText="Path"></asp:BoundColumn>
</Columns>
<PagerStyle HorizontalAlign="Right"
ForeColor="Black" BackColor="#F7F7DE" Mode="NumericPages"></PagerStyle>
</asp:datagrid></form>
</body>
</HTML>
----------------------------
IndexServer_dotnet.aspx.vb
VB Code: (nur das wesentliche, ich will hier ne Index Service Abfrage
realisieren, die an sich läuft.)
---------------------------
Option Strict Off
Imports System
Imports System.Data
Imports System.Data.Oledb ' for DA and DS
Imports System.Web.UI
Imports System.Web.UI.WebControls ' for Datagrid
Imports System.Text ' for stringbuilder
Imports System.Security.Principal
Imports Cisso
Public Class IndexControls_main
Inherits Page
Protected WithEvents lblResults As Label
Protected WithEvents txtSearch As TextBox
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Protected WithEvents dgResults As DataGrid
'Private Function impersonateAnonymous() As WindowsImpersonationContext
Private Sub Page_Load()
If Not IsPostBack Then
For Each Str As String In Request.Form
Label1.Text = Label1.Text & Str & Request.Form(Str)
Response.Write(Str & Request.Form(Str))
Next
Else
For Each Str As String In Request.Form
Label1.Text = Label1.Text & Str & Request.Form(Str)
Response.Write(Str & Request.Form(Str))
Next
End If
Response.Write("Hallo, Aufwachen!")
' txtSearch.Text = Request.Form("txtsearch")
' dgResults.CurrentPageIndex = 0
' getResults()
End Sub
'Sub doSubmit(ByVal s As Object, ByVal e As EventArgs)
' handles dataset paging
'Sub getResults_PageIndexChanged(ByVal sender As Object, ByVal e As
DataGridPageChangedEventArgs)
'Sub getResults()
'Private Function GetIndexResults(ByVal argKatalog As String, ByVal Query
As String) As DataTable
End Class
Ich bin gespannt.
-----Ursprüngliche Nachricht-----
Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Im Auftrag von Patrik Bitzer
Gesendet: Freitag, 15. Juli 2005 15:41
An: [email protected]
Betreff: AW: [Asp.net] Einfaches Posten von Werten
*studier und grübel*
Erzähl mal schnell wie genau das bei Dir abgeht mit dem Aufruf und so.
- Die ASP.NET Seite hast Du im VS schon mal gestartet, so dass sie kompiliert
wurde?
Bei mir läufts! Hab sogar extra ein vb.Net Projekt gemacht (*premiere* nach
2 Jahren .NET programmieren :-) ) und Deinen Code 1:1 eingefügt.
Patrik
-----Ursprüngliche Nachricht-----
Von: Poehler, Markus [mailto:[EMAIL PROTECTED]
Gesendet: Freitag, 15. Juli 2005 15:32
An: [email protected]
Betreff: AW: [Asp.net] Einfaches Posten von Werten
VB oder C - das ist ja hier fast gleich, und dieses Testweise Response.Write
hatte ich auch schon drin, unterhalb des IF-Konstruktes. Und es macht ebenfalls
absolut NIX.
Sind wir jetzt schon zu zweit die Tomaten auf den Augen haben oder was geht
hier ab? :)
Private Sub Page_Load()
If Not IsPostBack Then
For Each Str As String In Request.Form
Label1.Text = Label1.Text & Str & Request.Form(Str)
Response.Write(Str & Request.Form(Str))
Next
Else
For Each Str As String In Request.Form
Label1.Text = Label1.Text & Str & Request.Form(Str)
Response.Write(Str & Request.Form(Str))
Next
End If
Response.Write("Hallo, Aufwachen!")
End Sub
-----Ursprüngliche Nachricht-----
Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Im Auftrag von Patrik Bitzer
Gesendet: Freitag, 15. Juli 2005 15:23
An: [email protected]
Betreff: AW: [Asp.net] Einfaches Posten von Werten
Ich kann kein vb.net, Dein Code sieht aber rech i.O aus, zumindest das
Response.Write hätte ja was ausgeben sollen. Mach doch Testweise ein
Repsonse.Write("Ausgabetest"); so weißt Du das wenigstens irgendwas geht :-)
Mein Beispiel was funktioniert, da gerade gemacht:
Ich habe eine simple HTML Seite mit diesem Code:
<form action="http://localhost/WebApplication3/WebForm1.aspx"; method="post">
<input type="text" name="MyField">
<input type="submit">
</form>
Ich habe eine simple Test-Webanwendung Projekt "WebApplication3" im
VisualStudio gemacht und in das auch automatisch erzeugte WebForm1.aspx habe
ich in der Design View vom VS ein Label reingezogen Label1 und im code behinde
folgendes in PageLoad() ergänzt:
if (!IsPostBack) {
foreach (string name in Request.Form) {
Response.Write(name + " = " +
Request.Form[name] + "<br>");
Label1.Text += name + " = " +
Request.Form[name] + "<br>";
}
}
Bei mir läuft das prima, wenn ich die HTML Seite lade, Text eingebe und Button
klicke kommt wie erwartet die ASP.NET Seite mit der gewünschten Ausgabe.
HTH
Patrik
-----Ursprüngliche Nachricht-----
Von: Poehler, Markus [mailto:[EMAIL PROTECTED]
Gesendet: Freitag, 15. Juli 2005 15:06
An: [email protected]
Betreff: AW: [Asp.net] Einfaches Posten von Werten
Da komm ich nicht mit:
Private Sub Page_Load()
If Not IsPostBack Then
For Each Str As String In Request.Form
Label1.Text = Label1.Text & Str & Request.Form(Str)
Response.Write(Str & Request.Form(Str))
Next
Else
For Each Str As String In Request.Form
Label1.Text = Label1.Text & Str & Request.Form(Str)
Response.Write(Str & Request.Form(Str))
Next
End If
End Sub
Ergebis nach posten eines Form Feldes aus einer HTML Datei auf diese ASPX
datei:
In der Box Label1 steht der default Text "LABEL" und auch sonst keine Ausgabe.
Auch die fixe Ausgabe erscheint nirgendwo...
_______________________________________________
Asp.net Mailingliste, Postings senden an:
[email protected]
An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/asp.net
_______________________________________________
Asp.net Mailingliste, Postings senden an:
[email protected]
An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/asp.net
_______________________________________________
Asp.net Mailingliste, Postings senden an:
[email protected]
An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/asp.net
_______________________________________________
Asp.net Mailingliste, Postings senden an:
[email protected]
An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/asp.net
