Installshield相关

Change SQL Connection details in web.config

 

Code
///////////////////////////////////////////////////////////////////////////////
//                                                                           //
// Global Constants                                                          //
//                                                                           //
///////////////////////////////////////////////////////////////////////////////
#define ERROR_SUCCESS 0
#define ERROR_XML_FILE_CREATION "Setup could not find the web.config file %s"
#define ERROR "Error"
#define ERROR_XML_FILE_STRUCTURE "The web.config file structure is corrupted.%s"
#define ERROR_XML_FILE_LOAD "The web.config file was not loaded.%s"

///////////////////////////////////////////////////////////////////////////////
//                                                                           //
// Global Variables                                                          //
//                                                                           //
///////////////////////////////////////////////////////////////////////////////
STRING  m_strDBDataSource;
STRING  m_strDBUserName; 
STRING  m_strDBPassword;
STRING  m_strDBName;

///////////////////////////////////////////////////////////////////////////////
//                                                                           //
// Prototypes                                                                //
//                                                                           //
///////////////////////////////////////////////////////////////////////////////
prototype ModifyWebConfig(BYVAL STRING, BYREF STRING);

///////////////////////////////////////////////////////////////////////////////
//                                                                           //
// OnBegin                                                                   //
//                                                                           //
///////////////////////////////////////////////////////////////////////////////
function OnBegin()
    STRING  strFileName;
    STRING  strError;
begin
    m_strDBDataSource = "SQLServer/InstanceName";
    m_strDBUserName   = "MyUserName"; 
    m_strDBPassword   = "MyPassword";
    m_strDBName       = "MyDatabaseName";
    
    strFileName       = "C:\\Temp\\web.config";
    
    ModifyWebConfig(strFileName, strError);
    if strError != "" then
        MessageBox(strError, SEVERE);
    endif;
    abort;
end;

///////////////////////////////////////////////////////////////////////////////
//                                                                           //
//                                                                           //
//                                                                           //
///////////////////////////////////////////////////////////////////////////////
function ModifyWebConfig(strFileName, strError)
    OBJECT oDoc, oNode, oNodeList;
    NUMBER i, nSize;                  
    STRING  strNamedItem;
    STRING  strValue;
begin   
    ///////////////////////////////////////////////////////////////////////////
    // Check to see if the file exists                                    //
    ///////////////////////////////////////////////////////////////////////////
    if Is(FILE_EXISTS, strFileName) = TRUE then
        MessageBox("XML file exists",0);
    else
        MessageBox("XML file is missing",0);
    endif;
          
    ///////////////////////////////////////////////////////////////////////////
    ///////////////////////////////////////////////////////////////////////////
    nSize = 300;  
    i = 0;
    strValue =           "Data Source="     + m_strDBDataSource;
    strValue = strValue +";User Id="        + m_strDBUserName; 
    strValue = strValue +";Password="       + m_strDBPassword;
    strValue = strValue +";Initial Catalog="+ m_strDBName; 
    strValue = strValue +";Persist Security Info=True";
    strValue = strValue +";Connection Timeout=30";
                           
    ///////////////////////////////////////////////////////////////////////////
    // get values from public properties
    ///////////////////////////////////////////////////////////////////////////
    set oDoc = CreateObject("Msxml2.DOMDocument.4.0");  
    if (IsObject(oDoc) = FALSE) then
        MessageBox(ERROR_XML_FILE_CREATION, 0);
        return -1;     
    endif;  
    oDoc.async = FALSE;  
    oDoc.setProperty("SelectionLanguage", "XPath");

    ///////////////////////////////////////////////////////////////////////////
    // if success, traverse file and substitute value                        //
    ///////////////////////////////////////////////////////////////////////////
    if oDoc.load(strFileName) then
        ///////////////////////////////////////////////////////////////////////
        // get list of matching nodes                                        //
        ///////////////////////////////////////////////////////////////////////
        set oNodeList = oDoc.getElementsByTagName("*");
        if (oNodeList.length > 0) then   
            for i = 0 to (oNodeList.length - 1);            
                set oNode = oNodeList.nextNode;
                try
                    strNamedItem = oNode.attributes.getNamedItem("key").value;
                catch
                    strNamedItem = "";
                endcatch;
                
                try
                    if strNamedItem = "SQLConnection" then
                        oNode.attributes.getNamedItem("value").value = strValue;
                    endif;
                catch
                endcatch;
            endfor; 
        else
            MessageBox(ERROR_XML_FILE_STRUCTURE,SEVERE);
            return -1;
        endif;   
    else
        MessageBox(ERROR_XML_FILE_LOAD,SEVERE);                         
        return -1;
    endif;

    oDoc.save(strFileName);
    set oDoc = NOTHING;
end;