<%@ LANGUAGE="VBScript" %> <% dim dmok,msg dmok = 0 msg = "" dim MYSQL_DBS MYSQL_DBS = "GT1" dim MYSQL_DB1 MYSQL_DB1 = "GT1" if request("a") = "out" then response.Redirect("popdominio.asp") 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/popdominio.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("popdominio.asp?dmx=" & request("dmx") & "&pwd=" & request("pwd")) dim cogt,currdm,currpwd Set cogt = Server.CreateObject("ADODB.Connection") cogt.Open "DRIVER={SQL SERVER};SERVER=sql_domains.alger.it;PWD=tratta;UID=sa;DATABASE=domains-checks" 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("popdominio.asp?dm=" & currdm) else response.redirect("popdominio.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) > 0 then ls=ls & "" 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 elettronica	Gestisci
Horde - Interfaccia web alle caselle di posta elettronica	Horde
Statistiche
Esiste il contatore statistico
Setup - Configurazione contatore	Setup
Admin - Gestione contatore	Admin
Non esiste il contatore statistico. Per attivarlo Clicca qui
Portale Joomla
Esiste il portale Joomla
Home Page portale Joomla	Joomla Home
Amministrazione Portale Joomla	Joomla Admin
Non esiste il portale Joomla. Per attivarlo Clicca qui
Portale PHP-Nuke
Esiste il portale Nuke
Home Page portale Nuke	Nuke Index
Accesso Amministrativo	Nuke 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=" & MYSQL_DBS & ";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=" & MYSQL_DB1 & ";database=mysql" set rs3 = cogt.execute ("select count(*) as qtp from db where db='stat_" & nodot(dm) & "';") resu = rs3("qtp") rs3.close cogt.close if isnull(resu) then resu="0" ExistsStatDb=cint(resu) end Function function ExistsJoomla(dm) ''vediamo se esiste il DB per le statistiche ' response.write dm ' mdealconsulti dim cogt,rs3,resu,sq resu=0 Set cogt = Server.CreateObject("ADODB.Connection") cogt.Open "dsn=" & MYSQL_DB1 & ";database=mysql" sq="select count(*) as qtp from db where db='joomla_" & left(nodot(dm),13) & "';" ' response.write sq set rs3 = cogt.execute (sq) resu = rs3("qtp") rs3.close cogt.close if isnull(resu) then resu="0" ExistsJoomla=cint(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=sql_domains.alger.it;PWD=tratta;UID=sa;DATABASE=domains-checks" 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=" & MYSQL_DB1 & ";database=mysql" set rs3 = cogt.execute ("select count(*) as qtp from sysusers where nomeuser='user_" & nodot(dm) & "';") resu = rs3("qtp") rs3.close cogt.close if isnull(resu) then resu="0" ExistsUserLinux=cint(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=" & MYSQL_DB1 & ";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 %>

<% if dmok=0 then %> <% end if %> <% if dmok=1 then %> <% end if %> Informazioni Dominio Dominio Password >> Logout
	<% 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 ufficiale Inglese Esiste anche un sito italiano Italiano ed un altro sito italiano JoomlaIT
© 2007 Alger Sas