Microsoft
Software
Hardware
Network
Question : Comment la transition est-elle faite entre 2 pages classiques d'asp ?
J'essaye de comprendre l'écoulement des rapports entre 2 asp classique pages.
In observant les pages suivantes intitulées default.ASP et B.ASP, pourrait vous expliquer l'écoulement des pages d'asp. Comment est il cela après default.ASP est exécuté au commencement et alors B.ASP est exécuté jusqu'à un point et alors default.ASP est exécuté pour montrer l'username et les champs de mot de passe et alors B.ASP s'exécute et finalement devdefault.asp executes.
default.ASP
----------le
SOX - signer le leftmargin= du ><br/></HEAD><br/><br/><BODY " du href= " onelook.new.css de " stylesheet " de rel= " d'in
" du width= " 30% de
de
du >
de " bgBlueDark " de class= 42 " " width= " du src= " images/hdr_morganstan
ley_logo.g
if 152 "
" du width= " 70% de
central " du >
d'align= ; " du width= " 730 de
de
de
width= " de " 2 " de >
de
de >
> class= " bgBlueDark " de
> action= " B.asp " de " signin » de name= de " poteau » de method= du
%>
du msg
<%
dim/>msg=request colspan= (« msg »)l'align=center>
> " du >
%> " de " <%=request de value= de " reqid » de NAME= de " Text3 » d'ID= de type= (« reqid ») caché » " du >
You de " txtnote " de class= de
<%if msg=1 then%>
d'align=center du >
The de " txtnote " de class= de
<%elseif msg=2 then%>
que vous avez écrite est inadmissible ! le mot de passe de >The de " txtnote " de class= de
<%elseif msg=3 then%>
que vous avez entré est inadmissible ! la session de >Your de " txtnote " de class= de
<%elseif msg=4 then%>
a expiré ! le >Please de " en-tête " de class= du
<%end if%>
entrent votre identification et mot de passe :
de width=1>
" des " images de src= » du
des " images de src= de CLASS=lineBlueDark WIDTH=290>
des " images de src= de CLASS=lineBlueDark ROWSPAN=12 WIDTH=1>
de
td>
/transpix.gif »/transpix.gif »/transpix.gif 41 » de CLASS=bgYellowlight>
; border=
" 0 » width= " 100% » cellspacing= " 0 » cellpadding= " 0 » >Username d'align= " du width= " 40% » de
du >
d'ID= " Table3 " bons : size= " du name= " identification de l'utilisateur des " textes » de type= » de >
d>
19 » >Password " du width= " 40% de
du
du >
d'ID= " Text1 " droit " d'align= : le size= " de " userpassword de name= » de " mot de passe » de type= de >
d>
19 » value= de type=submit de width=1>
de >
>
d'ID= " Password1 "/transpix.gif VONT " le
B.ASP
de ******** du
de ********** du
de ********** du
de ********** du
de ********** du
de ********** du
de ********** du
de ********** du
de ********** du
de ************************** du >
----------rst
%>
< du conn
dim du next
dim de résumé d'erreur du
<%on ! --file= " dbstringFSNet.asp » de #include--leftmargin= du >
152 "
" du width= " 70% de
central " du >
d'align= ; » du width= " 730 de
de
de
width= " de " 2 " de >
/transpix.gif 1 » height= " 1 » vspace= " 1 " width= " de " bgBlueDark de class= » de
de
de >
730 » >
bgBlueDark " > caché » du
> ", usrid, pswd
usrid=Request.Form " de/>
<%
dim du >
<%
%>
if de « userid
")
pswd=Request.Form (« userpas
sword ») ou then
Response.Redirect « default.asp de "" de pswd= ? msg=1 " le
'function de l'if
du
Response.End
end authentifient (usrid, pswd) le
'Create l'objet de COMDirectory : résumé Next
Dim SearchObject, PersonObject, PersonObject2, PersonDN, check
Set SearchObject = server.CreateObject (« MSDot
Net.COMDir
ectory d'erreur du
'On. Sea
rch ») le
'//InitIISEnvironment est que preferred au-dessus d'InitVBEnvironment
'//InitIISEnvironment utilisations P de //InitVBEnvironment exige/emploie AFS (\ \ Mme \ dist \) les ':
nment
SearchObject.InitIISEnviro
SearchObject.ConnectFWD2 « , ou=ldapids, o=y », « L0t0fWork "
'check si l'identification de l'utilisateur est le correct
Set PersonObject = le
gon (usrid)/>PersonDN = SearchObject.GetPersonDN erreur end1
'Response.Write err.number et » **** « then
Response.Redirect « default.asp (de P
ersonObjec
t)
'On de "" de persondn= de
if ? msg=2 "
Response.End
else
SearchObject.ConnectFWD2 PersonDN, pswd
'persondn de Response.Write et " » et PersonObject.LogonID et « persondn et « 11111111 » et PersonObject2.LogonID et « 222222 "
du
réglé (PersonDN) de/>
PersonObject2 = SearchObject.GetPersonByDn
'Response.Write de l'authenticate=persondn
'authenticate=PersonObject
2.LogonID
« /> « Response.End
id=PersonObject2.LogonID
si then
Response.Redirect « default.asp d'identification = de "" ? msg=3 " if
d'extrémité du
Response.End
» //This haved augmenté qu'une erreur, ou if
%>
<%
authentication du function
end d'extrémité du
du succeeded
Response.Write err.number et du « _ » et le « ….le
'if a authentifié alors : rst= server.createobject (« ssql= du =fname
set de session du =lname
de session du =eml
de session du then
eml=PersonObject2.emailadd
ress
lname=PersonObject2.surnam
e
fname=PersonObject2.givenn
ame
de "" d'id<> du =id
if du
session (« identification ») (« eml ») (« lname ») (« fname ») du
d'adodb
.recordset
") " choisissent * à partir des temployees où ldapid= » » et identification et « » « rst du
du
. Ouvrir le ssql, conn., le
de 2,2
si demande (« type ») = réponse du then
de " usr ». Réorienter « usrReqDetails.asp ? Réorienter « devReqDetails.asp ? Réorienter la réponse d'autre du
du
de « usrdefault.asp ". Réorienter l'if
%>
