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

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0f 00 00 00 53 65 72 69 | 61 6c 44 62 43 6f 6e 6e |....Seri|alDbConn|
|00000010| 65 63 74 0f 00 00 00 53 | 65 72 69 61 6c 44 62 43 |ect....S|erialDbC|
|00000020| 6f 6e 6e 65 63 74 08 00 | 00 00 4c 69 76 65 57 69 |onnect..|..LiveWi|
|00000030| 72 65 2b 00 00 00 53 65 | 72 69 61 6c 20 63 6f 6e |re+...Se|rial con|
|00000040| 6e 65 63 74 69 6f 6e 20 | 74 6f 20 61 20 64 61 74 |nection |to a dat|
|00000050| 61 62 61 73 65 2e 20 28 | 4c 69 76 65 57 69 72 65 |abase. (|LiveWire|
|00000060| 29 0f 08 00 00 2f 2a 20 | 3d 3d 3d 3d 3d 3d 3d 3d |)..../* |========|
|00000070| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000080| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000090| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000b0| 3d 0d 0a 46 55 4e 43 54 | 49 4f 4e 3a 09 53 65 72 |=..FUNCT|ION:.Ser|
|000000c0| 69 61 6c 44 62 43 6f 6e | 6e 65 63 74 0d 0a 0d 0a |ialDbCon|nect....|
|000000d0| 49 4e 50 55 54 3a 09 09 | 63 6f 6e 6e 65 63 74 54 |INPUT:..|connectT|
|000000e0| 79 70 65 20 28 73 74 72 | 69 6e 67 29 09 3a 20 61 |ype (str|ing).: a|
|000000f0| 20 73 74 72 69 6e 67 20 | 69 6e 64 69 63 61 74 69 | string |indicati|
|00000100| 6e 67 20 74 68 65 20 74 | 79 70 65 20 6f 66 20 63 |ng the t|ype of c|
|00000110| 6f 6e 6e 65 63 74 69 6f | 6e 0d 0a 09 09 09 09 09 |onnectio|n.......|
|00000120| 09 09 09 09 09 09 20 20 | 74 6f 20 62 65 20 65 73 |......  |to be es|
|00000130| 74 61 62 6c 69 73 68 65 | 64 3b 20 20 76 61 6c 69 |tablishe|d;  vali|
|00000140| 64 20 76 61 6c 75 65 73 | 20 61 72 65 3a 0d 0a 09 |d values| are:...|
|00000150| 09 09 09 09 09 09 09 09 | 09 09 20 20 22 44 41 54 |........|..  "DAT|
|00000160| 41 42 41 53 45 22 20 6f | 72 20 22 43 4f 4e 4e 45 |ABASE" o|r "CONNE|
|00000170| 43 54 49 4f 4e 22 09 0d | 0a 0d 0a 52 45 54 55 52 |CTION"..|...RETUR|
|00000180| 4e 53 3a 09 09 74 72 75 | 65 2c 20 66 6f 72 20 74 |NS:..tru|e, for t|
|00000190| 79 70 65 20 22 44 41 54 | 41 42 41 53 45 22 20 61 |ype "DAT|ABASE" a|
|000001a0| 6e 64 20 61 20 73 75 63 | 63 65 73 73 66 75 6c 20 |nd a suc|cessful |
|000001b0| 63 6f 6e 6e 65 63 74 69 | 6f 6e 3b 0d 0a 09 09 09 |connecti|on;.....|
|000001c0| 09 61 20 4c 69 76 65 57 | 69 72 65 20 63 6f 6e 6e |.a LiveW|ire conn|
|000001d0| 65 63 74 69 6f 6e 20 6f | 62 6a 65 63 74 2c 20 66 |ection o|bject, f|
|000001e0| 6f 72 20 74 79 70 65 20 | 22 43 4f 4e 4e 45 43 54 |or type |"CONNECT|
|000001f0| 49 4f 4e 22 20 61 6e 64 | 20 61 20 73 75 63 63 65 |ION" and| a succe|
|00000200| 73 73 66 75 6c 20 63 6f | 6e 6e 65 63 74 69 6f 6e |ssful co|nnection|
|00000210| 3b 0d 0a 09 09 09 09 66 | 61 6c 73 65 2c 20 66 6f |;......f|alse, fo|
|00000220| 72 20 65 69 74 68 65 72 | 20 74 79 70 65 20 61 6e |r either| type an|
|00000230| 64 20 61 20 66 61 69 6c | 65 64 20 63 6f 6e 6e 65 |d a fail|ed conne|
|00000240| 63 74 69 6f 6e 20 61 74 | 74 65 6d 70 74 0d 0a 0d |ction at|tempt...|
|00000250| 0a 44 45 53 43 3a 09 09 | 09 53 65 72 69 61 6c 44 |.DESC:..|.SerialD|
|00000260| 42 43 6f 6e 6e 65 63 74 | 20 61 74 74 65 6d 70 74 |BConnect| attempt|
|00000270| 73 20 74 6f 20 65 73 74 | 61 62 6c 69 73 68 20 61 |s to est|ablish a|
|00000280| 20 63 6f 6e 6e 65 63 74 | 69 6f 6e 20 74 6f 20 61 | connect|ion to a|
|00000290| 20 64 61 74 61 62 61 73 | 65 20 75 73 69 6e 67 0d | databas|e using.|
|000002a0| 0a 09 09 09 09 63 6f 6e | 6e 65 63 74 69 6f 6e 20 |.....con|nection |
|000002b0| 70 61 72 61 6d 65 74 65 | 72 73 20 73 74 6f 72 65 |paramete|rs store|
|000002c0| 64 20 69 6e 20 74 68 65 | 20 63 6c 69 65 6e 74 20 |d in the| client |
|000002d0| 6f 62 6a 65 63 74 20 28 | 73 65 65 20 53 63 72 69 |object (|see Scri|
|000002e0| 70 74 20 4c 69 62 72 61 | 72 79 20 66 75 6e 63 74 |pt Libra|ry funct|
|000002f0| 69 6f 6e 0d 0a 09 09 09 | 09 22 53 65 74 43 6c 69 |ion.....|."SetCli|
|00000300| 65 6e 74 44 62 50 72 6f | 70 65 72 74 69 65 73 22 |entDbPro|perties"|
|00000310| 29 2e 20 20 49 66 20 73 | 75 63 63 65 73 73 66 75 |).  If s|uccessfu|
|00000320| 6c 2c 20 69 74 20 72 65 | 74 75 72 6e 73 20 61 20 |l, it re|turns a |
|00000330| 63 6f 6e 6e 65 63 74 69 | 6f 6e 20 6f 62 6a 65 63 |connecti|on objec|
|00000340| 74 0d 0a 09 09 09 09 69 | 66 20 74 79 70 65 20 69 |t......i|f type i|
|00000350| 73 20 22 43 4f 4e 4e 45 | 43 54 49 4f 4e 22 2e 20 |s "CONNE|CTION". |
|00000360| 20 49 66 20 74 79 70 65 | 20 69 73 20 22 44 41 54 | If type| is "DAT|
|00000370| 41 42 41 53 45 22 2c 20 | 74 68 65 20 66 75 6e 63 |ABASE", |the func|
|00000380| 74 69 6f 6e 20 72 65 74 | 75 72 6e 73 20 74 72 75 |tion ret|urns tru|
|00000390| 65 2c 0d 0a 09 09 09 09 | 69 66 20 74 68 65 20 6f |e,......|if the o|
|000003a0| 70 65 72 61 74 69 6f 6e | 20 77 61 73 20 73 75 63 |peration| was suc|
|000003b0| 63 65 73 73 66 75 6c 2c | 20 61 6e 64 20 6c 65 61 |cessful,| and lea|
|000003c0| 76 65 73 20 74 68 65 20 | 67 6c 6f 62 61 6c 20 64 |ves the |global d|
|000003d0| 61 74 61 62 61 73 65 20 | 6f 62 6a 65 63 74 20 69 |atabase |object i|
|000003e0| 6e 0d 0a 09 09 09 09 61 | 20 63 6f 6e 6e 65 63 74 |n......a| connect|
|000003f0| 65 64 20 73 74 61 74 65 | 2e 20 20 0d 0a 09 09 09 |ed state|.  .....|
|00000400| 09 0d 0a 50 4c 41 54 46 | 4f 52 4d 53 3a 09 4e 65 |...PLATF|ORMS:.Ne|
|00000410| 74 73 63 61 70 65 20 45 | 6e 74 65 72 70 72 69 73 |tscape E|nterpris|
|00000420| 65 20 53 65 72 76 65 72 | 20 33 2e 30 09 09 09 09 |e Server| 3.0....|
|00000430| 0d 0a 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |..======|========|
|00000440| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000450| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000460| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000470| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 20 2a 2f |========|===== */|
|00000480| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 53 65 72 69 61 |..functi|on Seria|
|00000490| 6c 44 62 43 6f 6e 6e 65 | 63 74 28 20 63 6f 6e 6e |lDbConne|ct( conn|
|000004a0| 65 63 74 54 79 70 65 20 | 29 20 7b 0d 0a 09 76 61 |ectType |) {...va|
|000004b0| 72 20 72 65 73 75 6c 74 | 20 3d 20 6e 75 6c 6c 3b |r result| = null;|
|000004c0| 0d 0a 09 0d 0a 09 69 66 | 20 28 74 79 70 65 6f 66 |......if| (typeof|
|000004d0| 28 63 6f 6e 6e 65 63 74 | 54 79 70 65 29 20 3d 3d |(connect|Type) ==|
|000004e0| 20 74 79 70 65 6f 66 28 | 76 6f 69 64 28 30 29 29 | typeof(|void(0))|
|000004f0| 20 7c 7c 20 63 6f 6e 6e | 65 63 74 54 79 70 65 20 | || conn|ectType |
|00000500| 3d 3d 20 6e 75 6c 6c 20 | 7c 7c 20 63 6f 6e 6e 65 |== null ||| conne|
|00000510| 63 74 54 79 70 65 20 3d | 3d 20 22 22 29 0d 0a 09 |ctType =|= "")...|
|00000520| 09 63 6f 6e 6e 65 63 74 | 54 79 70 65 20 3d 20 22 |.connect|Type = "|
|00000530| 44 41 54 41 42 41 53 45 | 22 3b 0d 0a 09 65 6c 73 |DATABASE|";...els|
|00000540| 65 0d 0a 09 09 63 6f 6e | 6e 65 63 74 54 79 70 65 |e....con|nectType|
|00000550| 20 3d 20 28 63 6f 6e 6e | 65 63 74 54 79 70 65 2b | = (conn|ectType+|
|00000560| 22 22 29 2e 74 6f 55 70 | 70 65 72 43 61 73 65 28 |"").toUp|perCase(|
|00000570| 29 3b 20 20 2f 2f 20 63 | 6f 6e 76 65 72 74 20 74 |);  // c|onvert t|
|00000580| 6f 20 75 70 70 65 72 20 | 63 61 73 65 20 66 6f 72 |o upper |case for|
|00000590| 20 75 6e 69 66 6f 72 6d | 20 63 6f 6d 70 61 72 69 | uniform| compari|
|000005a0| 73 6f 6e 73 0d 0a 0d 0a | 09 2f 2f 20 49 66 20 74 |sons....|.// If t|
|000005b0| 68 65 20 74 79 70 65 20 | 69 73 20 44 41 54 41 42 |he type |is DATAB|
|000005c0| 41 53 45 2c 20 63 6f 6e | 6e 65 63 74 20 75 73 69 |ASE, con|nect usi|
|000005d0| 6e 67 20 74 68 65 20 67 | 6c 6f 62 61 6c 20 64 61 |ng the g|lobal da|
|000005e0| 74 61 62 61 73 65 20 6f | 62 6a 65 63 74 0d 0a 09 |tabase o|bject...|
|000005f0| 69 66 20 28 63 6f 6e 6e | 65 63 74 54 79 70 65 20 |if (conn|ectType |
|00000600| 3d 3d 20 22 44 41 54 41 | 42 41 53 45 22 29 20 7b |== "DATA|BASE") {|
|00000610| 0d 0a 09 09 64 61 74 61 | 62 61 73 65 2e 63 6f 6e |....data|base.con|
|00000620| 6e 65 63 74 28 63 6c 69 | 65 6e 74 2e 74 79 70 65 |nect(cli|ent.type|
|00000630| 2c 20 0d 0a 09 09 09 09 | 09 20 20 63 6c 69 65 6e |, ......|.  clien|
|00000640| 74 2e 73 65 72 76 65 72 | 2c 20 0d 0a 09 09 09 09 |t.server|, ......|
|00000650| 09 20 20 63 6c 69 65 6e | 74 2e 69 64 2c 20 0d 0a |.  clien|t.id, ..|
|00000660| 09 09 09 09 09 20 20 63 | 6c 69 65 6e 74 2e 70 61 |.....  c|lient.pa|
|00000670| 73 73 77 6f 72 64 2c 20 | 0d 0a 09 09 09 09 20 20 |ssword, |......  |
|00000680| 20 20 20 63 6c 69 65 6e | 74 2e 64 61 74 61 62 61 |   clien|t.databa|
|00000690| 73 65 29 3b 0d 0a 09 09 | 69 66 28 21 64 61 74 61 |se);....|if(!data|
|000006a0| 62 61 73 65 2e 63 6f 6e | 6e 65 63 74 65 64 28 29 |base.con|nected()|
|000006b0| 29 20 0d 0a 09 09 09 72 | 65 73 75 6c 74 20 3d 20 |) .....r|esult = |
|000006c0| 66 61 6c 73 65 3b 0d 0a | 09 7d 0d 0a 09 65 6c 73 |false;..|.}...els|
|000006d0| 65 20 7b 20 20 2f 2f 20 | 4f 74 68 65 72 77 69 73 |e {  // |Otherwis|
|000006e0| 65 2c 20 61 74 74 65 6d | 70 74 20 74 6f 20 63 72 |e, attem|pt to cr|
|000006f0| 65 61 74 65 20 61 20 4c | 69 76 65 57 69 72 65 20 |eate a L|iveWire |
|00000700| 63 6f 6e 6e 65 63 74 69 | 6f 6e 20 6f 62 6a 65 63 |connecti|on objec|
|00000710| 74 0d 0a 09 09 76 61 72 | 20 74 68 65 50 6f 6f 6c |t....var| thePool|
|00000720| 20 3d 20 6e 65 77 20 44 | 62 50 6f 6f 6c 28 63 6c | = new D|bPool(cl|
|00000730| 69 65 6e 74 2e 74 79 70 | 65 2c 20 0d 0a 09 09 09 |ient.typ|e, .....|
|00000740| 09 09 20 20 63 6c 69 65 | 6e 74 2e 73 65 72 76 65 |..  clie|nt.serve|
|00000750| 72 2c 20 0d 0a 09 09 09 | 09 09 20 20 63 6c 69 65 |r, .....|..  clie|
|00000760| 6e 74 2e 69 64 2c 20 0d | 0a 09 09 09 09 09 20 20 |nt.id, .|......  |
|00000770| 63 6c 69 65 6e 74 2e 70 | 61 73 73 77 6f 72 64 2c |client.p|assword,|
|00000780| 20 0d 0a 09 09 09 09 20 | 20 20 20 20 63 6c 69 65 | ...... |    clie|
|00000790| 6e 74 2e 64 61 74 61 62 | 61 73 65 29 3b 0d 0a 09 |nt.datab|ase);...|
|000007a0| 09 76 61 72 20 63 6f 6e | 6e 20 3d 20 74 68 65 50 |.var con|n = theP|
|000007b0| 6f 6f 6c 2e 63 6f 6e 6e | 65 63 74 69 6f 6e 28 29 |ool.conn|ection()|
|000007c0| 3b 0d 0a 0d 0a 09 09 2f | 2f 20 43 68 65 63 6b 20 |;....../|/ Check |
|000007d0| 74 68 65 20 63 6f 6e 6e | 65 63 74 69 6f 6e 20 74 |the conn|ection t|
|000007e0| 6f 20 64 65 63 69 64 65 | 20 68 6f 77 20 74 6f 20 |o decide| how to |
|000007f0| 72 65 74 75 72 6e 0d 0a | 09 09 69 66 28 21 63 6f |return..|..if(!co|
|00000800| 6e 6e 2e 63 6f 6e 6e 65 | 63 74 65 64 28 29 29 20 |nn.conne|cted()) |
|00000810| 0d 0a 09 09 09 72 65 73 | 75 6c 74 20 3d 20 66 61 |.....res|ult = fa|
|00000820| 6c 73 65 3b 0d 0a 09 09 | 65 6c 73 65 0d 0a 09 09 |lse;....|else....|
|00000830| 09 72 65 73 75 6c 74 20 | 3d 20 63 6f 6e 6e 3b 09 |.result |= conn;.|
|00000840| 0d 0a 09 7d 0d 0a 09 0d | 0a 09 72 65 74 75 72 6e |...}....|..return|
|00000850| 20 72 65 73 75 6c 74 3b | 0d 0a 7d 20 2f 2f 20 65 | result;|..} // e|
|00000860| 6e 64 20 53 65 72 69 61 | 6c 44 62 43 6f 6e 6e 65 |nd Seria|lDbConne|
|00000870| 63 74 0d 0a 0e 00 00 00 | 33 2e 30 20 61 6e 64 20 |ct......|3.0 and |
|00000880| 68 69 67 68 65 72 0e 00 | 00 00 33 2e 30 20 61 6e |higher..|..3.0 an|
|00000890| 64 20 68 69 67 68 65 72 |                         |d higher|        |
+--------+-------------------------+-------------------------+--------+--------+