مشروع واب Isapi

 [color= #339933;]<title[color= #339933;]>ex4[color= #339933;]</title[color= #339933;]>

[color= #339933;]<link REL[color= #339933;]=[color= #0000ff;]"stylesheet" TYPE[color= #339933;]=[color= #0000ff;]"text/css" HREF[color= #339933;]=[color= #0000ff;]"<#CSS>"[color= #339933;]>

1. unit UwebmGestC;
2. {------------------------------------------------------------------------------}
3. interface
4. {------------------------------------------------------------------------------}
5. uses
6. SysUtils, Classes, HTTPApp, DBXpress, DB, SqlExpr, HTTPProd, ADODB,DBAccess, MyAccess;
7. {------------------------------------------------------------------------------}
8. type
9. TWebM = class(TWebModule)
10. PgpLogin : TPageProducer;
11. ConGestCompt: TMyConnection;
12. Pgplistc : TPageProducer;
13. Pgplistop : TPageProducer;
14. Pgpaddupop : TPageProducer;
15. Pgpaddupc : TPageProducer;
16. {------------------------------------------------------------------------------}
17. {################### ALL TAG #################################################
18. {------------------------------------------------------------------------------}
19. procedure PgplistcHTMLTag(Sender: TObject; Tag: TTag;const TagString: String; TagParams: TS
20. trings;var ReplaceText: String);
21. {------------------------------------------------------------------------------}
22. {################### ALL ACTION ################################################
23. {------------------------------------------------------------------------------}
24. procedure WebMAdmin_CAction(Sender: TObject; Request: TWebRequest;Response: TWebResponse; v
25. ar Handled: Boolean);
26. {------------------------------------------------------------------------------}
27. PRIVATE { Private declarations }
28. FUNCTION Get_ListC():string;
29. {------------------------------------------------------------------------------}
30. PUBLIC { Public declarations }
31. {------------------------------------------------------------------------------}
32. END;
33. {------------------------------------------------------------------------------}
34. VAR
35. WebM: TWebM;
36. {------------------------------------------------------------------------------}
37. IMPLEMENTATION {$R *.dfm}
38. {------------------------------------------------------------------------------}
39. {################### ALL FUNCTION ##############################################
40. {------------------------------------------------------------------------------}
41. FUNCTION TWebM.Get_ListC():string;
42. VAR
43. vQueryListC : TMyQuery;
44. str , vrow: String;
45.  
46. BEGIN
47.  
48. str:= '<TR class="blue" > <td> Code </td><td> LIB </td></TR>';
49.  
50. vQueryListC:=TMyQuery.Create(nil);
51. TRY
52. WITH vQueryListC DO
53. BEGIN
54. Connection:=ConGestCompt;
55. SQL.Text:='SELECT ID_C,LIB_C FROM compte ORDER BY LIB_C';
56. TRY
57. Open;
58. WHILE NOT (Eof) DO
59. BEGIN
60. if (RecNo mod 2 = 0) then
61. vrow:= 'Row2'
62. Else
63. vrow:= 'Row1';
64. str:= str +
65. '<TR class="'+css +'"> ' +
66. '<td> ' + FieldByName('ID_C').AsString + '</td>' +
67. '<td> ' + FieldByName('LIB_C').AsString + '</td>' +
68. '</TR>'
69. ;
70. NEXT;
71. END;
72. EXCEPT ON E:exception DO //LOG(''+E.Message);
73. Result:=E.Message;
74. END;
75. END;
76. FINALLY
77. vQueryListC.Close;
78. vQueryListC.Free;
79. Result:=str;
80. END;
81. END;
82. {------------------------------------------------------------------------------}
83. {################### ALL TAG #################################################
84. {------------------------------------------------------------------------------}
85. PROCEDURE TWebM.PgplistcHTMLTag(Sender: TObject; Tag: TTag;const TagString: String; TagParams:
86. TStrings; var ReplaceText: String);
87.  
88. CONST C_CssPath='/css/gestc.css';
89.  
90. BEGIN
91. IF UpperCase(TagString) = 'CSS' THEN
92. BEGIN
93. ReplaceText:= C_CssPath;
94. END;
95. IF UpperCase(TagString) = 'LISTECOMPTE' THEN
96. BEGIN
97. ReplaceText:= Get_ListC();
98. END;
99. END;
100. {------------------------------------------------------------------------------}
101. {################### ALL ACTION ################################################
102. {------------------------------------------------------------------------------}
103. PROCEDURE TWebM.WebMAdmin_CAction(Sender: TObject; Request: TWebRequest;Response: TWebResponse;
104. var Handled: Boolean);
105. BEGIN
106. Response.Content:= Pgplistc.Content;
107. END;
108. END.
109.  
110.  
111.  
     
     

 [color= #b1b100;]if RecNo mod [color= #cc66cc;]2 [color= #339933;]= [color= #cc66cc;]0 then vrow[color= #339933;]:=[color= #0000ff;]'row1' [color= #b1b100;]ELSE vrow[color= #339933;]:=[color= #0000ff;]'row2'[color= #339933;];

CONST

   C_CssPath[color= #339933;]=[color= #0000ff;]'/css/gestc.css'[color= #339933;];

1.  
2. Open;
3. WHILE NOT (Eof) DO
4. BEGIN
5. Case (I mod 2 ) oF
6. 0:C:= '#DAE6FC' ;
7. 1:C:= '#F0F8FF';
8. end;
9. str:= str +
10. '<TR> ' +
11. '<td bgcolor="'+c+'">'+ FieldByName('ID_C').AsString + '</td>' +
12. '<td bgcolor="'+c+'">'+ FieldByName('LIB_C').AsString + '</td>' +
13. '</TR>';
14. Next; Inc(i)
15. END;
16.  
17.  
    
    

 AliasMatch ^/ex1/htmlpages(.*) "C:/allsource/html$1"
<Directory "C:/allsource/html">
    Options None
    AllowOverride None
    Order allow,deny
    Allow from all
</Directory>
AliasMatch ^/ex1/css(.*) "C:/allsource/html/css$1"
<Directory "C:/allsource/html/css">
    Options None
    AllowOverride None
    Order allow,deny
    Allow from all
</Directory>
AliasMatch ^/bin(.*) "C:/allsource/bin$1"
<Directory "C:/allsource/bin">
Options Indexes MultiViews ExecCGI
AllowOverride None
Order allow,deny
allow from all
</Directory>
ScriptAliasMatch ^/ex1/(.*) "C:/allsource/bin/app.dll/$1"
#Ajouter par Naïm
AddHandler isapi-isa dll