delphi+asp如何实现网络认证

Question

本人刚接触delphi,只是个新手!
希望哪位大侠直接发个源码让我慢慢研究!delphi+asp如何实现网络认证...
意思就是必须在FORM1里输入正确的帐号密码,
才可以在FORM2里操作...
但不采用本地调用Access认证!
我想用远程ASP认证!网上的delphi+asp实现注册码认证我看过了...

Answer 1

procedure TForm1.Button1Click(Sender:TObject);
begin
    with TNMHTTP.Create(NIL) do
    try
      try
        Get('http://localhost/checkLogin.asp?name=' + Edit1.Text + '&password=' + Edit2.Text);
        Result := Body;
        if Result = 'ok' then
        begin
          Form2.ShowModal;
        end;      finally
        Free;
      end;
    except
    end;
end;'checkLogin.asp
if name="AA" AND password="BB" then
  Response.Write "ok"
else
  Response.Write "Error"
End if
大致如此