关于isapi！ (再加100分） (200分)

求isapi示例，要求：(有源码）
在ie中输入http://aaaa/test1.dll?s='abbbf'，在IE中会出现
S的内容：abbbf

请问，如果让该dll产生一个返回值，如是s='abcd'则返回1，如果是s='dcba'则返回2,
其它返回0

哈，哈，看：
(*)
从菜单 File->New...->web server Applicaion->ISAPI/NSAPI Dynanic Link Lib 建项目，
将 Project1.dpr 改名为 Test1.dpr 保存，以便生成 Test1.Dll 。
(*)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, HTTPApp;
type
TWebModule1 = class(TWebModule)
procedure WebModuleBeforeDispatch(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
private
Content:String;
end;
var
WebModule1: TWebModule1;
implementation
{$R *.DFM}
procedure TWebModule1.WebModuleBeforeDispatch(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
Content:=Request.ContentFields.Values['s']; // 截获输入
end;
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
Response.Content:= Content; // 显示结果
end;
end.
怎么安装，怎么设置，应该会吧。
POST 语法举例：
<form method="POST" action="./Scripts/Test1.dll?">
<input type="text" name="s" value="abbbf" size="20">
<input type="submit" value="Post" name="postit">
</form>

请问，如果让该dll产生一个返回值，如是s='abcd'则返回1，如果是s='dcba'则返回2,
其它返回0

....
TWebModule1 = class(TWebModule)
....
private
Content:String;
function ReturnIt(Gene:string):integer;
end;
....
implementation
function TWebModule1.ReturnIt(Gene:string):integer;
begin
result:=0;
if Gene='abcd' tehn
result:=1;
if Gene='bcba' tehn
result:=2;
end;

procedure TWebModule1.WebModuleBeforeDispatch(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
str:string;
begin
str:=Request.ContentFields.Values['s']; // 截获输入
Content:=IntToStr(ReturnIt(str));
end;

procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
Response.Content:= Content; // 显示结果
end;