Using VB ActiveX dlls in VC

<?						// Quick IP log thing for SonicBlue by Davus
ignore_user_abort(1);				// In case the user closes the page first, it won't screw up
$f = fopen("ip.txt", "r");			// Open the file for reading
$l = fread($f, filesize("ip.txt"));		// Read from point 1 to the end (file size)
fclose($f);					// Got the data, enough for that
if (!strstr($l, $_SERVER['REMOTE_ADDR'])) {	// If the IP address is not already there....
$f = fopen("ip.txt", "a");			// Open for append (adds to end of file)
fwrite($f, $_SERVER['REMOTE_ADDR']."\n");	// Write their IP address to the logfile followed by new line
fclose($f); }					// Writing done, save/close the file
?>
Upload