您好,欢迎来到[编程问答]网站首页   源码下载   电子书籍   软件下载   专题
当前位置:首页 >> 编程问答 >> Delphi >> 大家来看看我的Web Application,为什么不好用呢,帮帮忙吧,谢谢了~ 谢谢了~

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

来源:网络整理     时间:2016/8/31 21:33:31     关键词:

关于网友提出的“ 大家来看看我的Web Application,为什么不好用呢,帮帮忙吧,谢谢了~ 谢谢了~”问题疑问,本网通过在网上对“ 大家来看看我的Web Application,为什么不好用呢,帮帮忙吧,谢谢了~ 谢谢了~”有关的相关答案进行了整理,供用户进行参考,详细问题解答如下:

问题: 大家来看看我的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;


以上介绍了“ 大家来看看我的Web Application,为什么不好用呢,帮帮忙吧,谢谢了~ 谢谢了~”的问题解答,希望对有需要的网友有所帮助。
本文网址链接:http://www.codes51.com/itwd/3688208.html

相关图片

相关文章