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
36
37
38
39
40
41
42
43
44
45
|
<%@ LANGUAGE=VBScript %>
<HTML>
<BODY>
<!- Appelle la procédure JScript en VBScript-->
<% call AffDate() %>
<!-- Appelle la procédure VBScript procedure en VBScript -->
<% AffRequete %>
<BR>
</BODY>
</HTML>
<%Sub AffRequete %>
<!-- Note: ceci n'affichera rien tant que la page ne sera
pas appelé avec une chaîne de requètes " query string "
comme : test.asp?x=1%20have&y=a%20cunning&z=plan -->
<%
Response.Write "<TABLE BORDER=1>" & _
"<TR><TH>Nom</TH><TH>Valeur</TH></TR>"
Set objQueryString = Request.QueryString
For Each strSelection In objQueryString
Response.Write "<TR><TD>" & strSelection & "</TD><TD>" & _
objQueryString(strSelection) & "</TD></TR>"
Next
Response.Write "</TABLE>"
End Sub
%>
<SCRIPT LANGUAGE=JScript RUNAT=SERVER>
function AffDate()
{
var x
x = new Date()
Response.Write(x.toString())
Response.Write("<BR>")
}
</SCRIPT> |
