Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- <%
- DIM MYPAGE
- MYPAGE=REQUEST ("P")
- %>
- <%
- //DECLARATION DES VARIABLES DE LA PAGE COURANTE
- DIM DEBUG
- DEBUG=0
- // PARAMETRES DE DEBUGGAGE, METTRE LA VARIABLE DEBUG A 1
- IF DEBUG >0THEN
- RESPONSE.WRITE("<FONT COLOR=RED>")
- RESPONSE.WRITE("AFFICHE LES VARIABLES NON NULLES PASSEES PAR LE FORMULAIRE DE LA PAGE: ") & "<BR>"
- FOR EACH Element IN REQUEST.FORM
- IF REQUEST.FORM(Element) <> "" THEN
- RESPONSE.WRITE(Element & ": " & REQUEST.FORM(Element)) & "<BR>"
- END IF
- NEXT
- RESPONSE.WRITE("AFFICHE LES VARIABLES PASSEES PAR LA PAGE: ") & "<BR>"
- FOR EACH Element IN REQUEST.SERVERVARIABLES
- SELECT CASE Element
- CASE "URL"
- RESPONSE.WRITE(UCASE(Element) & ": " & UCASE(REQUEST.SERVERVARIABLES(Element))) & "<BR>"
- END SELECT
- NEXT
- RESPONSE.WRITE("AFFICHE LES QUERY_STRING PASSEES PAR LA PAGE: ") & "<BR>"
- FOR EACH element In REQUEST.QUERYSTRING
- RESPONSE.WRITE(element & ": " & REQUEST.QUERYSTRING(element)) & "<BR>"
- NEXT
- RESPONSE.WRITE("AFFICHE LES VARIABLES DE SESSIONS: ") & "<BR>"
- FOR EACH Element IN SESSION.CONTENTS
- RESPONSE.WRITE(UCASE(Element) & ": " & SESSION.CONTENTS(Element)) & "<BR>"
- NEXT
- RESPONSE.WRITE("</FONT>")
- END IF
- %>
- <html>
- <head>
- <link href="../css/styles3.css" rel="stylesheet" type="text/css" />
- </head>
- <body>
- <table>
- <tr>
- <td>
- <h1>PAGE <%=MYPAGE%></h1>
- </td>
- </tr>
- </table>
- <table>
- <tr>
- <td>
- <%
- IF MYPAGE >1 THEN
- %>
- <a href= "http://localhost/monsiteweb/contents/Exercice1.asp?p=1";><<</a>
- <%
- ELSE
- %>
- <h2><<
- </h2>
- <%
- END IF
- %>
- </td>
- <td>
- <%
- IF MYPAGE >1 THEN
- %>
- <a href= "http://localhost/monsiteweb/contents/Exercice1.asp?p= <%=MYPAGE-1%>";><</a>
- <%
- ELSE
- %>
- <h2><
- </h2>
- <%
- END IF
- %>
- </td>
- <td>
- PAGE <%=MYPAGE%>
- </td>
- <td>
- <%
- IF MYPAGE <5 THEN
- %>
- <a href= "http://localhost/monsiteweb/contents/Exercice1.asp?p= <%=MYPAGE+1%>";>></a>
- <%
- ELSE
- %>
- <h2>>
- </h2>
- <%
- END IF
- %>
- </td>
- <td>
- <%
- IF MYPAGE <5 THEN
- %>
- <a href= "http://localhost/monsiteweb/contents/Exercice1.asp?p=5";>>></a>
- <%
- ELSE
- %>
- <h2>>>
- </h2>
- <%
- END IF
- %>
- </td>
- </tr>
- </table>
- </body>
- </html>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement