intraweb的两个问题（会者不难）(200分)

1（50）.intraweb网面打开后，长时间不操作（大概10分钟左右），再操作就会提示
My Intraweb Application Error
Session not found. Session may have expired.
2（150）我用intraweb做了个登录的功能，别人在一台机器上以A用户登录后，我把他的登录信息
记录下来，我再以B用户登录，以后A用户的操作，都记录到B用户的头上了。保存用户信息
的结构如下

type
TCurUserRec = record
UserID: string;
UserName: string;
IP: string;
end;

ServerController单元文件内容如下，是否需要修改，如何改
unit ServerController;

{PUBDIST}
interface
uses
SysUtils, Classes, IWServerControllerBase,
IWApplication, IWAppForm;
type
TIWServerController = class(TIWServerControllerBase)
procedure IWServerControllerBaseNewSession(ASession: TIWApplication;
var VMainForm: TIWAppForm);
private
public
end;
TUserSession = class
public
end;
function UserSession: TUserSession;
implementation
{$R *.dfm}
uses
IWInit;
function UserSession: TUserSession;
begin
Result := TUserSession(RWebApplication.Data);
end;
procedure TIWServerController.IWServerControllerBaseNewSession(
ASession: TIWApplication; var VMainForm: TIWAppForm);
begin
ASession.Data := TUserSession.Create;
end;
end.

to：antic_ant
很抱歉到这里来打扰你，能给我解释一下SQLDdmo 吗？小弟真的不知道那是什么~v~
我现在非常着急要实现SQL Server里查询分析器的对象浏览器，
所以才出此下策，到这里来麻烦你，请多指点几句，不胜感激！
email zhanglixue@sina.com
QQ 27726827

1.你可以把SESSIONTIMEOUT设置长一点,默认是10分钟,这是正常现象,intraweb对与一定时间内无任何操作
的用户实行抛弃
2.TUserSession = class
public
UserID: string;
UserName: string;
IP: string
end;
我是这样写的,usersession.username:=edit1.text;
这样大概不会出现

我试试，再给分

接受答案了.