Mettre une protection sur une page

Question

Bonjour à tous, Voilà, je suis nouveau ici et j'ai un petit soucis. je ne suis pas calé en programmation et j'ai découvert format asp depuis hier pour vous dire. Bon je m'explique, j'ai construis un site tant bien que mal et j'ai souhaité réserver une partie de ce site à des membres identififiés. J'ai donc utilisé le service des mots de passe offert par swisstools.net. jusque là, tout va bien, mais rien ne va plus lorsque je souhaite utiliser la protection supplémentaire des pages. Ils expliquent que l'on doit placer un code avant la balise html qui est : <%IF session("acces")<>"ok" THEN cd = Request.querystring("cd") cd_date = day(date)&month(date)&year(date) cd_controle = ((cd_date+30)*31)+((cd_date+32)*33)+((cd_date+33)*35) IF cint(cd) <> cd_controle THEN Response.Redirect "erreur.asp" Response.End END IF session("acces")="ok" END IF%> J'ai effectué cela et enregistré ma page au format asp, je l'ai envoyée sur le site et là problème : quand j'utilise un login et un pass qui est validé je tombe sur une page où il est écrit : Microsoft VBScript runtime error '800a0006' Overflow: 'cint' /supportnet/tom_index.asp, line 5 quelqu'un peut il m'aider ? Je vous demanderai d'être bien clair dans les explications : je suis un débutant qui débute : merci d'avance. Joel

cs_Bud · Answer

remplace le cInt par un cLng

joel_ · Answer

Bonjour, Voilà, j'ai effectué le remplacement : <%IF session("acces")<>"ok" THEN cd = Request.querystring("cd") cd_date = day(date)&month(date)&year(date) cd_controle = ((cd_date+30)*31)+((cd_date+32)*33)+((cd_date+33)*35) IF cLng(cd) <> cd_controle THEN Response.Redirect "erreur.asp" Response.End END IF session("acces")="ok" END IF%> Cela ne fonctionne toujours pas, il m'indique maintenant : Microsoft VBScript runtime error '800a0006' Overflow: 'cLng' /supportnet/tom_index.asp, line 5

cs_Bud · Answer

Si avant le IF cLng(cd) <> cd_controle THEN
tu mets 

response.write(cd)
response.end

qu'est-ce qu'il te mets?

joel_ · Answer

Voilà, donc après avoir modifié comme ceci : <%IF session("acces")<>"ok" THEN cd = Request.querystring("cd") cd_date = day(date)&month(date)&year(date) cd_controle = ((cd_date+30)*31)+((cd_date+32)*33)+((cd_date+33)*35) response.write(cd) response.end IF cLng(cd) <> cd_controle THEN Response.Redirect "erreur.asp" Response.End END IF session("acces")="ok" END IF%> j'ai une page blanche avec des chiffres en haut à gauche : 8236842776

cs_Bud · Answer

Ok, alors vire les deux lignes que je viens de te donner et remplace le cLng en cDbl

joel_ · Answer

c'est fait : plus de message d'erreur mais :

The page cannot be found
The page you are looking for might have been removed, had its name changed, or is temporarily unavailable. 

 bref : erreur 404 

pourtant mon adresse de redirection est bonne et la page existe.

joel_ · Answer

Bonjour,

Je tiens à remercier Bud pour son aide.
Si malgré tout, je n'en sort toujours pas, mais ce n'est pas grave, je vais apprendre un peu mieux la programmation avant d'aller plus loin.
En tout cas, encore un grand merci pour tes conseils, ce n'est pas une chose facile surtout avec une personne qui n'y connait pas grand chose comme moi.
Amitiés
Joel

Mettre une protection sur une page

7 réponses

Votre réponse

Discussions similaires