Passar pequeno código de PHP para ASP

[Leandro Rocha 0]

Fala galera..

 

alguem ae sabe como passar esse codigo de PHP para asp..só consegui uma pequen aparte..é um sistema de abas com ajax...

 

<?php
function stringForJavascript($in_string) {
   $str = ereg_replace("[\r\n]", " [url="file://\\n\\\n"]\\n\\\n[/url]", $in_string);
   $str = ereg_replace('"', '\\"', $str);
   Return $str;
}
switch($_GET['id']) {
 case 'tab1':
  $content = 'This is content for tab 1.';
  break;
 case 'tab2':
  $content = 'This is content for tab 2.';
  break;
 case 'tab3':
  $content = 'This is content for tab 3.';
  break;
 case 'tab4':
  $content = 'This is content for tab 4.';
  break;
 default:
  $content = 'There was an error.';
  break;

}
print stringForJavascript($content);
usleep(400000);
?>

[Mário Monteiro 179]

o que o sitema deve fazer?

 

pelo que vi tem uma função um select case e um response.write

[ultra 0]

<%

function stringForJavascript(in_string)

'Trocar a linha abaixo os caracteres \r\n por equivalente em ASP

str = Replace(in_string, "[\r\n]", " [url="http://"file://\\n\\\n""]\\n\\\n[/url]")

str = Replace(str, """", "\""")

stringForJavascript = str

end function

 

Select Case Request.QueryString("id")

case "tab1"

content = "This is content for tab 1."

case "tab2"

content = "This is content for tab 2."

case "tab3"

content = "This is content for tab 3."

case "tab4"

content = "This is content for tab 4."

case else

content = "There was an error."

End Select

 

Response.Write stringForJavascript(content);

 

'Esse eu não sei oque faz

'usleep(400000);

%>

[Mário Monteiro 179]

é basicamente isso mesmo

 

o ultimo seria uma especie de delay, ou espera

[Leandro Rocha 0]

é basicamente isso mesmo

 

o ultimo seria uma especie de delay, ou espera

 

não deu certo..não ocorre nada

[Mário Monteiro 179]

o que foi feito foi a mudança de uma linguagem para outra mas nem sabemos o que quer

 

mostre o que pretende

[hargon 64]

Nem uma mensagem de erro?

 

 

A propósito, existe case else? Não seria case default?

[Mário Monteiro 179]

é case else mesmo

[hargon 64]

Interessante. É porque sempre utilizei case default. Parecem ter a mesma função.

[Mário Monteiro 179]

e eu nunca usei

 

nunca vi sequer

[Ted k' 126]

case default, desconheço mesmo, só tenho noção de Case Else e de que podemos compara o CASE por nada

 

ex:

Select Case (Valor)
	Case ("") : Valor = 0
	Case Else
		Valor = "10"
End Select