de

identificação/>> ", usrid, pswd
usrid=Request.Form escondida do align=center>
<%
dim do >

<%
%>






if userid")

pswd=Request.Form (“userpassword”) ou then
Response.Redirect “default.asp do "" do pswd=? msg=1 do " o
'function do if

Response.End
end autentica (usrid, pswd) o
'Create o objeto de COMDirectory: resumo Next
Dim SearchObject do erro do
'On, PersonObject, PersonObject2, PersonDN, check
Set SearchObject = server.CreateObject (“MSDotNet.COMDirectory. Search”) o
'//InitIISEnvironment é que preferred sobre InitVBEnvironment
'//InitIISEnvironment exige/usa os usos P de //InitVBEnvironment de AFS (\ \ Senhora \ dist \) ':

nment
SearchObject.InitIISEnviroSearchObject.ConnectFWD2 “, ou=ldapids, o=y”, “L0t0fWork "
'check se usuário - a identificação é o correct
Set PersonObject = o
gon (usrid)/>PersonDN = SearchObject.GetPersonDN (erro de PersonObject)
'On end1
'Response.Write err.number &” **** “then
Response.Redirect “default.asp do "" do persondn= do
if? msg=2 "
Response.End
else
SearchObject.ConnectFWD2 PersonDN, pswd
'persondn de Response.Write & "” & PersonObject.LogonID & persondn & “11111111” & PersonObject2.LogonID & “222222 "

ajustado (PersonDN) Response.Write do authenticate=persondn
'authenticate=PersonObject2.LogonID
“de/>
PersonObject2 = SearchObject.GetPersonByDn '/> “Response.End
id=PersonObject2.LogonID
se then
Response.Redirect “default.asp da identificação = do ""? msg=3 do " if
da extremidade
Response.End
” //This haved levantado que um erro, ou o if
%>
<%

authentication do function
end extremidade do
do succeeded
Response.Write err.number & do “_” & da “….o

'if autenticou então: rst= server.createobject do =fname

set da sessão do =lname
da sessão do =eml
da sessão do then
eml=PersonObject2.emailaddress
lname=PersonObject2.surname
fname=PersonObject2.givenname
do "" do id<> do =id

if do
session (“identificação”) (“eml”) (“lname”) (“fname”) (do “ssql= do
adodb.recordset") " selecionam * dos temployees onde ldapid=”” & identificação & “” do “rst do

. Abrir o ssql, conexão,
de 2,2
se pedido (“tipo”) = resposta do then
do " usr”. Reorientar “usrReqDetails.asp? do reqid= " & pedido do elseif do
do pedido (“do reqid”) (“tipo ”) = resposta then
" do colaborador do”. Reorientar “devReqDetails.asp? do reqid= " &
do if
da extremidade do
do pedido (“do reqid”) se resposta do
de rst.EOF então. Reorientar a resposta outra do
do
de “usrdefault.asp ". Reorientar o if
%>

do
end do if
else
Response.Redirect “default.asp " da extremidade do
de “devdefault.asp " class= do


” de ID= " Password1 "/transpix.gif VAI " o

B.ASP
do ******** do do ********** do do ********** do do ********** do do ********** do do ********** do do ********** do do ********** do do ********** do do ************************** do >





----------rst
%>
< do conn
dim do next
dim do resumo do erro do
<%on! --file= " dbstringFSNet.asp” do #include--leftmargin= do >


>



SOX
152 "
” do align= " do width= " 70% do
"; ” width= " de " 2 " imagens do src= do >
/transpix.gif 1” height= " 1” vspace= " 1 " width= " do " bgBlueDark do class=” do de >

730 >




>

Pergunta : Como a transição é feita entre 2 páginas clássicas do ASP?

Eu estou tentando compreender o fluxo das indicações entre 2 ASP clássico pages.

In observando as seguintes páginas intituladas default.ASP e B.ASP, poderia você explicar o fluxo das páginas do ASP. Como é aquele após default.ASP é executado inicialmente e B.ASP é executado então até um ponto e default.ASP é executado então para indicar o username e os campos de senha e então B.ASP executam e finalmente devdefault.asp executes.

default.ASP
----------o


SOX - assinar o leftmargin= do ><br/></HEAD><br/><br/><BODY " " do href= " onelook.new.css do " stylesheet " do rel= de in


do do >
do " bgBlueDark " " do class= 42 " width= " " do src= " imagens/hdr_morganstanley_logo.gif 152 "
" do align= " do width= " 70% do
"; " do width= " 730 do de

width= " de " 2 " imagens do src= do >
/transpix.gif 1 " height= " 1 " vspace= " 1 " colspan= " 2 " " do width= " 730 " do " bgBlueDark do class= do de >

> class= " bgBlueDark " do
> action= " B.asp " do " signin”” do name= do " borne do method= do
%>
do msg
msg=request colspan= do


  center do > do
do

<%
dim (“msg”)align=center>
> escondido escondido do >









%> " <%=request” do value= de " do " reqid” de NAME= de " Text3” de ID= do type= " do >
You do " txtnote " do class= do
<%if msg=1 then%>
do align=center do >



 " imagens do src= das " do
imagens do src= das " de CLASS=lineBlueDark WIDTH=290>
imagens do src= das " de CLASS=lineBlueDark ROWSPAN=12 WIDTH=1> de

td>


/transpix.gif”/transpix.gif”/transpix.gif 41”   de CLASS=bgYellowlight>
; border=
The do " txtnote " do class= do

<%elseif msg=2 then%>
- a identificação que você incorporou é inválida! a senha que do >The do " txtnote " do class= do

<%elseif msg=3 then%>
você incorporou é inválida! a sessão do >Your do " txtnote " do class= do

<%elseif msg=4 then%>
expirou! o >Please do " encabeçamento " do class= do


<%end if%>
incorpora suas identificação e senha: 		de width=1>
" 0” width= " 100%” cellspacing= " 0” cellpadding= " 0 >Username " direitos "” do align= " do width= " 40% do

do >
” de ID= " Text1: o size= " do " userpassword” do name=” da " senha do type= do >d>
19 value= do type=submit de width=1>


do >
” de ID= " Table3: size= "” do name= " userid do " texto” do type= do >d>
19 >Password " direito "” do align= " do width= " 40% do
do



de >

  center do > do


bgBlueDark " > (“reqid”)/>%> " do width= " 730” do
do

Resposta : Como a transição é feita entre 2 páginas clássicas do ASP?

você pode usar a notação associativa da disposição em vez de avalia () na maioria dos casos.

supr que você tem os campos text1 do texto, text2,…, textN em seu formulário. então na página da ação você pode alcançá-los dentro de um cfloop como este sem avalia () a função:


#form [“texto” & x] #


se você afixa seu código que os usos avaliam (), a seguir nós podemos mostrar-lhe como mudá-lo à notação da disposição do uso.

todos os ditos acima, avaliam () não são tão maus quanto se usou para estar em cf6 e antes que… esteja apenas que há realmente muito poucos casos onde um precisa do usar.

Azadi
Outras soluções  
 
programming4us programming4us