Web프로그램은 이미 어떻게 코딩하는 지..
아시는 것 같아서..
이렇게 소스만 올립니다..
(원래 다른 코딩을 했던 것을 고치느라 좀 어색하네여)
From 류..
---------
* 사용법의 예
http://www.xxx.co.kr/delete.dll/delete?SN=3
(SN필드가 3인 것을 지운다)
Function TWebModule1.GetHTMLofDelete(Data:TStrings):String;
Var
Query: TQuery;
stTemp : String;
begin
Try
Query:= TQuery.Create(Nil);
Query.SQL.Add('Delete From Board Where SN = ' + Data.Values['SN']);
Query.ExecSQL;
Result:= 'Deleted'';
Except
Result:= 'Delete Error'';
End;
Query.Free;
End;
procedure TWebModule1.WebModule1WebActionItem5Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
Var
HTML : Tstrings;
begin
HTML:= Nil;
With Request do
Case MethodType of
mtPost : HTML:= ContentFields;
mtGet : HTML:= QueryFields;
End;
Response.Content:= GetHTMLofDelete(HTML);
end;
|