Advertisement
LounaDragon

Mon Code de mon site web page

Nov 28th, 2019
2,750
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ASP 2.56 KB | None | 0 0
  1. <%
  2. DIM MYPAGE
  3. MYPAGE=REQUEST ("P")
  4. %>
  5.  
  6.  
  7.  
  8. <%
  9.     //DECLARATION DES VARIABLES DE LA PAGE COURANTE
  10.     DIM DEBUG
  11.     DEBUG=0
  12.  
  13.     // PARAMETRES DE DEBUGGAGE, METTRE LA VARIABLE DEBUG A 1
  14.     IF DEBUG >0THEN
  15.             RESPONSE.WRITE("<FONT COLOR=RED>")
  16.        
  17.                 RESPONSE.WRITE("AFFICHE LES VARIABLES NON NULLES PASSEES PAR LE FORMULAIRE DE LA PAGE: ") & "<BR>"
  18.                 FOR EACH Element IN REQUEST.FORM
  19.                     IF REQUEST.FORM(Element) <> "" THEN
  20.                         RESPONSE.WRITE(Element & ": " & REQUEST.FORM(Element)) & "<BR>"
  21.                     END IF
  22.                 NEXT
  23.    
  24.                 RESPONSE.WRITE("AFFICHE LES VARIABLES PASSEES PAR LA PAGE: ") & "<BR>"
  25.                 FOR EACH Element IN REQUEST.SERVERVARIABLES
  26.                     SELECT CASE Element
  27.                         CASE "URL"
  28.                             RESPONSE.WRITE(UCASE(Element) & ": " & UCASE(REQUEST.SERVERVARIABLES(Element))) & "<BR>"
  29.                     END SELECT
  30.                 NEXT
  31.    
  32.                 RESPONSE.WRITE("AFFICHE LES QUERY_STRING PASSEES PAR LA PAGE: ") & "<BR>"
  33.                 FOR EACH element In REQUEST.QUERYSTRING
  34.                     RESPONSE.WRITE(element & ": " & REQUEST.QUERYSTRING(element)) & "<BR>"
  35.                 NEXT
  36.            
  37.                 RESPONSE.WRITE("AFFICHE LES VARIABLES DE SESSIONS: ") & "<BR>"
  38.                 FOR EACH Element IN SESSION.CONTENTS
  39.                     RESPONSE.WRITE(UCASE(Element) & ": " & SESSION.CONTENTS(Element)) & "<BR>"
  40.                 NEXT
  41.  
  42.                 RESPONSE.WRITE("</FONT>")
  43.     END IF
  44. %>
  45.  
  46.  
  47. <html>
  48.  
  49.     <head>
  50.         <link href="../css/styles3.css" rel="stylesheet" type="text/css" />
  51.     </head>
  52.  
  53.     <body>
  54.  
  55.  
  56.         <table>
  57.  
  58.             <tr>
  59.  
  60.                 <td>
  61.                     <h1>PAGE <%=MYPAGE%></h1>
  62.                 </td>
  63.  
  64.             </tr>
  65.  
  66.         </table>
  67.  
  68.  
  69.  
  70.  
  71.  
  72.         <table>
  73.  
  74.             <tr>
  75.  
  76.                 <td>
  77.                     <%
  78.                     IF MYPAGE >1 THEN
  79.                     %>
  80.                         <a  href= "http://localhost/monsiteweb/contents/Exercice1.asp?p=1";><<</a>
  81.                     <%
  82.                     ELSE
  83.                     %>
  84.                         <h2><<
  85.                         </h2>                          
  86.                     <%
  87.                     END IF
  88.                     %>
  89.  
  90.                 </td>
  91.  
  92.                 <td>
  93.                     <%
  94.                     IF MYPAGE >1 THEN
  95.                     %>
  96.  
  97.                         <a  href= "http://localhost/monsiteweb/contents/Exercice1.asp?p= <%=MYPAGE-1%>";><</a>
  98.                     <%
  99.                     ELSE
  100.                     %>
  101.                         <h2><
  102.                         </h2>
  103.                     <%
  104.                     END IF
  105.                     %>
  106.  
  107.                 </td>
  108.  
  109.                 <td>
  110.                     PAGE <%=MYPAGE%>
  111.                 </td>
  112.  
  113.                 <td>
  114.  
  115.                     <%
  116.                     IF MYPAGE <5 THEN
  117.                     %>
  118.  
  119.                         <a  href= "http://localhost/monsiteweb/contents/Exercice1.asp?p= <%=MYPAGE+1%>";>></a>
  120.                     <%
  121.                     ELSE
  122.                     %>
  123.                         <h2>>
  124.                         </h2>
  125.                     <%
  126.                     END IF
  127.                     %>
  128.  
  129.                 </td>
  130.    
  131.                 <td>
  132.  
  133.                     <%
  134.                     IF MYPAGE <5 THEN
  135.                     %>
  136.  
  137.                         <a  href= "http://localhost/monsiteweb/contents/Exercice1.asp?p=5";>>></a>
  138.                     <%
  139.                     ELSE
  140.                     %>
  141.                         <h2>>>
  142.                         </h2>
  143.                     <%
  144.                     END IF
  145.                     %>
  146.  
  147.                     </td>
  148.  
  149.                     </tr>
  150.  
  151.             </table>
  152.  
  153.  
  154.     </body>
  155. </html>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement