epub 2-2

Size: px

Start display at page:

Download "epub 2-2"

蝴蓝
5 years ago
Views:

1 2 A S P A S P A S P A S V B S c r i p t A S P A c t i v e X A S P A c t i v e X A S P A S P A c t i v e X A S P A p p l i c a t i o n A p p l i c a t i o n A p p l i c a t i o n R e q u e s t R e q u e s t R e q u e s t H T M L R e s p o n s e R e s p o n s e R e s p o n s S e r v e r S e r v e r S e r v e S e r v e r S e s s i o n S e s s i o n S e s s i o O b j e c t C o n t e x t O b j e c t C o n t e x t A S P Microsoft Transaction Server(MTS)

2 10 ASP SQL Server 2.1 Response Request Response URL cookie < h t m l > <head><title>buffer Example</title></head> < b o d y > FOR i=1 to 500 R e s p o n s e. W r i t e ( i &" < B R > ") N E X T < / b o d y > < / h t m l > A S P. R e s p o n s e. Wr i t e ( i & < B R > ) R e s p o n s e Wr i t e 1 ~ 500 R e s p o n s e Wr i t e HTTP A S P R e s p o n s e B u ff e r <% Response.Buffer=True %> < H T M L > <HEAD><TITLE>Buffer Example</TITLE></HEAD> < b o d y > FOR i=1 to 500 N E X T R e s p o n s e. W r i t e ( i & " < B R > " ) < / b o d y > < / h t m l > A S P. = R e s p o n s e. B u ff e r = True %> R e s p o n s e B u ff e r Tr u e B u ff e r < H T M L A S P H T M L B u ff e r <% Response.Buffer=True %>

3 2 A S P 11 < H T M L > < H E A D > < T i t l e > < / t i t l e > < / h e a d > < B o d y > < / b o d y > < / h t m l > <% R a n d o m i z e IF Int(2*rnd)=1 THEN Response.End R e s p o n s e. C l e a r < H T M L > < H E A D > < T I T L E > < / t i t l e > < / h e a d > < b o d y > < / b o d y > < / h t m l > R e s p o n s e E n d C l e a r E n d A S P E n d E n d C l e a r C l e a r C l e a r B R e s p o n s e F l u s h C l e a r B u ff e Tr u e E n d A S P A S P H T M L V B R a n d o m i z e ' IF INT(2*RND)=1 THEN < H T M L > < H E A D > < T I T L E > < / T I T L E > < / H E A D > < B O D Y > < / B O D Y > < / H T M L > <% ELSE %> < H T M L >

4 12 ASP SQL Server < H E A D > < T I T L E > < / T I T L E > < / H E A D > < B O D Y > < / b o d y > < / h t m l > <% %> H e a d e r B u ff e r Tr u e A S P H e a d e r s H e a d e r s H e a d e r s H e a d e r s R e q u e s t S e r v e r Va r i a b l e H e a d e r s S e r v e r Va r i a b l e H e a d e r s S e r v e r Va r i a b l e < H T M L > < H E A D > < T i t l e > < / T i t l e > < / H E A D > < B O D Y > <% FOR Each name IN Request.ServerVariables R e s p o n s e. W r i t e (" < p > < b > "& n a m e &" < / b > :") Response.Write(Request.ServerVariables (name)) N E X T < / B O D Y > < / H T M L > A L L _ H T T P : H T T P _ A C C E P T i m a g e / g i f, i m a g e / x - x b i t m a p, i m a g e / j p e g, i m a g e / p j p e g,*/* H T T P _ A C C E P T _ L A N G U A G E : e n H T T P _ C O N N E C T I O N : K e e p _ A l i v e H T T P _ H O S T : p l a t o H T T P _ U S E R _ A G E N T : M o z i l l a / [ e n ]( W i n N T ; I ) H T T P _ C O O K I E : U S E R I D = H T T P _ A C C E P T _ C H A R S E T i s o *, u t f - 8 ALL_RAW:Accept:image/gif,image/x-xbitmap,image/jpeg,image/pjpeg,*/* Accept- Language: en Connection: Keep-alive Host:plato User-Agent:Mozilla/4.01[en](WinNT;I) C o o k i e : U S E R I D = A c c e p t - C h a r s e t : i s o ,*. u t f - 8 A P P L _ M D _ P A T H :/ L M / W 3 S V C / 1 / R O O T / t e s t / A P P L _ P H Y S I C A L _ P A T H :/ D :\ I n e t p u b \ w w w r o o t

5 2 A S P 13 A U T H _ P A S S W O R D : A U T H _ T Y P E : A U T H _ U S E R : C E R T _ C O O K I E : C E R T _ F L A G S : C E R T _ I S S U E R : C E R T _ K E Y S I Z E : C E R T _ S E C R E T K E Y S I Z E : C E R T _ S E R I A L N U M B E R : C E R T _ I S S U E R : C E R T _ S U B J E C T :...( ) S e r v e r Va r i a b l e s A L L _ H T T P HTTP A L L _ R AW A L L _ R AW ALL_HTTP ALL_HTTP HTTP_ prefix A L L _ R AW A P P L _ M D _ PAT H ISAPI DLL ( WAM) Application A P P L _ P H Y S I C A L _ PAT H IIS A P P L _ M D _ PATH A U T H _ PA S S W O R D A U T H _ T Y P E A U T H _ U S E R C E RT _ C O O K I E I D C E RT _ F L A G S bit0 1 CA bit1 1 C E RT _ I S S U E R O = M S O U = I A S CN=user name C = U S A C E RT _ K E Y S I Z E 128 C E RT _ S E C R E T K E Y S I Z E 1024 C E RT _ S E R I A L N U M B E R C E RT _ S E RV E R _ I S S U E R C E RT _ S E RV E R _ S U B J E C T C E RT _ S U B J E C T C O N T E N T _ L E N G T H C O N T E N T _ T Y P E HTTP G E T POST P U T G AT E WAY _ I N T E R FA C E CGI C G I / r e v i s i o n

6 14 ASP SQL Server H T T P _ < H e a d e r N a m e > HeaderName HTTP_ S e r v e r Variables HeaderName _ H T T P _ M Y _ H E A D E R MY_HEADER O F F H T T P S S S L O N H T T P S _ K E Y S I Z E 128 H T T P S _ S E C R E T K E Y S I Z E 1024 H T T P S _ S E RV E R _ I S S U E R H T T P S _ S E RV E R _ S U B J E C T I N S TA N C E _ I D I I S I D ID 1 Web I D I N S TA N C E _ M E TA _ PAT H IIS L O C A L _ A D D R IP L O G O N _ U S E R Windows NT PAT H _ I N F O PATH_INFO U R L CGI PAT H _ T R A N S L AT E D PATH_INFO Q U E RY _ S T R I N G HTTP? R E M O T E _ A D D R IP R E M O T E _ H O S T MOTE_ADDR R E M O T E _ U S E R R E Q U E S T _ M E T H O D HTTP G E T H E A D P O S T S C R I P T _ N A M E U R L S E RV E R _ N A M E URL DNS IP S E RV E R _ P O RT S E RV E R _ P O RT _ S E C U R E S E RV E R _ P R O TO C O L protocol/revision S E RV E R _ S O F T WA R E name/version U R L URL

7 2 A S P 15 S e r v e r Va r i a b l e s o r i g i n. a s p < H T M L > < H E A D > < T I T L E > < / T I T L E > < / H E A D > < B O D Y > W h e r e F o r m = R e q u e s t. S e r v e r V a r i a b l e s (" H T T P _ R E F E R E R ") IF WhereForm=" THEN A S P E L S E < / B O D Y > < / H T M L > HTTP_REFERER h t t p :// w w w. m y s e r v e r. c o m / e x a m p l e / o r i g i n. a s p C o o k i e s R e s p o n s e R e q u e s t c o o k i e HTTP c o o k i e c o o k i e Web Web cookie R e s p o n s e C o o k i e s c o o k i e c o o k i e Response.Cookies(cookie)[(key).attribute] = value cookies c o o k i e key k e y cookie key v a l u e value key attribute a t t r i b u t e cookie attribute D o m a i n E x p i r e s H a s K e y s P a t h S e c u r e cookie cookie cookie cookie cookie cookie cookie

8 16 ASP SQL Server R e s p o n s e c o o k i e c o o k i e <% Response.Cookies("mycookie")("type1") = "First" Response.Cookies("mycookie")("type2") = "Secondly" %> S e t - C o o k i e : M Y C O O K I E = T Y P E 1 = s u g a r & T Y P E 2 = g i n g e r + s n a p C o o k i e s m y C o o k i e t y p e 1 = F i r s t & t y p e 2 = S e c o n d l y mycookie type1 t y p e 2 <% Response.Cookies("myCookie") = "Third" %> type1 type2 mycookie Third C o o k i e s m y c o o k i e T h i r d R e q u e s t C o o k i e s c o o k i e Request.Cookies(cookie)[(key).attribute] cookie c o o k i e key cookie attribute cookie key cookie cookie k e y MyCookie, First S e c o n d R e q u e s t. C o o k i e s F i r s t = f i r s t k e y v a l u e & S e c o n d = s e c o n d k e y v a l u e c o o k i e Request.Cookie c o o k i e /www/ / w w w / h o m e / cookie /www/home/ Request.Cookie c o o k i e cookie cookie cookie <%= Request.Cookies("myCookie").HasKeys %> mycookie cookie T R U E FA L S Cookies cookie cookie

9 2 A S P 17 cookie HasKeys cookie R e q u e s t. C o o k i e s ASP < HTML> cookie HTTP HTTP R e s p o n s e. C o o k i e s : HTTP HTTP c o o k i e ( ) <%@ LANGUAGE=VBScript %> U s e r n a m e = R e q u e s t. C o o k i e s ("U s e r I n f o") IF Username=" " T H E N Username = Request.Form("U s e r n a m e") R e s p o n s e. C o o k i e s ("U s e r I n f o") = Username R e s p o n s e. C o o k i e s ("U s e r I n f o").expires = "Dec 1, 2000" R e s p o n s e. C o o k i e s ("U s e r i n f o").path = "/" IF Username <> " " T H E N R e s p o n s e. Write " " E L S E R e s p o n s e. Write " " < h t m l > < b o d y > <p align="c e n t e r"> < / p > <p align="c e n t e r"> < / p > <p align="c e n t e r"> < / p > <Form method="p O S T" a c t i o n ="r e g i s t e r. a s p" name=form1 > <div align="c e n t e r"> <table width="4 5 %"> <tr> <td><font size="2"> < / f o n t > < / t d > <td> <Input Ty p e ="t e x t" name=username size="1 5" m a x l e n g t h ="1 5"> < / t d > < / t r > <td> <div align="c e n t e r"> <Input Type=submit value=" "> < / d i v > < / t d > < / t a b l e > < / d i v > < / F o r m >

10 18 ASP SQL Server <p align="center">< / p > < / b o d y > < / h t m l > 2-1 C o o k i e s 2-2 C o o k i e s R e g i s t e r. a s p H T T P R e g i s t e r. a s p U s e r n a m e = R e q u e s t. C o o k i e s ( " U s e r I n f o " )

11 2 A S P 19 R e q u e s t c o o k i e U s e r n a m e IF Username="" THEN C o o k i e " Username = Request.Form("Username") Response.Cookies("UserInfo") = Username Response.Cookies("UserInfo").Expires = "Dec 1, 2000" Response.Cookies("Userinfo").Path = "/" IF Username <> "" THEN Response.Write " " E L S E Response.Write " " We b We b R e q u e s t Username = Request.Form("Username") A S P R e q u e s t F o r m POST HTTP Request.Form(element)[(index).Count] element index 1 R e q u e s t. F o r m (parameter).count Count Form Request.Form(element) element Request.Form(element).Count 1 0 index index 1 Request.Form(element).Count index < H t m l > < H e a d > < T i t l e > < / T i t l e > < / H e a d > < B o d y > < H 2 > < / H 2 >

12 20 ASP SQL Server < P > " ": <Form Method="POST" Action="form.asp"> < P > <Input Type="checkbox" name="title" value=" "> <Input Type="checkbox" name="title" value=" "> <Input Type="checkbox" name="title" value=" "> <Input Type="checkbox" name="title" value=" "> < I n p u t Type="checkbox" name="title" value=" "> <P><Input Type="checkbox" name="title" value=" "> <Input Type="checkbox" name="title" value=" "> <Input Type="checkbox" name="title" value=" "> <Input Type="checkbox" name="title" value=" "> <P><Input Type=SUBMIT value=" "><Input Type=RESET value=" " > < / F o r m > < / B o d y > < / H t m l > f o r m. h t m <%@ LANGUAGE = "VBScript" %> FOR Each item In Request.Form("title") Response.Write item & "<BR>" N E X T 2-3 f o r m. a s p H T T P f o r m. h t m

13 2 A S P R e q u e s t F o r m H T M L H T M L F o r m M e t h o d = " P O S T " F o r m H T T P A S R e q u e s t A S P R e q u e s t F o r m F o r m HTML Form R e q u e s t Q u e r y S t r i n g h t t p :// w w w. s t o c k t. c o m / q u e r y. a s p? s t o c k C o d e = 0660 (?) H T T P QueryString HTTP F o r m QueryString HTTP Q u e r y S t r i n g Q u e r y IE Q u e r y U R L Q u e r y U R L Q u e r y IE Q u e r y H T T P F o r m h i d d e n H T M L

14 22 ASP SQL Server H T T P F o r m Q u e r y Q u e r y S t r i n g Request.QueryString(variable)[(index).Count] v a r i a b l e HTTP i n d e x variable 1 Request.QueryString(variable).Count Q u e r y S t r i n g Q U E RY _ S T R I N G Q U E RY_STRING H T T P? Request.QueryString ( ) Q U E RY _STRING Request.QueryString(parameter).Count 1 0 h t t p : / / N a m e s. a s p? N A M E = F r e d & N A M E = S a l l y Names.asp FOR Each item In Request.QueryString("NAME") Response.Write item & "<BR>" N E X T Names.asp F r e d S a l l y Count FOR I = 1 To Request.QueryString("NAME").Count Response.Write Request.QueryString("NAME")(I) & "<BR>" N E X T F o r m F o r m. a s p <%@ LANGUAGE = "VBScript" %> FOR Each item In Request.QueryString("title") Response.Write item & "<BR>" N E X T R e s p o n s e Redirect Redirect U R L Redirect HTTP URL Redirect U R L

15 2 A S P 23 : IF Request.Form("UserName")="" THEN Response.Redirect "register.asp" < H T M L > < H E A D > < T I T L E > < / T I T L E > < / H E A D > < B O D Y > = R e q u e s t. F o r m (" U s e r N a m e ") < / B O D Y > < / H T M L > R e s p o n s e. R e d i r e c t < H T M L > R e s p o n s e. R e d i r e c t H T M L A S P H T T P S e r v e r N e t S c a p e 4. 0 Object Moved This Object may be found here h e r e I N C L U D E A S P I N C L U D E H T M L < H T M L > < H E A D > < T I T L E > < / T I T L E > < / H E A D > < B O D Y >  < / B O D Y > < / H T M L > m y b a n n e r. i n c A S P < B O D Y > A S P m y b a n n e r. i n c H T M L < H T M L > < H E A D > < T I T L E > < / T I T L E > < / H E A D > < B O D Y >

16 24 ASP SQL Server < / B O D Y > < / H T M L > F I L E. i n c. a s p. h t m. h t m l I I S I I Internet Service Manager S e r v e r I I S A S P A S I N C L U D E IF Request.Form("Username")="" THEN <!--#INCLUDE VIRTUAL="regester.asp"> R e s p o n s e. E n d < H T M L > < H E A D > < T I T L E > < / T I T L E > < / H E A D > < B O D Y > = R e q u e s t. F o r m (" U s e r N a m e ") < / B O D Y > < / H T M L > R e s p o n s e. R e d i r e c t R e s p o n s e. E n d I I S I N C L U D E I N C L U D E IF Request.Form("Username")="" THEN M y i n l c u d e = " r e g i s t e r. a s p " E L S E

17 2 A S P 25 M y i n c l u d e = " H o m e p a g e. a s p "  I I S I N C L U D E V B = M y I n c l u d e Response 1. ContentTy p e C o n t e n t Ty p e HTTP C o n t e n t Ty p e t e x t / H T M L 2. Charset Charset Response content-type Response.Charset ASP content-type : c o n t e n t - t y p e : t e x t / h t m l.asp content-type : Response.Charset="gb2312") %> : content-type:text/html; charset=gb2312 content-type Response.Charset Response.Charset C h a r s e t N a m e Response.Charset 3. Expires E x p i r e s r e s p o n s e. e x p i r e s = 0 ASP Web 4. ExpiresAbsolute Expires ExpiresAbsolute :00 30 <% Response.ExpiresAbsolute=#Jul 31,2000 9:00:30# %> Request 1. TotalBytes

18 26 ASP SQL Server Counter = Request.TotalBytes 2. Counter Dim bytecount bytecount = Request.TotalBytes Request R e q u e s t BinaryRead POST SafeArray SafeArray variant = Request.BinaryRead(count) v a r i a n t V T _ A R R AY VT_UI1 c o u n t count R e q u e s t. To t a l B y t e s BinaryRead POST Request.Form B i n a r y R e a d Request.Form Request.Form B i n a r y Write Request Request.Form BinaryRead Dim binread Dim bytecount bytecount = Request.TotalBytes binread = Request.BinaryRead(bytecount) 2.2 Application A S P A S A S P A p p l i c a t i o n

19 2 A S P 27 A p p l i c a t i o n A S P ASP a p p l i c a t i o n A S P A p p l i c a t i o A p p l i c a t i o n A p p l i c a t i o n A p p l i c a t i o n A p p l i c a t i A p p l i c a t i o n A p p l i c a t i o n Internet Service Manager A p p l i c a t i o n A p p l i c a t i o n A p p l i c a t i o n A p p l i c a t i o n A S P A p p l i c a t i o n A p p l i c a t i o n A Application Application Lock Unlock A p p l i c a t i o n. m e t h o d Contents Contents Contents A p p l i c a t i o n. C o n t e n t s ( K e y ) K e y Application.Contents S e r v e r.createobject A p p l i c a t i o n M y Var MyObj A p p l i c a t i o n. C o n t e n t s <% Application("MyVar") = "Hello" Set Application("MyObj") = Server.CreateObject("MyComponent") Application.Contents FOR...EACH FOR...NEXT Application.Contents

20 28 ASP SQL Server FOR EACH Key in Application.Contents Response.Write ("Key") NEXT Key <% FOR i = 1 to Application.Contents.Count Response.Write ("Key") NEXT Key 2. StaticObjects StaticObjects Application <OBJECT> A p p l i c a t i o n. S t a t i c O b j e c t s ( K e y ) K e y StaticObjects <% DIM ObjProp FOR Each ObjProp in Application.StaticObjects Response.Write(ObjProperty & " : " & Application.StaticObjects(ObjProp) & " < B R > ") NEXT ObjProp %> Lock Lock Application Application Unlock.asp Application Application.Lock 2. Unlock Unlock Lock Application Web.asp A p p l i c a t i o n A p p l i c a t i o n. U n l o c k

21 2 A S P 29 <% A p p l i c a t i o n (" N u m V i s i t s ") = 0 A p p l i c a t i o n. L o c k Application("NumVisits") = Application("NumVisits") + 1 A p p l i c a t i o n. U n l o c k %> <%= Application("NumVisits") %>! Lock N u m Visits U n l o c k N u m Vi s i t s N u m Visits A p p l i c a t i o n Application_OnEnd Application_OnEnd Session_OnEnd Application Server <SCRIPT LANGUAGE=ScriptLanguage RUNAT=Server> Sub Application_OnEnd... End </SCRIPT> ScriptLanguage V B S c r i p t J S c r i p t 2. Application_OnStart Application_OnStart Session_OnStart Application Server Application_OnStart S e s s i o n Request Response S u b <SCRIPT LANGUAGE=ScriptLanguage RUNAT=Server> Sub Application_OnStart... E < / S C R I P T > ScriptLanguage VBScript J S c r i p t A p p l i c a t i o n O n S t a r t S e s s i o n _ S t a r t A p p l i c a t i o n

22 30 ASP SQL Server S e s s i o n A p p l i c a t i o A p p l i c a t i o n _ O n E n d A p p l i c a t i o n Internet Service Manager A p p l i c a t i o n _ O n E n d A p p l i c a t i o n A p p l i c a t i o U n l o a d A p p l i c a t i o n _ O n E n d S e s s i o n _ O n E n d A p p l i c a t i o n _ O n S t a r t A p p l i c a t i o n _ O n E n d G l o b a l. a s a A p p l i c a t i o n S e s s i o A p p l i c a t i o n A p p l i c a t i o A p p l i c a t i o n A p p l i c a t i o n A p p l i c a t i o n G l o b a l. a s a A p p l i c a t i o n 2.3 Session S e s s i o n H T T P H T T P H T T P Session Web Session Web Web Session.asp ASP S e s s i o n I D SessionID Session ID cookie Web SessionID cookie.asp.asp ASP cookie.asp ASP cookie Web SessionID, SessionID cookie SessionID cookie ASP cookie ASP ASP SessionID Session

23 2 A S P 31 cookie Cookies Session A S P S e s s i o n s S e s s i o n S e s s i o n S e s s i o n S e s s i o n S e s s i o n (" M y n a m e ") = R e s p o n s e. f o r m (" U s e r n a m e ") S e s s i o n (" M y c o m p a n y ") = R e s p o n s e. f o r m (" U s e r c o m p a n y ") A S P M y n a m e U s e r n a m e M y c o m p a n y U s e r c o m p a n y A S P < H T M L > < H E A D > < T I T L E > < / T I T L E > < / H E A D > = S e s s i o n (" M y n a m e ") = S e s s i o n (" M y c o m p a n y ") < / B o d y > < / h t m l > U s e r n a m e U s e r c o m p a n y M y n a m e M y c o m p a n y S e s s i o n S e s s i o n S e s s i o S e s s i o n S e s s i o n M y n a m e M y c o m p a n y Contents Session.contents <OBJECT> Session.Contents( Key ) K e y S e s s i o n C o n t e n t s <% Session("MyVar")=" " %>

24 32 ASP SQL Server <% Session.Contents("MyVar")=" " %> Contents Dim Sessitem FOR EACH sessitem in Session.Contents Response.Write(sessitem & " : " & Session.Contents(sessitem) & "<BR>") NEXT 2. StaticObjects StaticObjects Session <OBJECT> Session.StaticObjects( Key ) K e y StaticObjects DIM objprop FOR EACH objprop in Session.StaticObjects Response.Write(objproperty & " : " & Session.StaticObjects(objprop) & "<BR NEXT SessionID SessionID SessionID Web SessionID Web SessionID Microsoft SQL Server I D E N T I T Y Microsoft Access COUNTER 2. Ti m e o u t S e s s i o n

25 2 A S P 33 A S P S e s s i o n Ti m e o u t S e s s i o n 60 <% Session.Timeout=60 %> S e s s i o n A b a n d o n Session Abandon Abandon Session Abandon Session Web S e s s i o n <% Session.Abandon %> S e s s i o n S e s s i o n A b a n d o S e s s i o n S e s s i o n I D S e s s i o i n < H T M > <HEAD><TITLE>Abandon Session</TITLE></HEAD> < B O D Y > < B R > <%=SessionID %> <% Session.Abandon %> < B R > <%=SessionID %> < / B O D Y > < / H T M L > S e s s i o n S e s s i o n I D S e s s i o n. A b a n d o n S e s s i o S e s s i o n Session_OnEnd Session_OnEnd A p p l i c a t i o n Server Session

26 34 ASP SQL Server <SCRIPT LANGUAGE=ScriptLanguage RUNAT=Server> Sub Session_OnEnd... End Sub < / S C R I P T > ScriptLanguage VBScript J S c r i p t 2. Session_OnStart Session_OnStart Session_OnStart Session_OnStart Redirect End Session Global.asa Session_OnStart Web Session_OnStart Redirect Session_OnStart Response.Redirect : < SCRIPT RUNAT=Server Language=VBScript> Sub Session_OnStart startpage = "/MyApp/StartHere.asp" currentpage = Request.ServerVariables("SCRIPT_NAME") IF strcomp(currentpage,startpage,1) THEN R e s p o n s e. R e d i r e c t ( s t a r t P a g e ) END SUB < /SCRIPT> cookie cookie SessionID cookie Web Session_OnStart Session_OnStart S e s s i o n _ O n E n d G l o b a l. a s a G l o b a l. a s a <SCRIPT LANGUAGE=VBScript RUNAT=Server> SUB Application_OnStart END SUB < / S C R I P T > <SCRIPT LANGUAGE=VBScript RUNAT=Server> SUB Application_OnEnd END SUB < / S C R I P T > <SCRIPT LANGUAGE=VBScript RUNAT=Server> SUB Session_OnStart

27 2 A S P 35 END SUB < / S C R I P T > <SCRIPT LANGUAGE=VBScript RUNAT=Server> SUB Session_OnEnd END SUB < / S C R I P T > G l o b a l. a s a 4 S e s s i o n _ O n S t a r t S e s s i o n _ O n E n d A p p l i c a t i o n _ O n S t a r t A p p l i c a t i o n _ O n E n d G l o b a l. a s a H T M L < S C R I P T > < S C R I P T > % G l o b a l. a s a V B S c r i p t G l o b a l. a s a H T M L R e s p o n s e. Wr i t e () G l o b a l. a s a S e s s i o n C o o k i e s C o o k i e C o o k i e s S e s s i o n C o o k i e s C o o k i e s 2.4 Sever Server S e r v e r S e r v e r S c r i p t Ti m e o u t S c r i p t Timeout Server.ScriptTimeout = NumSeconds NumSeconds 90 S e r v e r S c r i p t Ti m e o u t <% Server.ScriptTimeOut=150 %>

28 36 ASP SQL Server CreateObject S e r v e r. C r e a t e O b j e c t ActiveX ActiveX ActiveX VBScript ActiveX ASP Server.CreateObject("Component Name") S e r v e r.createobject ASP < OBJECT> Session A p p l i c a t i o n S c o p e Set Session("ad") = Server.CreateObject("MSWC.AdRotator")%> Set Response = Server.CreateObject("Response") %> 2. HTMLEncode HTMLEncode HTML HTML ASP HTML Server.HTMLEncode( string ) s t r i n g < b r > H T M L < H T M L > < B O D Y > <FONT SIZE=3> H T M L < b r > < / F O N T > < / B O D Y > < / H T M L > H T M L Server HTMLEncode HTML HTML HTMLEncode

29 2 A S P 37 Response.Write Server.HTMLEncode(" H T M L < b r > ") H T M L < b r > 3. URLEncode HTMLEncode HTML Server URLEncode URL URL URL S e r v e r.urlencode Server.URLEncode( string ) S t r i n g <%Response.Write(Server.URLEncode(" %> http%3a%2f%2fwww%2emicrosoft%2ecom Q u e r y S t r i n g E n c o d e <a href="test.asp?message=<%=server.urlencode("this Query String has been UR e n c o d e d.") " > < / a > Q u e r y S t r i n g E n c o d e E n c o d E n c o d e M e s s a g e = T h i s + Q u e r y + S t r i n g + h a s + b e e n + U R L + e n c o d e d % 2 E A S P t e s t. a s p = R e q u e s t. Q u e r y S t r i n g ( " m e s s a g e " ) This Query String has been URL encoded. 4. MapPath MapPath Server.MapPath(Path) P a t h Path (/) (\)

$38 ASP SQL Server MapPath Path Path MapPath.asp MapPath data.txt test.asp C :\ I n e t p u b \ W w w r o o t \asp C:\Inetpub\Wwwroot PATH_INFO = Server.mappath(Request.$

30 38 ASP SQL Server MapPath Path Path MapPath.asp MapPath data.txt test.asp C :\ I n e t p u b \ W w w r o o t \asp C:\Inetpub\Wwwroot PATH_INFO = Server.mappath(Request.ServerVariables("PATH_INFO"))%> c:\inetpub\wwwroot\asp\test.asp C :\ I n e t p u b \ W w w r o o t \ a s p = Server.mappath("data.txt")%> = Server.mappath("asp/data.txt")%> c :\ i n e t p u b \ w w w r o o t \ a s p \ d a t a. t x t c :\ i n e t p u b \ w w w r o o t \ a s p \ a s p \ d a t a. t x t g l o b a l. a s a S e s s i o n _ O n S t a r t 10 S e s s i o n _ O n E n d I P

2 A S P 39 2-6 A p p l i c a t i o n _ O n S t a r d I P A p p l i c a t i o n _ O n E n d I P ------ global.asa ------ <SCRIPT LANGUAGE="VBScript" RUNAT="Server"> SUB Session_OnStart S e s s i o n.

31 2 A S P A p p l i c a t i o n _ O n S t a r d I P A p p l i c a t i o n _ O n E n d I P global.asa <SCRIPT LANGUAGE="VBScript" RUNAT="Server"> SUB Session_OnStart S e s s i o n. t i m e o u t = 10 END SUB SUB Session_OnEnd FOR i=1 to 40 IF Application("user" & i)=session("username") THEN Application("ip" & i)="" Application("user" & i)="" NEXT END SUB SUB Application_OnStard FOR i=1 to 40 Application("ip" & i)="" Application("user" & i)="" NEXT END SUB SUB Application_OnEnd

32 40 ASP SQL Server FOR i=1 to 40 Application("ip" & i)="" Application("user" & i)="" NEXT END SUB < / S C R I P T > i n d e x. h t m 2-5 i s l e n g t h i s a l p h a index.htm < h t m l > < h e a d > < t i t l e > C h a t < / t i t l e > < / h e a d > <SCRIPT LANGUAGE=VBScript> FUNCTION islength(val) v a l = c s t r ( v a l ) n a m e l e n = 0 IF len(val)>2 THEN FOR i=1 to len (val) IF asc(mid(val,i,1))<0 THEN n a m e l e n = n a m e l e n + 2 ELSE n a m e l e n = n a m e l e n + 1 N E X T IF namelen<11 THEN i s l e n g t h = t r u e ELSE msgbox " 10 " islength=false E L S E msgbox " 3 " i s l e n g t h = f a l s e END FUNCTION FUNCTION isalpha(val) IF islength(val) THEN IF instr(val,"<")>0 or instr(val,">")>0 _ or instr(val,chr(34))>0 or instr(val,chr(39))>0 THEN msgbox " " v a l. s e l e c t i s a l p h a = f a l s e

33 2 A S P 41 EXIT FUNCTION i s a l p h a = t r u e E L S E i s a l p h a = f a l s e END FUNCTION FUNCTION check() IF not islength(document.login.name.value) THEN EXIT FUNCTION ELSEIF not isalpha(document.login.name.value) THEN EXIT FUNCTION document.login.submit () END FUNCTION < / S C R I P T > < b o d y > < b l o c k q u o t e > < b l o c k q u o t e > < b l o c k q u o t e > <p align="center"><big><big><font color="#0000a0" face=" "><strong><big><big> </big></big></strong></font></big><font face=" " color="#800000"><em> </em></font></big><img src="001.gif" WIDTH="128" HEIGHT="152"></p> < / b l o c k q u o t e > < / b l o c k q u o t e > < / b l o c k q u o t e > <Form method="post" name=login action="frmmain.asp"> <div align="center"><center><p> < / p > </center></div><div align="center"><center><table border="0" bgcolor="#000 width="408" height="88"> < t r > <td bgcolor="#000050" width="117" align="left" height="22"><font c o l o r = "# F F F F F F " > < s t r o n g > < / s t r o n g > < / f o n t > < / t d > <td bgcolor="#000050" width="182" align="left" height="22"></td> <td bgcolor="#000050" width="97" align="left" height="22"></td> < / t r > < t r > <td bgcolor="#000050" width="117" align="left" height="40"><div align="right"><p><font color="#ffffff"><strong> < / s t r o n g > < / f o n t > < / t d > <td bgcolor="#000050" width="182" align="left" height="40"><input type="te name="name" size="16"></td> <td bgcolor="#000050" width="97" align="left" height="40"><input type="but v a l u e = " " onclick="check()" name="button"></td> < / t r >

34 42 ASP SQL Server < t r > <td width="389" colspan="3" align="left" height="18"><div a l i g n = " c e n t e r " > < c e n t e r > < p > < / t d > < / t r > < / t a b l e > </center></div><div align="center"><center><p> < / p > < / c e n t e r > < / d i v > < / F o r m > < / b o d y > < / h t m l > f r m m a i n. a s p r e q u e s t f o r m S e r v e r Va r i a b l e s I P A p p l i c a t i o n frmmain.asp <%@ LANGUAGE="VBSCRIPT" %> DIM Cantin DIM Twoman n a m e = r e q u e s t. f o r m (" n a m e ") C a n t i n = f a l s e T w o m a n = f a l s e S e s s i o n (" u s e r n a m e ") = n a m e FOR i=1 to 40 IF Application("user" & i)=session("username") and _ Application("ip" & i)=request.servervariables("remote_addr") THEN Application("user" & i)=session("username") Application("ip" & i)=request.servervariables("remote_addr") EXIT FOR IF Application("ip" & i)=request.servervariables("remote_addr") and _ Application("user" & i)<>session("username") THEN C a n t i n = t r u e loginedname=application("user" & i) EXIT FOR IF Application("user" & i)=session("username") and _ Application("ip" & i)<>request.servervariables("remote_addr") THEN C a n t i n = t r u e T w o m a n = t r u e EXIT FOR IF Application("user" & i)="" THEN Application("user" & i)=session("username") Application("ip" & i)=request.servervariables("remote_addr") EXIT FOR N E X T

35 2 A S P 43 < h t m l > <%IF Cantin<>true THEN%> <frameset framespacing="0" border="false" frameborder="0" rows="33,16"> <frame name="main" src="list.asp" scrolling="no"> <frame name="footer" scrolling="no" src="input.asp" target="main"> < n o f r a m e s > <body topmargin="0" leftmargin="0"> E L S E IF loginedname<>"" THEN%> </h2> < h 5 > <font color="red"><%=loginedname%></font> < b r > I P < b r > <font color="red"><%=loginedname%></font> < b r > < b r > <% IF twoman=true THEN%> </h5> < h 4 > I P < b r > < b r > < / h 4 > < / b o d y > < / n o f r a m e s > < / f r a m e s e t > < / h t m l > A p p l i c a t i o n Chat I n p u t. a s p request f o r m Talkstr, Talkstr o u t p u t input.asp <%@ LANGUAGE="VBSCRIPT" %> DIM Talkstr T a l k s t r = R e q u e s t. f o r m (" i n p u t ") IF instr(talkstr,"script")>0 THEN Talkstr="" IF instr(talkstr,chr(39))>0 THEN T a l k s t r = r e p l a c e ( T a l k s t r, c h r ( 39 ),"\"& c h r ( 39 )) IF instr(talkstr,chr(39))>0 THEN T a l k s t r = r e p l a c e ( T a l k s t r, c h r ( 39 ),"\"& c h r ( 39 ))

36 44 ASP SQL Server IF Talkstr<> "" THEN a c t i o n = R e q u e s t. f o r m (" a c t i o n ") t o w h o = R e q u e s t. f o r m ( " t o w h o " ) n a m e = R e q u e s t. f o r m ( " n a m e " ) SELECT CASE action CASE 0 Talkstr=name & " " & towho & " " & Talkstr CASE 1 CASE 2 Talkstr=name & " " & towho & " " & Talkstr Talkstr=name & " " & towho & " " & Talkstr CASE 3 CASE 4 Talkstr=name & " " & towho & " " & Talkstr Talkstr=name & " " & towho & " " & Talkstr CASE 5 Talkstr=name & " " & towho & " " & Talkstr CASE 6 Talkstr=name & " " & towho & " " & Talkstr END SELECT IF Application("output10")="" THEN FOR i=1 to 10 IF Application("output" & i)="" THEN A p p l i c a t i o n. l o c k Application("output" & i)=talkstr A p p l i c a t i o n. u n l o c k Axit for EXIT FOR N E X T E L S E FOR k=1 to 9 A p p l i c a t i o n. l o c k Application("output" & k)=application("output" & (k+1) ) A p p l i c a t i o n. u n l o c k N E X T A p p l i c a t i o n. l o c k A p p l i c a t i o n ( " o u t p u t 1 0 " ) = T a l k s t r A p p l i c a t i o n. u n l o c k < h t m l > < h e a d > <meta http-equiv="content-type" content="text/html; charset=gb2312">

37 2 A S P 45 < t i t l e > c h a t < / t i t l e > <base target="main"> <meta name="microsoft Border" content="none"> < / h e a d > <body bgcolor="#8a2be2"> <%IF session("username")="" THEN%> < h 2 > <%else%> </h2> <Form method="post" name="inputform" action="input.asp" target="footer"> <Input Type="hidden" name="name" value="<%=session("username")%>"> <div align="center"><center> <table border="0" cellspacing="0" cellpadding="0" width="902" height="70"> < t r > <td width="904" colspan="2" valign="bottom" height="46"> <font color="#000000"><br> <b>:</b><%=session("username")%></font><b> </b> <font color="#000000"> < / f o n t > <Select name="towho" size="1"> <option value=" " > < / o p t i o n > <%FOR i=1 to 40 %> IF Application("user" & i)<>"" THEN n u m b e r = n u m b e r + 1 <option <% IF towho=application("user" & i) THEN%> selected <% %> value="<%=application("user" & i)%>"> <%response.write(application("user" & i))%> </option> N E X T < / S e l e c t > & n b s p ; <Select NAME="ACTION" size="1"> <option VALUE="0"> < / o p t i o n > <option VALUE="1"> < / o p t i o n > <option VALUE="2"> < / o p t i o n > <option VALUE="3"> < / o p t i o n > <option VALUE="4"> < / o p t i o n > <option VALUE="5"> < / o p t i o n > <option VALUE="6"> < / o p t i o n > < / S e l e c t > <em><font color="#800000"> = n u m b e r < / f o n t > < / e m > < p > <Input Type="text" name="input" size="53" style="font-size: 12pt"> <Input Type="submit" value=" " name="b1"></td> < / t r > <tr align="center"> <td width="642" height="5"><div align="right"></div></td>

38 46 ASP SQL Server <td width="255" height="5"><div align="center"></div></td> < / t r > < / t a b l e > < / c e n t e r > < / d i v > < / F o r m > <%end if%> < / b o d y > < / h t m l > l i s t. a s p r e s p o n s e Wr i t e A p p l i c a t i o n list.asp </head><%@ LANGUAGE="VBSCRIPT" %> < h t m l > < h e a d > <meta http-equiv="content-type" content="text/html; charset=gb2312"> <meta http-equiv="refresh" content="2"> <title>chat room</title> < b o d y > FOR i=0 to 10 IF Application("output" & i)<>"" THEN Response.Write Application("output" & i) & "<BR>" N E X T < / b o d y > < / h t m l > H T T P i n d e x. h t m

RUN_PC連載_10_.doc

RUN_PC連載_10_.doc PowerBuilder 8 (10) Jaguar CTS ASP Jaguar CTS PowerDynamo Jaguar CTS Microsoft ASP (Active Server Pages) ASP Jaguar CTS ASP Jaguar CTS ASP Jaguar CTS ASP Jaguar CTS ASP Jaguar CTS ASP Jaguar Server ASP