大家来看看我的Web Application,为什么不好用呢,帮帮忙吧,谢谢了~ 谢谢了~
我做的CGI Standalone EXECutable类型的程序,就是实现一个简单的登陆功能,在IE里出入http://localhost/T1717_Pro.exe,出现登陆画面,点击登陆后本来应该继续用http://localhost/T1717_Pro.exe/login进行处理,然后出现登陆失败或者是成功画面,可是我的程序只出现初始的那个登陆画面,密码对不对根本没有用,就是把http://localhost/T1717_Pro.exe/login改成http://localhost/T1717_Pro.asdfasdfexe/login这种无效的也照样出初始画面,我都要疯了,大家帮帮我把,谢谢。下面是一点代码
procedure TWebModule1.WebModule1Wai_1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
found: boolean;
begin
try
DCOMConnection1.Connected := true;
XMLBroker1.Connected := true;
ClientDataSet1.Open;
ClientDataSet1.First;
found := ClientDataSet1.Locate('t_id,t_password',
VarArrayOf([request.ContentFields.Values['UserID'],request.ContentFields.Values['Password']]),[]);
if (found) then
response.Content := Pp_sucess.Content
else
response.Content := Pp_error.Content;
finally
ClientDataSet1.Close;
Handled := true;
end;
end;