assoccre.ssc

PowerBuilder8.0开发分散式应用所帶的例程

<!--SCRIPT PSOBJMOD
    import( site.GetRootDocument().location + "/ObjMod80.ssc" );
    session.active = true;
    InitObjects(session);
-->
<!--SCRIPT // {{ SCRIPT()

  var webRoot = site.GetRootDocument();
  import ( webRoot.location + '/system/utils/strtable.ssc' );
  
  /* Create an association between a document and a connection */
  
  var assocList = site.GetConnectionAssociationList();
  var text;
  var i;
  var path;
  var thedoc;
  
  text = "<!--SCRIPT\r\n";
  text += IntlStr.scriptGenerated;
  text += "function LoadAssociations() {\r\n";
  text += "webroot = site.GetRootDocument();\r\n";
  text += "siteName = webroot.location;\r\n";
  
  for( i in assocList ) {
    text += 'site.LoadConnectionAssociation( siteName + "' + assocList[i].path;
    text += '", "' + assocList[i].connection + '" );\r\n';
  }
  
  text += '}\r\n--' + '>\r\n';
  
  path = document.location + '/' + 'associat.ssc';
  
  thedoc = site.GetDocument( path );
  
  if( thedoc == null ) {
    site.CreateDocument( path, 'script', '', text );
  } else {
    thedoc.source = text;
  }
// }}
-->