bgBlueDark " > dold” (”reqid”)/>%> " för -/>
<%
dim för >

<%
%>






usrid=Request.Form (”) "" för usrid= för
if för

pswd=Request.Form () eller pswd="" then
Response.Redirect ”default.asp? msg=1 "
'function för if
för
Response.End
end legitimerar (usrid, pswd)
'Create som COMDirectoryen anmärker: felmeritförteckning Next
Dim SearchObject, PersonObject, PersonObject2, PersonDN, check
Set SearchObject = server.CreateObject (”MSDotNet.COMDirectory för
'On. Search”)
'//InitIISEnvironment är som preferred över InitVBEnvironment
'//InitIISEnvironment, -//InitVBEnvironmentbruk P kräver/använder för AFS (\ \ ms \ dist \) ':

nment
SearchObject.InitIISEnviroSearchObject.ConnectFWD2 ”, ou=ldapids som är o=y”, ”L0t0fWork "
'check om användare - ID är correct
Set PersonObject =
gon (usrid)/>PersonDN = för
'On för SearchObject.GetPersonDN (PersonObject) felet GoTo end1
'Response.Write err.number &” **** ”för persondn="" för
if then
Response.Redirect ”default.asp? msg=2 "
Response.End
else
SearchObject.ConnectFWD2 PersonDN, pswd
'Response.Write-persondn & "” & PersonObject.LogonID & ”persondn & ”11111111” & PersonObject2.LogonID & ”222222 "
för
(PersonDN) för/>
PersonObject2 = SearchObject.GetPersonByDn 'Response.Write för authenticate=persondn
'authenticate=PersonObject2.LogonID
”/> ”Response.End
id=PersonObject2.LogonID
om ID- = "" then
Response.Redirect ”default.asp? msg=3 "
Response.End
avslutar if
” //This ska endera haved lyftt ett fel, eller succeeded
Response.Write err.number & ”_” & err.description-
”avslutar if
%>
<%

authentication för function
end….,

'if legitimerade därefter: ssql= för
för rst= server.createobject (”adodb.recordset” för =fname

set) för perioden för =lname
för perioden för =eml
för perioden för then
eml=PersonObject2.emailaddress
lname=PersonObject2.surname
fname=PersonObject2.givenname
för "" för id<> för =id

if för
session (”ID”) (”eml”) (”lname”) (”fname”) " väljer * från temployees var ldapid=”” & ID & ”” ”rst för
för
. Öppna ssql, anslutning,
för 2,2
om förfråganen (”typ”) = svar " för usr” then
. Omdirigera ”usrReqDetails.asp? reqid=" & förfrågan för elseif för
för förfrågan (””typ” för reqid”) () = " svar för bärare-” then
. Omdirigera ”devReqDetails.asp? reqid=" &
för förfråganen (”reqid”) avslutar
för if
om svaret för
för rst.EOF därefter. Omdirigera svaret för
”för usrdefault.asp-"
det annat. Omdirigera ”devdefault.asp-"
avslutar if
%>

för
end för if
else
Response.Redirect ”default.asp " " klar "

” align= " centrerar "
; för
för

width= för
avbildar "/transpix.gif” width= " 1” height= " 1” vspace= " 1 " för
för >

width= " " för bgBlueDark för class=” för



för ID= " Password1 " avbildar src= "/transpix.gif” value= för type=submit för width=1>

Fråga : Hur övergången göras mellan 2 klassikerASP-sidor?

Pröva förmiddag I att förstå flödet av meddelanden mellan 2 klassiker ASP pages.

In observera efter den sidor betitlade default.ASPen och B.ASPEN, kunde dig förklara flödet av ASP-sidorna. Hur är den som det efter default.ASP utförs initialt och därefter B.ASP utförs upp till en peka och därefter default.ASP utförs för att visa Usernamen och lösenordet sätter in och, därefter B.ASP utför och slutligen devdefault.asp executes.

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


SOX - underteckna för rel=" stylesheet " för in





, " för width= " 30% för för class=" bgBlueDark" >
som 42 " " width=, " för src= " avbildar/hdr_morganstanley_logo.gif 152 " för
" align= " centrerar "
; för
för

width= för
avbildar "/transpix.gif " width= " 1 " height= " 1 " vspace= " 1 " för
för >

colspan= " 2 " för width= " 730 " " för bgBlueDark " för class= för
> för


för
  för >

<%
dim method= för
%>
för msg
msg=request " width= " (”msg”) " postar” name=" signin” action= " B.asp ",align=center>
> för >









%> " " för <%=request för value= " för reqid” för NAME= " för Text3” för ID= för type= " för >

Youen " för txtnote " för class= för
<%if msg=1 then%>
för align=center för >



 avbildar src= "/transpix.gif” för CLASS=lineBlueDark WIDTH=290>
avbildar src= "/transpix.gif” avbildar för src= för
"/transpix.gif”

" 41” CLASS=bgYellowlight>
 


<%elseif msg=2 then%>
användare för >The " för txtnote " - ID som du har skrivit in, är ogiltigt! för

<%elseif msg=3 then%>
lösenordet för >The " för txtnote " som du har skrivit in, är ogiltigt! för

<%elseif msg=4 then%>
perioden för >Your " för txtnote " har förfallit! >Pleasen " för titelrad " för class= för


<%end if%>
skriver in ditt ID och lösenord: för CLASS=lineBlueDark ROWSPAN=12 WIDTH=1> för

td>
för width=1>
" 0” width= " 100%” cellspacing= " 0” cellpadding= " 0” >Username för align= " för width= " 40%” för

för >
för ID= " Text1 " höger: för d>
size= " " för userpassworden för name=” " för lösenordet” för type= för > för >

>

för >
för ID= " Table3 " högra: för d>
size= " för name= " userid " för text” för type=” för >Password för align= " för width= " 40%” för
för




för >







B.ASP
för ******** för för ********** för för ********** för för ********** för för ********** för för ********** för för ********** för för ********** för för **********----------för felmeritförteckning för
<%on rst
%>
< för conn
dim för next
dim! --#includefile= " dbstringFSNet.asp”,--för rel=" stylesheet” för >



SOX




42” src=" avbildar/hdr_y_logo.gif” width=, " som 152 " för
  för >



Svar : Hur övergången göras mellan 2 klassikerASP-sidor?

du kan använda det förena samlingbeteckningssystemet i stället för utvärderar () ofta.

anta att du har text sätter in text1, text2,…, textN i ditt bildar. därefter på handlingsidan du kan ta fram dem insida en cfloopnågot liknande som denna without utvärderar () fungerar:


#form [”text” & x] nr.


om du postar ditt, kodifiera att bruk utvärderar (), då vi kan visa dig hur man ändrar det till brukssamlingbeteckningssystemet.

alla ovannämnda said, utvärderar () är inte som dåliga som den som är van vid, är i cf6 och, för… det är precis att det finns egentligen mycket få fall var ett behöver att använda det.

Azadi
Andra lösningar  
 
programming4us programming4us