大家来看看我的Web Application,为什么不好用呢,帮帮忙吧,谢谢了~ 谢谢了~

garbriel 2004-03-03 01:50:43
我做的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;
...全文
8 点赞 收藏 1
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复

还没有回复,快来抢沙发~

相关推荐
发帖
网络通信/分布式开发
创建于2007-08-02

1573

社区成员

Delphi 网络通信/分布式开发
申请成为版主
帖子事件
创建了帖子
2004-03-03 01:50
社区公告
暂无公告