• User Newbie

    ASPportal - Come configurarlo...

    Ciao a tutti, premettendo che non so nulla di ASP, volevo chiedervi un aiuto. :bho:

    Volevo installare un programma, si tratta di ASPportal, ma non riesco a configurare il file .asa (non è come il php e non so benissimo da che parte prenderlo, qualcosa ho intuito ma non basta a farlo partire); non so se lo conoscete come programma, comunque sia vi copio il codice del file qui sotto sperando in un vostro consiglio.

    Spero, appunto, che qualcuno possa spiegarmi passo passo come devo inserire i dati in questo file.

    Un saluto :ciaosai:
    Aspirante

    <object runat="server" scope="application" id="online_users" progid="scripting.dictionary"></object>
    <SCRIPT LANGUAGE=VBScript RUNAT=Server>
     SUB Application_OnStart
     
      'Microsoft SQL Connection String Options
      ' **********************************************************************************************************************************
      ' Please update the line below to use the SQL Version of the ASPPortal application.
      ' Please do not modify anything else in the folder.
     
      'Application("ConnectionStr") = "Provider=SQLOLEDB.1;Persist Security Info=true;User ID=sa;Password=system;Initial Catalog=portal_beta;Data Source=127.0.0.1"
      ' **********************************************************************************************************************************
     
      'Microsoft Access Connection String Options
      ' **********************************************************************************************************************************
      ' Please change the path to your database in teh section below
      ' This must be changed to your path on your web server below. - D:\CC Source Code\ASPPortal_beta\Data\aspportal.mdb
      ' Please do not modify anything else in the folder.
     
      Application("ConnectionStr") = "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("../../data/aspportal.mdb") & ";"
     
      ' **********************************************************************************************************************************  
     
      'MySQL connection string options
      ' This is still in Beta testing
      'Application("ConnectionStr") = "DRIVER=mysql;SERVER=192.168.200.102;UID=root;PWD=system;DATABASE=aspportal"
      'Application("ConnectionStr") = "mysqlportal"
     
     
      'Set Application Variables
      set cn = Server.CreateObject("ADODB.Connection")
      on error resume next
      cn.Open Application("ConnectionStr")
      set rs = cn.Execute("SELECT Site_Name, Site_Description, Home_page,stats_folder,keywords,xml_encoding FROM SiteOptions")
      if not rs.eof then
       Application("Site_Name") = rs("Site_Name")
       Application("Site_Description") = rs("Site_Description")
       Application("Home_Page") = rs("Home_Page")
       Application("Stats_Folder") = rs("stats_folder")
       Application("keywords") = rs("keywords")
       Application("xml_encoding") = rs("xml_encoding")
      end if
     
     END SUB
     
     SUB Application_OnEnd
     
     END SUB
     
     SUB Session_OnStart
      Session.Timeout = 20
      Application("online_users") = Application("online_users") + 1
     End Sub
     SUB Session_OnEnd
      Application("online_users") = Application("online_users") - 1
     END SUB
    </SCRIPT>