traduzione

**nourdine** · 10-04-2006, 14:16

mi potette tradurre questo script php in asp per favore?
Se volete potete saltare pure la parte relativa al riconoscimento del browser e del sistema operativo. Grazie

<?

function GetSistemaOperativo()
{
$os = array(
'Windows NT 5.1' => 'Windows XP',
'Windows NT 5.0' => 'Windows 2000',
'Windows NT 4.90' => 'Windows ME',
'Win95' => 'Windows 95',
'Win98' => 'Windows 98',
'Windows NT 5.2' => 'Windows NET',
'WinNT4.0' => 'Windows NT',
'Mac' => 'Mac',
'PPC' => 'Mac',
'Linux' => 'Linux',
'FreeBSD' => 'FreeBSD',
'SunOS' => 'SunOS',
'Irix' => 'Irix',
'BeOS' => 'BeOS',
'OS/2' => 'OS/2',
'AIX' => 'AIX',
);

foreach($os as $chiave => $valore)
{
if(strpos($_SERVER['HTTP_USER_AGENT'], $chiave))
{
return $valore;
}
}

return 'Altro';
}

$os = GetSistemaOperativo();

function GetBrowser()
{
$browser = array(
'MSIE' => 'Internet Explorer',
'Firefox' => 'FireFox',
'Lynx' => 'Lynx',
'Opera' => 'Opera',
'WebTV' => 'WebTV',
'Konqueror' => 'Konqueror',
'bot' => 'Bot',
'Google' => 'Bot',
'slurp' => 'Bot',
'scooter' => 'Bot',
'spider' => 'Bot',
'infoseek' => 'Bot',
'Nav' => 'Netscape',
'Gold' => 'Netscape',
'x11' => 'Netscape',
'Netscape' => 'Netscape'
);

foreach($browser as $chiave => $valore)
{
if(strpos($_SERVER['HTTP_USER_AGENT'], $chiave ))
{
return $valore;
}
}

return 'Altro';
}

$browser = GetBrowser();

$browser_specifiche = $_SERVER['HTTP_USER_AGENT'];

$ip = $_SERVER['REMOTE_ADDR'];

$referer = $_SERVER['HTTP_REFERER'];

$when = getdate();
$giorno = $when[mday];
$mese = $when[month];
$ora = $when[hours];
$min = $when[minutes];
$time = "$giorno " . "$mese " . "$ora:" . "$min";

/*connessione a db*/
$host = "localhost";
$user = "pincopallino";
$database = "abc";
$password = "xyz";

$db = mysql_connect($host, $user, $password);

mysql_select_db($database, $db);

$insert = mysql_query("INSERT INTO tracking VALUES ('', '$browser', '$browser_specifiche', '$os', '$ip', '$time', '$referer')", $db);

?>

**deleted_26** · 10-04-2006, 14:31

Fatto:

codice:

<% 
Response.Write "" & vbCrLf
  Response.Write "traduzione" & vbCrLf
  Response.Write "mi potette tradurre questo script php in asp per favore?" & vbCrLf
  Response.Write "e volete potete saltare pure la parte relativa al riconoscimento del browser e del sistema operativo. Grazie" & vbCrLf
  Response.Write "<?" & vbCrLf
  Response.Write "function GetSistemaOperativo()" & vbCrLf
  Response.Write "" & vbCrLf
  Response.Write "os = array(" & vbCrLf
  Response.Write "Windows NT 5.1' => 'Windows XP'," & vbCrLf
  Response.Write "Windows NT 5.0' => 'Windows 2000'," & vbCrLf
  Response.Write "Windows NT 4.90' => 'Windows ME'," & vbCrLf
  Response.Write "Win95' => 'Windows 95'," & vbCrLf
  Response.Write "Win98' => 'Windows 98'," & vbCrLf
  Response.Write "Windows NT 5.2' => 'Windows NET'," & vbCrLf
  Response.Write "WinNT4.0' => 'Windows NT'," & vbCrLf
  Response.Write "Mac' => 'Mac'," & vbCrLf
  Response.Write "PPC' => 'Mac'," & vbCrLf
  Response.Write "Linux' => 'Linux'," & vbCrLf
  Response.Write "FreeBSD' => 'FreeBSD'," & vbCrLf
  Response.Write "SunOS' => 'SunOS'," & vbCrLf
  Response.Write "Irix' => 'Irix'," & vbCrLf
  Response.Write "BeOS' => 'BeOS'," & vbCrLf
  Response.Write "OS/2' => 'OS/2'," & vbCrLf
  Response.Write "AIX' => 'AIX'," & vbCrLf
  Response.Write ";" & vbCrLf
  Response.Write "foreach($os as $chiave => $valore)" & vbCrLf
  Response.Write "" & vbCrLf
  Response.Write "f(strpos($_SERVER['HTTP_USER_AGENT'], $chiave))" & vbCrLf
  Response.Write "" & vbCrLf
  Response.Write "eturn $valore;" & vbCrLf
  Response.Write "" & vbCrLf
  Response.Write "" & vbCrLf
  Response.Write "return 'Altro';" & vbCrLf
  Response.Write "" & vbCrLf
  Response.Write "" & vbCrLf
  Response.Write "os = GetSistemaOperativo();" & vbCrLf
  Response.Write "" & vbCrLf
  Response.Write "unction GetBrowser()" & vbCrLf
  Response.Write "" & vbCrLf
  Response.Write "browser = array(" & vbCrLf
  Response.Write "MSIE' => 'Internet Explorer'," & vbCrLf
  Response.Write "Firefox' => 'FireFox'," & vbCrLf
  Response.Write "Lynx' => 'Lynx'," & vbCrLf
  Response.Write "Opera' => 'Opera'," & vbCrLf
  Response.Write "WebTV' => 'WebTV'," & vbCrLf
  Response.Write "Konqueror' => 'Konqueror'," & vbCrLf
  Response.Write "bot' => 'Bot'," & vbCrLf
  Response.Write "Google' => 'Bot'," & vbCrLf
  Response.Write "slurp' => 'Bot'," & vbCrLf
  Response.Write "scooter' => 'Bot'," & vbCrLf
  Response.Write "spider' => 'Bot'," & vbCrLf
  Response.Write "infoseek' => 'Bot'," & vbCrLf
  Response.Write "Nav' => 'Netscape'," & vbCrLf
  Response.Write "Gold' => 'Netscape'," & vbCrLf
  Response.Write "x11' => 'Netscape'," & vbCrLf
  Response.Write "Netscape' => 'Netscape'" & vbCrLf
  Response.Write ";" & vbCrLf
  Response.Write "foreach($browser as $chiave => $valore)" & vbCrLf
  Response.Write "" & vbCrLf
  Response.Write "f(strpos($_SERVER['HTTP_USER_AGENT'], $chiave ))" & vbCrLf
  Response.Write "" & vbCrLf
  Response.Write "eturn $valore;" & vbCrLf
  Response.Write "" & vbCrLf
  Response.Write "" & vbCrLf
  Response.Write "return 'Altro';" & vbCrLf
  Response.Write "" & vbCrLf
  Response.Write "" & vbCrLf
  Response.Write "browser = GetBrowser();" & vbCrLf
  Response.Write "$browser_specifiche = $_SERVER['HTTP_USER_AGENT'];" & vbCrLf
  Response.Write "$ip = $_SERVER['REMOTE_ADDR'];" & vbCrLf
  Response.Write "$referer = $_SERVER['HTTP_REFERER'];" & vbCrLf
  Response.Write "$when = getdate();" & vbCrLf
  Response.Write "giorno = $when[mday];" & vbCrLf
  Response.Write "mese = $when[month];" & vbCrLf
  Response.Write "ora = $when[hours];" & vbCrLf
  Response.Write "min = $when[minutes];" & vbCrLf
  Response.Write "time = "$giorno " . "$mese " . "$ora:" . "$min";" & vbCrLf
  Response.Write "/*connessione a db*/" & vbCrLf
  Response.Write "host = "localhost";" & vbCrLf
  Response.Write "user = "pincopallino";" & vbCrLf
  Response.Write "database = "abc";" & vbCrLf
  Response.Write "password = "xyz";" & vbCrLf
  Response.Write "$db = mysql_connect($host, $user, $password);" & vbCrLf
  Response.Write "mysql_select_db($database, $db);" & vbCrLf
  Response.Write "$insert = mysql_query("INSERT INTO tracking VALUES ('', '$browser', '$browser_specifiche', '$os', '$ip', '$time', '$referer')", $db);" & vbCrLf
  Response.Write "?>" & vbCrLf
 Response.Write ""
%>

E' stato tradotto in automatico

**nourdine** · 10-04-2006, 14:54

tradotto da chi??

grazie

**francesco_c** · 10-04-2006, 14:58

Scusami simosito ma come hai fatto a tradurre il php in asp automaticamente?

Ma funziona?

Grazie.

**deleted_26** · 10-04-2006, 15:17

non so con quale sito l'ho tradotto : ho cercato con google

**francesco_c** · 10-04-2006, 15:19

ma con che parole chiave?

thanks friend!

**Sbarboff2005** · 10-04-2006, 15:28

Si appunto interessa anche a me!!!

Grazie

**nourdine** · 10-04-2006, 16:24

dai ostia! dicci un po chi traduce il php in asp! ma ve lo immaginate? laurea in interpretariato php -> asp! che ridere

**deleted_26** · 10-04-2006, 21:03

http://www.weblord.it/web/modules.ph...x&func=HTMLASP
codice x html--> ASP ma funziona anke con PHP-->ASP

Discussione: traduzione

Strumenti discussione

Ricerca discussione

Visualizza

traduzione

Permessi di invio