用Delphi写一个CGI或ISAPI，编译成EXE或DLL，负责存取数据库，如下面的代码：
procedure TWebModule1.WebModule1WebActionItem5Action(Sender: TObject;
Request: TWebRequest;
Response: TWebResponse;
var Handled: Boolean);
var username,password:string;
list:tstringlist;
begin
// 读取网页提交过来的两个文本框里的内容
username:= Request.ContentFields.Values['t1'];
password:= Request.ContentFields.Values['t2'];
if (username='sqslj') and(password='sq121') then
//重新定向网页
response.SendRedirect('http://yddn/sqweather/cgi.exe/start')
else
begin
list:=tstringlist.Create ;
with listdo
begin
//生成一个提示用户名、密码错误的网页
add('......');
add ......
end;
response.content:=list.text;
list.free;
end;
在网页里的提交数据的FORM的 action指向该CGI，如：
<form action="http://xxx.xxx.xxx.x/cgi.exe/login" method="POST">
