Traduzione da PHP ad ASP.

[Gemini77]

Ciao a tutti
vi chiedo un aiuto per tradurre alcune righe di codice da PHP ad ASP, non conoscendo per nulla PHP per me la traduzione sarebbe impossibile:

Premetto che il codice PHP gestisce la comunicazione tra un file di flash e un foglio testo, salvando i punteggio di alcuni giochini.

ecco il testo

<?php

# .. Neave Games high scores PHP script
# .. Requires at least PHP 4.1.0
# .. Upload this file to your server and rename for better security
# .. Upload the game scores text file to the same directory as this file and CHMOD to 666
# .. Edit the game Flash file to point to this file on your server

$name_max = 16; # Maximum player name length allowed
$display_max = 100; # Maximum number of scores to display

# .. NO NEED TO EDIT BELOW UNLESS YOU'RE FEELING NERDY



# Error handler
function error_msg($msg) {
	exit("success=0&errorMsg=$msg");
}

# Store POSTed info
@$player_name = $_POST['name'];
@$player_score = $_POST['score'];
@$game_name = $_POST['game'];

# Need game name
if (!isset($game_name)) error_msg('Could not access scores.');

# Filename of text file to hold the scores given by game name
$filename = $game_name . '_scores.txt';

# Saving new score?
if (isset($player_score) && is_numeric($player_score) && isset($player_name) && strlen($player_name) > 0 && strlen($player_name) <= $name_max) {

	# Open the text file for writing
	$file = fopen($filename, 'r+') or error_msg('Could not load scores.');

	if (flock($file, LOCK_EX | LOCK_NB)) {
		$content = fread($file, filesize($filename));

		$newline = '';
		$ranked = false;
		$i = 1;

		# Store pairs of values into pairs array
		$pairs = explode('&', $content);
		foreach ($pairs as $pair) {
			# Store name or score pair
			@list($nm, $val) = explode('=', $pair);
			if ($i <= $display_max && strlen($val) > 0) {
				# Insert name
				if (substr($nm, 0, 4) == 'name') $this_name = $val;
				else {
					# Insert score or player's score
					$this_score = $val;
					if (!$ranked && ((int)$player_score) > ((int)$this_score)) {
						$newline .= "&name$i=$player_name&score$i=$player_score";
						$ranked = true;
						$i++;
					}

					$newline .= "&name$i=$this_name&score$i=$this_score";
					$i++;
				}
			}
		}

		# Write new scores
		if (strlen($newline) > 0) {
			ftruncate($file, 0);
			rewind($file);
			fwrite($file, $newline) or error_msg('Could not save score.');
		}

		echo 'success=1&errorMsg=OK' . $newline;
	}
	else error_msg('Could not save score.');

	fclose($file);
}
else {
	# Return new scores
	@$file = fopen($filename, 'r') or error_msg('Could not load scores.');
	$content = fread($file, filesize($filename));
	echo 'success=1&errorMsg=OK' . $content;
	fclose($file);
}

?>

Grazie x la pazienza

[Gemini77]

Nessun aiuto?

[Gemini77]

ap?