/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Java / ScriptBuilder / NOSB30_TRIAL.exe / data1.cab / Program_Files / scriptlib3.sbl / ROOT57 / DATA

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 13 00 00 00 47 65 74 20 | 42 72 6f 77 73 65 72 20 |....Get |Browser |
|00000010| 56 65 72 73 69 6f 6e 13 | 00 00 00 47 65 74 20 42 |Version.|...Get B|
|00000020| 72 6f 77 73 65 72 20 56 | 65 72 73 69 6f 6e 05 00 |rowser V|ersion..|
|00000030| 00 00 4c 6f 74 75 73 44 | 00 00 00 44 65 74 65 72 |..LotusD|...Deter|
|00000040| 6d 69 6e 65 73 20 77 68 | 65 74 68 65 72 20 79 6f |mines wh|ether yo|
|00000050| 75 20 61 72 65 20 64 65 | 61 6c 69 6e 67 20 77 69 |u are de|aling wi|
|00000060| 74 68 20 61 20 34 2e 78 | 20 42 72 6f 77 73 65 72 |th a 4.x| Browser|
|00000070| 20 6f 72 20 33 2e 78 20 | 42 72 6f 77 73 65 72 72 | or 3.x |Browserr|
|00000080| 03 00 00 53 75 62 20 49 | 6e 69 74 69 61 6c 69 7a |...Sub I|nitializ|
|00000090| 65 0d 0a 25 52 45 4d 0d | 0a 0d 0a 4e 41 4d 45 3a |e..%REM.|...NAME:|
|000000a0| 20 47 65 74 20 42 72 6f | 77 73 65 72 20 56 65 72 | Get Bro|wser Ver|
|000000b0| 73 69 6f 6e 0d 0a 0d 0a | 44 45 53 43 3a 20 54 68 |sion....|DESC: Th|
|000000c0| 69 73 20 73 63 72 69 70 | 74 20 63 68 65 63 6b 73 |is scrip|t checks|
|000000d0| 20 74 68 65 20 68 74 74 | 70 20 75 73 65 72 20 61 | the htt|p user a|
|000000e0| 67 65 6e 74 20 76 61 6c | 75 65 20 61 6e 64 20 64 |gent val|ue and d|
|000000f0| 65 74 65 72 6d 69 6e 65 | 73 20 77 68 65 74 68 65 |etermine|s whethe|
|00000100| 72 20 79 6f 75 20 61 72 | 65 20 64 65 61 6c 69 6e |r you ar|e dealin|
|00000110| 67 20 77 69 74 68 20 61 | 20 34 2e 78 20 42 72 6f |g with a| 4.x Bro|
|00000120| 77 73 65 72 20 6f 72 20 | 33 2e 78 20 42 72 6f 77 |wser or |3.x Brow|
|00000130| 73 65 72 2e 0d 0a 0d 0a | 55 53 41 47 45 3a 20 43 |ser.....|USAGE: C|
|00000140| 6f 70 79 20 69 6e 74 6f | 20 61 20 44 6f 6d 69 6e |opy into| a Domin|
|00000150| 6f 20 61 67 65 6e 74 20 | 6f 72 20 75 73 65 20 74 |o agent |or use t|
|00000160| 68 65 20 46 69 6c 65 20 | 49 6d 70 6f 72 74 20 63 |he File |Import c|
|00000170| 6f 6d 6d 61 6e 64 20 74 | 6f 20 69 6e 73 65 72 74 |ommand t|o insert|
|00000180| 20 74 68 65 20 74 65 78 | 74 20 66 69 6c 65 2e 0d | the tex|t file..|
|00000190| 0a 0d 0a 50 4c 41 54 46 | 4f 52 4d 53 3a 20 4c 6f |...PLATF|ORMS: Lo|
|000001a0| 74 75 73 20 44 6f 6d 69 | 6e 6f 20 53 65 72 76 65 |tus Domi|no Serve|
|000001b0| 72 20 34 2e 35 20 61 6e | 64 20 68 69 67 68 65 72 |r 4.5 an|d higher|
|000001c0| 0d 0a 0d 0a 25 45 4e 44 | 20 52 45 4d 0d 0a 20 20 |....%END| REM..  |
|000001d0| 20 20 20 44 69 6d 20 73 | 20 41 73 20 4e 65 77 20 |   Dim s| As New |
|000001e0| 4e 6f 74 65 73 53 65 73 | 73 69 6f 6e 0d 0a 20 20 |NotesSes|sion..  |
|000001f0| 20 20 20 44 69 6d 20 64 | 6f 63 20 41 73 20 4e 6f |   Dim d|oc As No|
|00000200| 74 65 73 44 6f 63 75 6d | 65 6e 74 0d 0a 20 20 20 |tesDocum|ent..   |
|00000210| 20 20 44 69 6d 20 62 72 | 6f 77 73 65 72 20 41 73 |  Dim br|owser As|
|00000220| 20 53 74 72 69 6e 67 0d | 0a 20 20 20 20 20 0d 0a | String.|.     ..|
|00000230| 20 20 20 20 20 53 65 74 | 20 64 6f 63 20 3d 20 73 |     Set| doc = s|
|00000240| 2e 44 6f 63 75 6d 65 6e | 74 43 6f 6e 74 65 78 74 |.Documen|tContext|
|00000250| 0d 0a 20 20 20 20 20 0d | 0a 20 20 20 20 20 49 66 |..     .|.     If|
|00000260| 20 49 6e 73 74 72 28 64 | 6f 63 2e 68 74 74 70 5f | Instr(d|oc.http_|
|00000270| 75 73 65 72 5f 61 67 65 | 6e 74 28 30 29 2c 20 22 |user_age|nt(0), "|
|00000280| 34 2e 30 22 29 20 3e 20 | 30 20 54 68 65 6e 20 0d |4.0") > |0 Then .|
|00000290| 0a 20 20 20 20 20 20 20 | 20 20 20 49 66 20 49 6e |.       |   If In|
|000002a0| 73 74 72 28 64 6f 63 2e | 68 74 74 70 5f 75 73 65 |str(doc.|http_use|
|000002b0| 72 5f 61 67 65 6e 74 28 | 30 29 2c 20 22 4d 53 49 |r_agent(|0), "MSI|
|000002c0| 45 22 29 20 3e 20 30 20 | 54 68 65 6e 20 62 72 6f |E") > 0 |Then bro|
|000002d0| 77 73 65 72 20 3d 20 22 | 4d 53 49 45 20 34 2e 30 |wser = "|MSIE 4.0|
|000002e0| 22 20 45 6c 73 65 20 62 | 72 6f 77 73 65 72 20 3d |" Else b|rowser =|
|000002f0| 20 22 4e 61 76 69 67 61 | 74 6f 72 20 34 2e 58 22 | "Naviga|tor 4.X"|
|00000300| 0d 0a 20 20 20 20 20 45 | 6e 64 20 49 66 0d 0a 20 |..     E|nd If.. |
|00000310| 20 20 20 20 0d 0a 20 20 | 20 20 20 49 66 20 49 6e |    ..  |   If In|
|00000320| 73 74 72 28 64 6f 63 2e | 68 74 74 70 5f 75 73 65 |str(doc.|http_use|
|00000330| 72 5f 61 67 65 6e 74 28 | 30 29 2c 20 22 33 22 29 |r_agent(|0), "3")|
|00000340| 20 3e 20 30 20 54 68 65 | 6e 20 62 72 6f 77 73 65 | > 0 The|n browse|
|00000350| 72 20 3d 20 22 33 2e 78 | 20 42 72 6f 77 73 65 72 |r = "3.x| Browser|
|00000360| 22 0d 0a 20 20 20 20 20 | 0d 0a 20 20 20 20 20 27 |"..     |..     '|
|00000370| 70 72 69 6e 74 73 20 74 | 6f 20 74 68 65 20 62 72 |prints t|o the br|
|00000380| 6f 77 73 65 72 0d 0a 20 | 20 20 20 20 50 72 69 6e |owser.. |    Prin|
|00000390| 74 20 22 68 74 74 70 5f | 75 73 65 72 20 61 67 65 |t "http_|user age|
|000003a0| 6e 74 20 69 73 20 3a 20 | 22 20 2b 20 64 6f 63 2e |nt is : |" + doc.|
|000003b0| 68 74 74 70 5f 75 73 65 | 72 5f 61 67 65 6e 74 28 |http_use|r_agent(|
|000003c0| 30 29 0d 0a 20 20 20 20 | 20 50 72 69 6e 74 20 22 |0)..    | Print "|
|000003d0| 3c 42 52 3e 62 72 6f 77 | 73 65 72 20 69 73 20 22 |<BR>brow|ser is "|
|000003e0| 20 2b 20 62 72 6f 77 73 | 65 72 0d 0a 45 6e 64 20 | + brows|er..End |
|000003f0| 53 75 62 0d 0a 03 00 00 | 00 4e 2f 41 03 00 00 00 |Sub.....|.N/A....|
|00000400| 4e 2f 41                |                         |N/A     |        |
+--------+-------------------------+-------------------------+--------+--------+