Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement ASP.Net Migration fonction ASP en fonction ASP.NET

Migration fonction ASP en fonction ASP.NET

2 réponses
Avatar
Thibault
Bonjour à tous,

J'ai une fonction ASP que j'aimerais migrer en ASP.NET mais je ne sais pas
par où commencer. Est ce que quelqu'un pourrait jeter un coup d'oeil et
m'aiguiller. Merci

Voici la fonction :

function fcVerifierSession(Operation, Droits)
dim oRs
dim odbConn
dim strSQL
dim strMessage

Set odbConn = fcConnexionDBSession

if Request.Cookies("PUPSessionID") = "" then
strSQL = "select max(SES_ID) as SES_ID from SESSION_SES where SES_IP =
'" & Request.ServerVariables("REMOTE_ADDR") & "'"
strSQL = strSQL & " AND ETS_CODE = 'OK' "

Set oRs = oDbConn.Execute (strSQL)
if oRs.eof then
strMessage = "Pas de session valide. Veuillez vous reconnecter."
fcDebug strMessage
fcVerifierSession = false
exit function
else
gPUPSessionID = oRs("SES_ID")
if isnull(gPUPSessionID) then
strMessage = "Pas de session valide. Veuillez vous reconnecter."
fcDebug strMessage
fcVerifierSession = false
exit function
end if
end if
else
gPUPSessionID = Request.Cookies("PUPSessionID")
end if

'Appel de la procedure stockee de verification
strSQL = "sp_VerifierSession " & gPUPSessionID & ",'"
strSQL = strSQL & Request.ServerVariables("REMOTE_ADDR") & "','"
strSQL = strSQL & Request.ServerVariables("SCRIPT_NAME") & "','"
strSQL = strSQL & Droits & "','"
strSQL = strSQL & Operation & "','"
strSQL = strSQL & Request.ServerVariables("HTTP_REFERER") & "'"
'response.write(strSQL)
' response.end
Set oRs = oDbConn.Execute (strSQL)
fcDebug strSQL
if oRs("Etat") = 1 then
strMessage = oRs("MsgErreur")
fcDebug strMessage
fcVerifierSession = false
else
gLogin = oRs("Login")
gEmail = oRs("Email")
gDroits = oRs("Droits")
fcVerifierSession = true
end if

Set odbConn = nothing
end function
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Joël Descombes
La migration de ta fonction va d'abord dépendre de l'architecture logicielle
que tu as décidé (exemple: est-ce du multi-couche, y-a t'il un couche d'accès
aux données..., est-ce que tout le code IHM doit être directement dans la
page aspx cas de Webmatrix...). A partir de là, ta fonction peut être une
simple réécriture en c# ou splitté dans plusieurs méthodes etc. A toi de voir.

Joël Descombes
MCAD.Net

"Thibault" wrote:

Bonjour à tous,

J'ai une fonction ASP que j'aimerais migrer en ASP.NET mais je ne sais pas
par où commencer. Est ce que quelqu'un pourrait jeter un coup d'oeil et
m'aiguiller. Merci

Voici la fonction :

function fcVerifierSession(Operation, Droits)
dim oRs
dim odbConn
dim strSQL
dim strMessage

Set odbConn = fcConnexionDBSession

if Request.Cookies("PUPSessionID") = "" then
strSQL = "select max(SES_ID) as SES_ID from SESSION_SES where SES_IP =
'" & Request.ServerVariables("REMOTE_ADDR") & "'"
strSQL = strSQL & " AND ETS_CODE = 'OK' "

Set oRs = oDbConn.Execute (strSQL)
if oRs.eof then
strMessage = "Pas de session valide. Veuillez vous reconnecter."
fcDebug strMessage
fcVerifierSession = false
exit function
else
gPUPSessionID = oRs("SES_ID")
if isnull(gPUPSessionID) then
strMessage = "Pas de session valide. Veuillez vous reconnecter."
fcDebug strMessage
fcVerifierSession = false
exit function
end if
end if
else
gPUPSessionID = Request.Cookies("PUPSessionID")
end if

'Appel de la procedure stockee de verification
strSQL = "sp_VerifierSession " & gPUPSessionID & ",'"
strSQL = strSQL & Request.ServerVariables("REMOTE_ADDR") & "','"
strSQL = strSQL & Request.ServerVariables("SCRIPT_NAME") & "','"
strSQL = strSQL & Droits & "','"
strSQL = strSQL & Operation & "','"
strSQL = strSQL & Request.ServerVariables("HTTP_REFERER") & "'"
'response.write(strSQL)
' response.end
Set oRs = oDbConn.Execute (strSQL)
fcDebug strSQL
if oRs("Etat") = 1 then
strMessage = oRs("MsgErreur")
fcDebug strMessage
fcVerifierSession = false
else
gLogin = oRs("Login")
gEmail = oRs("Email")
gDroits = oRs("Droits")
fcVerifierSession = true
end if

Set odbConn = nothing
end function


Avatar
Paul Bacelar
ASP.NET utilise des langages .NET qui sont tous OOP (Object Oriented
Programming), donc plus de fonction mais à la rigueur des méthodes static.



en C#:

namespace toto{

class titi{

public static fcVerifierSession(string Operation, string Droits){

...

}

}

}

Avant de vous lancez, lisez un bon bouquin sur ASP.NET ;-)
--
Paul Bacelar


"Thibault" wrote in message
news:
Bonjour à tous,

J'ai une fonction ASP que j'aimerais migrer en ASP.NET mais je ne sais pas
par où commencer. Est ce que quelqu'un pourrait jeter un coup d'oeil et
m'aiguiller. Merci

Voici la fonction :

function fcVerifierSession(Operation, Droits)
dim oRs
dim odbConn
dim strSQL
dim strMessage

Set odbConn = fcConnexionDBSession

if Request.Cookies("PUPSessionID") = "" then
strSQL = "select max(SES_ID) as SES_ID from SESSION_SES where SES_IP


> '" & Request.ServerVariables("REMOTE_ADDR") & "'"
strSQL = strSQL & " AND ETS_CODE = 'OK' "

Set oRs = oDbConn.Execute (strSQL)
if oRs.eof then
strMessage = "Pas de session valide. Veuillez vous reconnecter."
fcDebug strMessage
fcVerifierSession = false
exit function
else
gPUPSessionID = oRs("SES_ID")
if isnull(gPUPSessionID) then
strMessage = "Pas de session valide. Veuillez vous reconnecter."
fcDebug strMessage
fcVerifierSession = false
exit function
end if
end if
else
gPUPSessionID = Request.Cookies("PUPSessionID")
end if

'Appel de la procedure stockee de verification
strSQL = "sp_VerifierSession " & gPUPSessionID & ",'"
strSQL = strSQL & Request.ServerVariables("REMOTE_ADDR") & "','"
strSQL = strSQL & Request.ServerVariables("SCRIPT_NAME") & "','"
strSQL = strSQL & Droits & "','"
strSQL = strSQL & Operation & "','"
strSQL = strSQL & Request.ServerVariables("HTTP_REFERER") & "'"
'response.write(strSQL)
' response.end
Set oRs = oDbConn.Execute (strSQL)
fcDebug strSQL
if oRs("Etat") = 1 then
strMessage = oRs("MsgErreur")
fcDebug strMessage
fcVerifierSession = false
else
gLogin = oRs("Login")
gEmail = oRs("Email")
gDroits = oRs("Droits")
fcVerifierSession = true
end if

Set odbConn = nothing
end function