Bonjour à tous,
Sous le logiciel gratuit Web Matrix, je n'arrive pas à séparer en 2 fichiers le code VB.Net du code HTML.
Par exemple, impossible de faire :
(fichier main.aspx)
et
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 <%@ Page src="main.aspx.vb" Language="vb" AutoEventWireup="false" Inherits="main" %> <html> <head> <title>Requête client</title> </head> <body> Requête : <% = méthode %> <br /> nom : <% = nom %> <br /> âge : <% = age %> <br /> </body> </html>
(fichier main.aspx.vb)
Seule solution :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Public Class main Inherits System.Web.UI.Page Protected nom As String = "xx" Protected age As String = "yy" Protected méthode As String Private Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Init ' on mémorise la requête du client dans request.txt du dossier de l'application Dim requestFileName As String = Me.MapPath(Me.TemplateSourceDirectory) + "\request.txt" Me.Request.SaveAs(requestFileName, True) End Sub Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ' on récupère les paramètres de la requête méthode = Request.HttpMethod.ToLower If Not Request.QueryString("nom") Is Nothing Then nom = Request.QueryString("nom").ToString If Not Request.QueryString("age") Is Nothing Then age = Request.QueryString("age").ToString If Not Request.Form("nom") Is Nothing Then nom = Request.Form("nom").ToString If Not Request.Form("age") Is Nothing Then age = Request.Form("age").ToString End Sub End Class
Là, ça marche. c'est mieux que rien, mais bon.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35 <%@ Page Language="VB" %> <script runat="server"> Protected nom As String = "xx" Protected age As String = "yy" Protected méthode As String Private Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Init ' on mémorise la requête du client dans request.txt du dossier de l'application Dim requestFileName As String = Me.MapPath(Me.TemplateSourceDirectory) + "\request.txt" Me.Request.SaveAs(requestFileName, True) End Sub Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ' on récupère les paramètres de la requête méthode = Request.HttpMethod.ToLower If Not Request.QueryString("nom") Is Nothing Then nom = Request.QueryString("nom").ToString If Not Request.QueryString("age") Is Nothing Then age = Request.QueryString("age").ToString If Not Request.Form("nom") Is Nothing Then nom = Request.Form("nom").ToString If Not Request.Form("age") Is Nothing Then age = Request.Form("age").ToString End Sub </script> <html> <head> <title>Requête client</title> </head> <body> Requête : <% = méthode %> <br /> nom : <% = nom %> <br /> âge : <% = age %> <br /> </body> </html>
Si vous avez une idée sur la question, merci d'avance.
Partager