Porting ASP in Asp.NET

[Kai Hansen]

Ciao!

premessa: conosco un po' di ASP, ho però la necessità di modificare uno script in asp.net trovato in rete.

Ho capito (dopo vari tentativi) che anche se sembrano simili, asp e asp.net non hanno la stessa sintassi.

Ho un file .aspx in cui aggiungere alcune funzioni. Io le ho preparate in asp e funzionano, ma appena le metto nel file aspx ottengo errore.

Potete aiutarmi in questo porting?

1)

<SCRIPT LANGUAGE="VBScript" runat="server">
const upload_original = "sample"    
const upload_thumb = "thumb"    
</script> 

devo modificare la variabile upload_original e upload_thumb (nome del file che lo script da al file uploadato) randomizzandolo. In ASP farei così:

Dim MyNewRandomNum
Randomize
MyNewRandomNum = Round(Rnd * 1000)+1
response.write MyNewRandomNum 

Come si fa la stessa cosa in ASP.NET?

Grazie!

PS: un problema alla volta... dopo il vs aiuto per questo farò un'altra domandina

[djciko]

Questa torna un numero a caso fra 1 e 10:

    Function Randomize() As Integer
        Dim myNewNumber As New Random
        Return myNewNumber.Next(1, 10)
    End Function

[Kai Hansen]

Grazie!

Come assegno il valore del numero alla vasriabile upload_original?

[djciko]

In asp.net puoi utilizzare codice lato server in TAG <script> come hai fatto tu oppure utilizzare il code behind (cioè un file separato dall'aspx con estensione .vb o .cs a seconda del linguaggio)

Con il code-behind, che è il metodo migliore (lo puoi vedere in Visual Studio in esplora soluzioni, nell'albero, sotto la tua pagina aspx) :

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim upload_original As Integer
        upload_original = Randomize()
        Response.Write(upload_original)
    End Sub

    Public Function Randomize() As Integer
        Dim myNewNumber As New Random
        Return myNewNumber.Next(1, 10)
    End Function

Per completezza, sappi che la classe Random può gestire anche un casuale Double (cioe' tra 0.0 ed 1.0)

    Public Function Randomize() As Double
        Dim myNewNumber As New Random
        Return myNewNumber.NextDouble
    End Function