|
|
Вопрос : Как переход сделан между 2 классицистическими страницами ASP?
|
|
|
Я пытаюсь понять подачу заявлений между 2 классицистический ASP pages.
In наблюдающ следующий озаглавленными страницами default.ASP и B.ASP, smogло вы объяснить подачу страниц ASP. Как оно то после default.ASP исполнено первоначально и после этого B.ASP исполнено до пункта и после этого default.ASP исполнено для показа Username и поля пароля и после этого B.ASP исполняют и окончательно devdefault.asp executes.
default.ASP ----------
SOX - подпишите leftmargin= >
> " bgBlueDark " " class= 42 " width= " " src= " изображения/hdr_morganstanley_logo.gif 152 "   > | " align= " width= " 70% | разбивочное "; " width= " 730 | width= " " 2 " изображений src= > |
/transpix.gif 1 " height= " 1 " vspace= " 1 " colspan= " 2 " " width= " 730 " " bgBlueDark class= |
>
> class= " bgBlueDark " |
> action= " B.asp " " signin»» name= " столба method=
%>
msg
msg=request colspan=
<%
dim («msg»)align=center>
> >
%> " <%=request» value= " " reqid» NAME= " Text3» ID= type= " >
bgBlueDark " > спрятанное («reqid»)/>%> " width= " 730»
|
удостоверение личности/>> ", usrid, pswd
usrid=Request.Form align=center>
<%
dim >
<%
%>
if userid
")
pswd=Request.Form («userpas
sword») или then
Response.Redirect «default.asp "" pswd=? msg=1 "
'function if
Response.End
end authenticate (usrid, pswd)
'Create предмет COMDirectory: резюме Next
Dim SearchObject ошибки
'On, PersonObject, PersonObject2, PersonDN, check
Set SearchObject = server.CreateObject («MSDot
Net.COMDir
ectory. Sea
rch»), котор
'//InitIISEnvironment preferred над InitVBEnvironment
'//InitIISEnvironment требует/использует пользы p //InitVBEnvironment AFS (\ \ госпожа \ dist \) ':
nment
SearchObject.InitIISEnviro
SearchObject.ConnectFWD2 «, ou=ldapids, o=y», «L0t0fWork "
'check если потребитель -, то удостоверение личности будут correct
Set PersonObject =
gon (usrid)/>PersonDN =
'On SearchObject.GetPersonDN (P
ersonObjec
t) ошибка переход end1
'Response.Write err.number &» **** «then
Response.Redirect «default.asp "" persondn=
if? msg=2 "
Response.End
else
SearchObject.ConnectFWD2 PersonDN, pswd
'persondn Response.Write & "» & PersonObject.LogonID & persondn & «11111111» & PersonObject2.LogonID & «222222 "
установленное (PersonDN) Response.Write authenticate=persondn
'authenticate=PersonObject
2.LogonID
«/>
PersonObject2 = SearchObject.GetPersonByDn
'/> «Response.End
id=PersonObject2.LogonID
если then
Response.Redirect «default.asp удостоверения личности = ""? msg=3 " if
конца
Response.End
», котор //This будет или после того как оно haved после того как оно поднято ошибке, или if
%>
<%
authentication function
end конца
succeeded
Response.Write err.number & «_» & «….
'if authenticated после этого: rst= server.createobject =fname
set встречи =lname
встречи =eml
встречи then
eml=PersonObject2.emailadd
ress
lname=PersonObject2.surnam
e
fname=PersonObject2.givenn
ame
"" id<> =id
if
session («удостоверения личности») («eml») («lname») («fname») («ssql=
adodb
.recordset
") " выбирают * от temployees где ldapid=»» & удостоверение личности & «» «rst
. Раскройте ssql, conn,
2,2
если запрос («тип») = реакция then
" usr». Перенаправьте «usrReqDetails.asp? Перенаправьте «devReqDetails.asp? Перенаправьте реакцию
«usrdefault.asp " другую. Перенаправьте if
%>
end if
else
Response.Redirect «default.asp " конца
«devdefault.asp "
class=