请问1。IntraWeb整么运用全局变量。2。IntraWeb中如何全局保存动态配置的数据库连接信息，并能修改。(100分)

1。IntraWeb整么运用全局变量
2。IntraWeb中如何全局保存动态配置的数据库连接信息，并能修改。
我的意思我的程序中有DataModal，在程序执行的时候，其中的ADOConnected就要连接成功，
我想把配置连接的信息保存到文本文件中，这样就可以读取，我想知道在IntraWeb中怎么读，
和一般的程序一样吗？最好举例，不要瞎说。

参见我参与的问题

1 Intraweb运用全局变量
一般放在TUSerSession中就可以。
2 这样做应该是有问题的
//------------------------------------------------
//初始化ADOCONNECT对象
//------------------------------------------------
function GetParam(const Param,FileName: String):String;
var
ls: TStringList;
m,i,p:Integer;
Sel:String;
begin
ls:=TStringList.Create;
ls.LoadFromFile(FileName);
m:=ls.Count-1;
for i:=0 to m do
begin
p:=Pos(Param,ls.Strings);
if p>0 then begin
p:=p+6; Sel:=ls.Strings;
Result:=RightStr(Sel,length(Sel)-p);
exit;
end;
end;
ls.Free;
end;

//------------------------------------------------
//初始化ADOCONNECT对象
//------------------------------------------------
procedure InitConn(ADOC: TADOConnection);
var
ConnString,Server,DbName: String;
begin
Server:=GetParam('SERVER=','./files/HYLQ.INI');
DbName:=GetParam('DBNAME=','./files/HYLQ.INI');
ConnString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;';
ConnString:=ConnString+'Persist Security Info=False;';
ConnString:=ConnString+'Initial Catalog='+DBNAME+';';
ConnString:=ConnString+'Data Source='+SERVER+';';
ConnString:=ConnString+'Use Procedure for Prepare=1;';
ConnString:=ConnString+'Auto Translate=True;Packet Size=4096;';
ConnString:=ConnString+'Workstation ID='+SERVER+';';
ConnString:=ConnString+'Use Encryption for Data=False;';
ConnString:=ConnString+'Tag with column collation when possible=False';
ADOC.ConnectionString:=ConnString;
if not ADOC.Connected then ADOC.Connected:=true;
end;

接受答案了.