<%@ LANGUAGE="VBScript" %> <% dim dmok,msg dmok = 0 msg = "" if request("dm") <> "" then 'response.Write(request.ServerVariables("HTTP_REFERER")) 'response.Write(request.ServerVariables("QUERY_STRING")) if request.ServerVariables("HTTP_REFERER") = "http://www.alger.it/siti/SitoAlger/Home.htm" then dmok=1 if request.ServerVariables("HTTP_REFERER") = "http://www.alger.it/siti/SitoAlger/dominio.asp" then dmok=1 end if if request.ServerVariables("QUERY_STRING") = "" then msg = "Per accedere alle informazioni sul proprio dominio inserire dominio e password nelle caselle in basso a sinistra.
" msg = msg & "Dove ""dominio"" e' il nome del dominio comprensivo di estensione (es.: alger.it).

" msg = msg & "Se avete dimenticato la password potete richiederla qui, password" end if 'response.Write(request.ServerVariables("HTTP_REFERER")) 'response.Write(request.ServerVariables("QUERY_STRING")) if request("dmx") <> "" and request("pwd") <> "" then if request("Submit1") = "invia" then response.redirect("dominio.asp?dmx=" & request("dmx") & "&pwd=" & request("pwd")) dim cogt,currdm,currpwd Set cogt = Server.CreateObject("ADODB.Connection") cogt.Open "DRIVER={SQL SERVER};SERVER=sqlborsa;PWD=tratta;UID=sa;DATABASE=borsa" set rs3 = cogt.execute ("select dominio,pwd from domini where dominio='" & removeinjection(request("dmx")) & "'") currdm = "" currpwd = "" if not rs3.eof then currdm = rs3("dominio") currpwd = rs3("pwd") end if currredirect= "" rs3.close cogt.close if request("dmx") = currdm and request("pwd") = currpwd then response.redirect("dominio.asp?dm=" & currdm) else response.redirect("dominio.asp?dmerr=1") 'msg = "Errore di autenticazione.
Il dominio o la password sono sbagliati, ritentare." end if end if if request("dmerr") = "1" then msg = "Errore di autenticazione.
Il dominio o la password sono sbagliati, ritentare." end if Function removeinjection(tovalid) Dim uscita uscita = tovalid uscita = Replace(uscita, "%", "") uscita = Replace(uscita, " or ", "") uscita = Replace(uscita, " and ", "") uscita = Replace(uscita, "=", "") uscita = Replace(uscita, "-", "") uscita = Replace(uscita, "'", "") uscita = Replace(uscita, " drop ", "") removeinjection = uscita End Function function rootwww(serverwww) dim uscita uscita = "" select case serverwww case "FWEB" uscita = "/" case "WEBGT" uscita = "/www/htdocs" end select rootwww = uscita end function function infowww(serverwww) dim uscita uscita = "" select case serverwww case "FWEB" uscita = "Server Web su S.O. Windows Server, con IIS 5.0, Framework .NET 1.1 e MSSQL" case "WEBGT" uscita = "Server Web su S.O. Linux Gentoo, Apache2, PHP, MySQL" end select infowww = uscita end function function linkscripts(dm) dim ls, ddl if len(dm)>4 then ddl=left(dm,instr(dm,".")-1) end if 'response.Write("DMOK=" & dmok) ls = "" if dmok = 1 then ls=ls & "" ls=ls & "" ls=ls & "" ls=ls & "" ls=ls & "" ls=ls & "" 'ls=ls & "" ls=ls & "" ls=ls & "" ls=ls & "" ls=ls & "" ls=ls & "" ls=ls & "" ls=ls & "" if ExistsStatDb(dm) = 1 then ls=ls & "" ls=ls & "" ls=ls & "" else ls=ls & "" end if ls=ls & "" if ExistsJoomla(dm) = 1 then ls=ls & "" ls=ls & "" else ls=ls & "" end if ls=ls & "" if ExistsUserLinux(dm) = 1 then ls=ls & "" ls=ls & "" ls=ls & "" else ls=ls & "" end if ls=ls & "
Informazioni Dominio " ls=ls & dm & "

Server Web
Nome Server:" & ServerWeb(dm) & "
" & infowww(ServerWeb(dm)) & "
Indirizzo accesso FTP per modifica sito:www." & dm & "
Nome Utente:" & dm & "
Password:www." & dm & "
Directory Iniziale sito WWW:" & rootwww(ServerWeb(dm)) & "


Posta Elettronica
Numero caselle di posta:" & NumCasellePosta (dm) & "
Indirizzo server POP3:pop3." & dm & "
MailAdmin - Gestione caselle di posta elettronicaGestisci
Horde - Interfaccia web alle caselle di posta elettronicaHorde

Statistiche
Esiste il contatore statistico
Setup - Configurazione contatoreSetup
Admin - Gestione contatoreAdmin
Non esiste il contatore statistico. Per attivarlo Clicca qui

Portale Joomla
Esiste il portale Joomla
Home Page portale JoomlaJoomla Home
Non esiste il portale Joomla. Per attivarlo Clicca qui

Portale PHP-Nuke
Esiste il portale Nuke
Home Page portale NukeNuke Index
Accesso AmministrativoNuke Admin" & myBr & "
Non esiste il portale Nuke. Per attivarlo Clicca qui
" end if linkscripts = ls end function function NumCasellePosta(dm) ''vediamo quante caselle esistono sul dominio di posta dim cogt,hasdm,rs3 Set cogt = Server.CreateObject("ADODB.Connection") cogt.Open "dsn=webgt;database=vpopmail" hasdm ="N" set rs3 = cogt.execute ("select count(*) as qtp from vpopmail where pw_domain='" & dm & "';") NumCasellePosta = rs3("qtp") rs3.close cogt.close end function function ExistsStatDb(dm) ''vediamo se esiste il DB per le statistiche dim cogt,rs3,resu resu=0 Set cogt = Server.CreateObject("ADODB.Connection") cogt.Open "dsn=webgt;database=mysql" set rs3 = cogt.execute ("select count(*) as qtp from db where db='stat_" & nodot(dm) & "';") resu = rs3("qtp") rs3.close cogt.close ExistsStatDb=resu end Function function ExistsJoomla(dm) ''vediamo se esiste il DB per le statistiche dim cogt,rs3,resu resu=0 Set cogt = Server.CreateObject("ADODB.Connection") cogt.Open "dsn=webgt;database=mysql" set rs3 = cogt.execute ("select count(*) as qtp from db where db='joomla_" & nodot(dm) & "';") resu = rs3("qtp") rs3.close cogt.close ExistsJoomla=resu end Function function ServerWeb(dm) ''vediamo qual e' il server web (webgt/fweb) dim cogt,rs3,resu resu=0 Set cogt = Server.CreateObject("ADODB.Connection") cogt.Open "DRIVER={SQL SERVER};SERVER=sqlborsa;PWD=tratta;UID=sa;DATABASE=borsa" set rs3 = cogt.execute ("select zonefile from domini where dominio='" & dm & "'") resu = rs3("zonefile") rs3.close set rs3 = cogt.execute ("select arg1 from zonefiles where label='www' and zonefile='" & resu & "'") resu = rs3("arg1") rs3.close cogt.close ServerWeb=right(resu,len(resu)-1) end Function function ExistsUserLinux(dm) ''vediamo se esiste il DB per le statistiche dim cogt,rs3,resu resu=0 Set cogt = Server.CreateObject("ADODB.Connection") cogt.Open "dsn=webgt;database=mysql" set rs3 = cogt.execute ("select count(*) as qtp from sysusers where nomeuser='user_" & nodot(dm) & "';") resu = rs3("qtp") rs3.close cogt.close ExistsUserLinux=resu end Function function ExistsNukeDb(dm) ''vediamo se esiste il DB per le statistiche dim cogt,rs3,resu resu=0 Set cogt = Server.CreateObject("ADODB.Connection") cogt.Open "dsn=webgt;database=mysql" set rs3 = cogt.execute ("select count(*) as qtp from sysusers where nomeuser='nuke_" & nodot(dm) & "';") resu = rs3("qtp") rs3.close cogt.close ExistsNukeDb=resu end Function function NoDot(dm) NoDot=dm if len(dm)>4 then NoDot=left(dm,instr(dm,".")-1) end function %> Alger - Come Contattarci
Soluzioni
Per i Congressi
Per l' Ufficio
Per la Produzione
Per i Medici
Per i Centri Sportivi
Internet
I Servizi
La Qualità
...
Jobs
Links
F.A.Q.

Software a Noleggio

 
Informazioni Dominio
Dominio

Password
Alger Sas
Piazza Borgo Pila, 39
16129 GENOVA 3
Tel.: +39 010. 564452
Fax: +39 010. 585135
HOME    FUNZIONI    TARIFFE    SUPPORTO    CONTATTI
 
<% if dmok=1 then %> <% = linkscripts(removeinjection(request("dm"))) %> <% else %>
<% = msg %>
<% end if %>

Documentazione
Manuale Dominio (Sito, Posta elettronica, Contatore Statistico)Scarica
Manuale Nuke (Portale PHP-Nuke)Scarica
NEW: JOOMLA!
Per ulteriori informazioni su Joomla, si veda il sito ufficialeInglese
Esiste anche un sito italianoItaliano
ed un altro sito italianoJoomlaIT