单点登陆问题

whhy · 发表于 2008-5-9 13:49:10

用一个连接传递两个参数分别是平台系统的账号和密码，然后自动登陆进平台，以前实现过，当时的方案和代码意外丢失了，麻烦再帮帮忙。当初修改的business.html的代码如下：
<HTML>
<HEAD>
<title>Business业务架构平台</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>

<BODY leftmargin="0" topmargin="0">

<OBJECT  id = "BusinessX"
      classid="clsid:B557E10A-2EA2-46C9-8F5F-3A3C9D471AE9"
  codebase="BusinessX.CAB#version=3,0,0,1157"
      width="100%"
      height="100%"
      align=center
      hspace=0
      vspace=0
>
</OBJECT>
<%
  username=request("id")
  password=request("pws")
  Response.Write "<script type=""text/javascript\""> "
  Response.write "BusinessX.ServerURL = ""Socket://10.141.165.195:2048""; "
  Response.write "BusinessX.UpdateVersion(); "
  Response.write "BusinessX.Init(); "
  [B]Response.write "BusinessX.Logon("""&username&""","""&password&"""); "[/B]
  Response.write "BusinessX.Run ("""", """", """", """"); "
  Response.write "document.title = ""BusinessX.DisplayName""; "
  Response.write "</script> "
%>

</BODY>
</HTML>

不记得LOGON事件是增加在系统哪个功能里，具体的代码当初如何写的，请帮忙查找一下，谢谢。

jiahaiming · 发表于 2008-5-9 13:54:27

楼主，什么版本？

whhy · 发表于 2008-5-10 13:31:39

是 3.0.5.2255 版本

Akon · 发表于 2008-5-10 14:08:00

楼主，对2255版本我不是很清楚，待周一我让我同事帮您看一下

atiger · 发表于 2008-5-12 11:47:08

楼主，你仅仅是传入登录用户和密码后，直接进入运行平台吗？
如果是1楼的方法就可以了，你应该还做其他的处理吧，具体是啥，说说吧

whhy · 发表于 2008-5-12 12:15:14

http://bbs.justep.com/forum.php?mod=viewthread&tid=4158 这是以前解决这个问题的帖子，需要在某个系统功能里增加LOGON事件，然后在business.html里调用，现在就是忘记了这个LOGON事件在哪里写，如何写。

atiger · 发表于 2008-5-12 13:31:58

哦，修改的是“业务模型\系统空间\系统运行库\系统初始化”这个功能，

whhy · 发表于 2008-5-14 10:29:58

按照上面代码写的business.asp文件部署好后点连接测试，每次还是弹出系统的登陆对话框，是不是应该在还要修改系统运行库里的代码？

atiger · 发表于 2008-5-14 11:22:00

我没有你的版本，资源应该差不多
你参考
http://bbs.justep.com/forum.php?mod=viewthread&tid=20821 7楼做一下，看看是否可行

whhy · 发表于 2008-5-14 12:40:08

系统登陆是调用的自定义的用户界面，在系统接口中重载了ShowLogonForm，如下：
function ShowLogonForm(var ALogonID, APassword: string): Boolean; override;
。。。。。
function TSystemInterface.ShowLogonForm(var ALogonID, APassword: string): Boolean;
begin
  with TFM_DLDHK.Create(nil) do
try
   eName.Text := ALogonID;
   ePass.Text := APassword;
   if ShowModal = Business.Forms.Controls.mrOK then
   begin
      ALogonID := eName.Text;
      APassword := ePass.Text;
      Result := True;
      Forms.Application.ProcessMessages;
   end
   else
      Result := False;
finally
   Free;
end;
end;

我这里的ShowLogonForm应该就是你说的ShowLogonFormEx吧？

		自动登录	找回密码
密码			立即注册