,,,
1.
1.1
1.2
1.3 /
2.
2.1
2.2 2
3. /
3.1 /
3.2
3.3
. , . , , , .
Π , . , . , , .
Π .
:
;
;
;
/ ;
;
, .
, / .
Π .
.
, Π .
1.
1.1
Π 1953. , 721 01.07.1992. 11.12.1992. 1403,
. .
. 100940 . 193 , 10094 .
: , . , . 69. , .
:
, , ;
;
: , , .
, , -, . . - , , , .
. , .
Π . , , , . . , .
1.2
: Lotus Approach, Borland dBase, Borland Paradox, Microsoft Visual FoxPro, Microsoft Visual Basic, Microsoft SQL Server Oracle, , -1.
Oracle , . Oracle7 , . : Oracle7 RDBMS, CDE CASE (Designer/2000), CDE Tools (Developer/2000), , , .
7.3 Oracle , , . Oracle , . ( ), : , ( ). Oracle , , .
Oracle 7.3 Long ( Oracle Call Interface), , , 2 . (views), . PL/SQL ( SQL), , . . SQL . , , , . , , , , ( Oracle 7.3 : ) .2
Oracle , ( ) , Oracle , , . Oracle , , .
Oracle 7 Oracle , . , , , (, , ), , , . 80 . Oracle8 SQL, , ( .. , , ), . , .3
SQL , , . SQL (Structured Query Language). , SQL , . SQL , . 1 SQL. 4
1. SQL
, , . . , , , .
, SQL. , . : .
. -, SQL , , . , - SQL, , , :
: SQL , .
: SQL .
: SQL , , .
: SQL .
: SQL , , .
: SQL , - .5
, SQL .
-, SQL COBOL, FORTRAN . SQL IF , GOTO DO FOR . SQL , , . SQL , COBOL, FORTRAN , . , , , SQL , .
, SQL . SQL .
SQL .
SQL :
;
;
;
IBM ( DB2);
Microsoft ( ODBC);
;
, ;
:
;
;
, ;
;
/ .6
, SQL , - .
1.3 /
, .
, , Perl, PHP, JAVA ASP.
, : , PERL Java.
, Java Java. Java - , C++. Java , , Java Apache/PHP/MySQL. Java , Web . - , . , ( ) Web Perl. PERL Java . , Java , Java .7
PERL ASP.NET
ASP (Active Server Pages) Microsoft. ASP.NET Windows Web. , , , .8
Web ASP.NET MSIL (Microsoft Intermediate Language), IL. - IL Web , - Java. Java, , NET . Web ASP.NET , Windows, . PERL, , ASP.NET . PERL . , . , ASP.NET PERL . Windows, ASP.NET . Web, , PERL.9
Perl (Practical Extraction and Report Language ).
Perl .
Perl , , , . , .
Perl . , , , . , : , . , , , , : perl - , ( , ).
, , Perl , . Perl / , .
2.2.1
, . , , , , , . , .
, . , . , , . , , .. , .
, . , , .
1.
1. Client
| id | f_sob | fio | otv | ur_adr | fiz_adr | tel | vid_doc |
| 3 | . | .. | .. | 8 38 | 45 | 22409 | . . |
| 2 | . | .. | .. | 4 | 24 | 728021 | . |
| 5 | . | .. | .. | - 20 | - 150 | 551233 |
. , form_sob, vid_doc, . , , . . , , , 2.
2. Client
| id | Id_f_sb | fio | otv | ur_adr | fiz_adr | tel | Id_v_dc |
| 3 | 2 | .. | .. | 8 38 | 45 | 22409 | 3 |
| 2 | 2 | .. | .. | 4 | 24 | 728021 | 2 |
| 5 | 1 | .. | .. | 20 | 150 | 551233 | 1 |
, . , . 2.
, .
, . , , , , . ? , , , . , , .
2
2 Client . , . , vid_doc, (Id_vid_doc). , , . , , . , .
, . , , :
client (Id_vid_doc)
Vid_doc (vid)
3.
3. Vid_doc
| id | Vid |
| 1 | |
| 3 | |
| 2 |
, , . , , , . , , .
2.2 2
15 comb:
comb: client, dan_doc, dog, form_ras, form_sob, men, pam, posher, prod, realiz, sort, upac, vid_doc, vid_posh, vid_pr.
.
client 8 . , ID Smallint. . id_form_sob , Smallint. fio , Varshar. otv , Varchar. ur_adr , Varchar. fiz_adr , Varchar. tel , Varchar. id_vid_doc , Smallint. 3 4.
3 client
4 client
form_sob 2 . ID , id client. form . 5 6.
5 form_sob
6 form_sob
vid_doc 2 . ID , id client. vid . 7 8.
7 vid_doc
8 vid_doc
prod 9 . ID id Smallint. id_vid_pr , id vid_pr, Smallint. naz , Varchar. id_upac , id upac, Smallint. id_sort , id sort, Smallint. data , Varchar. sroc , Varchar. cena , Varchar. kol , Varchar. 9 10.
9 prod
10 prod
vid_pr 2 . ID , id prod. vid_pr , Varshar. 11 12.
11 vid_pr
12 vid_pr
upac 2 . ID , id prod. upack , Varshar. 13 14.
13 upac
14 upac
sort 2 . ID , id prod. sor , Varshar. 15 16.
15 sort
16 sort
men 2 . ID , id Smallint. fio1 ... , Varshar. 17 18.
17 men
18 men
posher 4 . ID , id Smallint. id_client ... , Smallint. id_vid_posh , Smallint. data , , Varshar. 19 20.
19 posher
20 posher
vid_posh 2 . ID , id posher. posh , Varshar. 21 22.
21 vid_posh
22 vid_posher
dan_doc 6 . ID , id Smallint. id_vid_doc , Smallint. cer , Varshar. data , Varshar. mest , Varshar. kem , , Varshar. 23 24.
23 dan_doc
24 dan_doc
dog 5 . ID , id Smallint. pred , Varshar. otv , , Varshar. id_form_ras , , id Smallint. data , Varshar. 25 26.
25 dog
26 dog
form_ras 2 . ID , id dog. form , Varshar. 27 28.
27 form_ras
28 form_ras
pam 5 . ID , id Smallint. id_men , , id Smallint. id_client , , id Smallint. data , , Varshar. prim , , Varshar. 29 30.
29 pam
30 pam
realiz 7 . , ID Smallint. . id_men , Smallint. id_client , Smallint. id_vid_pr , Smallint. id_dog , Smallint. data , Varchar. kol , Varchar. 31 32.
31 realiz
32 realiz
3 / .
/ :
.
, .
, , .
3.1 /
. HTML , .
HTML 10 , : , , , , , , , , , .
33.
33. web
.
index_1.html:
<html><head><title> </title></head>
.
<frameset cols= 280,* border=1 frameborder=no framespacing=0>
<frame marginheight= 15 marginwidht= 10 name= left src= 1.html scrolling= no noresize>
<frame name= right src= 2.html scrolling= no noresize>
</framest>
</html>
1.html:
<html><head><title> </title>
.
<style>
a {text-decoration:none;}
h3 {font-size:14pt;}
</style></head>
.
<body bgcolor= black alink= red link= green vlink= 0099CC><center>
<img src=/combin/image/2.png>
Shadow.
<DIV style= height: 65; width: 250; filter: Shadow (Color = red, Direction=24)>
<font style= FONT-SIZE: 19pt color=yellow> </font></div>
.
<table><tr><td align= center><font style= font-size:17pt face= Monotype corsiva><a href=/cgi-bin/kl.pl target= right>****</a></font></td></tr> <tr><td align= center><font style= font-size:17pt face= Monotype corsiva><a href=/cgi-bin/pr.pl target= right>****</a></font></td></tr>
<tr><td align= center><font style= font-size:17pt face= Monotype corsiva><a href=/cgi-bin/real.pl target= right>****</a></font></td></tr>
<tr><td align= center><font style= font-size:17pt face= Monotype corsiva><a href=/cgi-bin/dog.pl target= right>****</a></font></td></tr>
<tr><td align= center><font style= font-size:17pt face= Monotype corsiva><a href=/cgi-bin/dan_doc.pl target= right>** ** </a></font> </td> </tr>
<tr><td align= center><font style= font-size:17pt face= Monotype corsiva><a href=/cgi-bin/posh.pl target= right>****</a></font></td></tr>
2.html:
<html><head><title> </title>
C .
<style>
a {text-decoration:none;}
h3 {font-size:9pt; color:0099CC}
</style></head>
.
<body bgcolor= black><center>
<br><img src=/combin/image/1.gif>
<img src=/combin/image/1.jpg width=800 height=500>
.
<table><tr><td><h3>| : +7 (47557) 21274, |</h3></td>
<td></td><td><h3>| : 393550 |</h3></td>
<td></td><td><h3>| : |</h3></td>
<td></td><td><h3>| : |</h3></td></tr></table>
<marquee><h3>: 313 </h3></marquee></body></html>
. 34.
34.
. .
.
:
#
$const=SELECT form, fio, otv, ur_adr, fiz_adr, tel, vid
FROM form_sob, client, vid_doc
WHERE form_sob.id=client.id_form_sob and vid_doc.id = client.id_vid_doc;
$sth = $dbh->prepare($const);
$sth->execute;
print <<TBL;
Shadow.
<br><DIV style= height: 60; width: 270; filter: Shadow (Color=red, Direction=24)>
<font style= FONT-SIZE: 20pt color=yellow > </font></div>
A.
. 35.
35.
, , .
.
:
#
$const=SELECT vid_pr, naz, upack, sor, data, sroc, cena, kol FROM vid_pr, upac, sort, prod
WHERE vid_pr.id=prod.id_vid_pr and upac.id=prod.id_upac and sort.id=prod.id_sort;
$sth = $dbh->prepare($const);
$sth->execute;
print <<TBL;
Shadow.
<br><DIV style= height: 60; width: 350; filter: Shadow (Color=red, Direction=24)>
<font style= FONT-SIZE: 20pt color=yellow> </font></div>
.
. 36.
36.
, , .
.
:
#
$const=SELECTmen.fio1, client.fio, vid_pr.vid_pr, dog. pred, realiz.data, realiz.kol FROM men, client, vid_pr, dog, realiz
WHERE men.id=realiz.id_men and client.id=realiz.id_client and vid_pr.id=realiz.id_vid_pr and dog.id=realiz.id_dog;
$sth = $dbh->prepare($const);
$sth->execute;
print <<TBL;
Shadow.
<br><DIV style= height: 60; width: 270; filter: Shadow (Color=red, Direction=24)>
<font style= FONT-SIZE: 20pt color=yellow> </font></div>
.
. 37.
37.
.
.
:
#
$const=SELECT pred, otv, form, data FROM form_ras, dog
WHERE form_ras.id=dog.id_form_ras;
$sth = $dbh->prepare($const);
$sth->execute;
print <<TBL;
Shadow.
<br><DIV style= height: 60; width: 270; filter: Shadow (Color=red, Direction=24)>
<font style= FONT-SIZE: 20pt color=yellow> </font></div>
.
. 38.
38.
, .
.
:
#
$const=SELECT vid, cer, data, mest, kem FROM vid_doc, dan_doc
WHERE vid_doc.id=dan_doc.id_vid_doc;
$sth = $dbh->prepare($const);
$sth->execute;
print <<TBL;
Shadow.
<br><DIV style= height: 60; width: 270; filter: Shadow (Color=red, Direction=24)>
<font style= FONT-SIZE: 20pt color=yellow> </font></div>
.
. 39.
39.
.
.
:
#
$const=SELECT fio, posh, data FROM client, vid_posh, posher
WHERE client.id=posher.id_client and vid_posh.id= posher.id_vid_posh;
$sth = $dbh->prepare($const);
$sth->execute;
print <<TBL;
Shadow.
<br><DIV style= height: 60; width: 270; filter: Shadow (Color=red, Direction=24)>
<font style= FONT-SIZE: 20pt color=yellow> </font></div>
.
. 40.
40.
.
.
:
#
$const=SELECT fio1, fio, data, prim FROM men, client, pam
WHERE men.id=pam.id_men and client.id=pam.id_client;
$sth = $dbh->prepare($const);
$sth->execute;
print <<TBL;
Shadow.
<br><DIV style= height: 60; width: 270; filter: Shadow (Color=red, Direction=24)>
<font style= FONT-SIZE: 20pt color=yellow> </font></div>
.
3.2
, . .
41.
41.
. . , . .
:
print <<EOFR;
.
<BODY BGCOLOR= black TEXT= green><center>
Shadow.
<br><DIV style= height: 140; width: 650; filter: Shadow (Color=red, Direction=300)"><font face= Monotype Corsiva size=6 color=yellow> </font></div>
Shadow.
<br><DIV style= height: 60; width: 270; filter: Shadow (Color=red, Direction=24)>
<font style= FONT-SIZE: 20pt color=yellow> </font></div>
.
<img src=/combin/image/3.png>
<form name='FORM1' action=/cgi-bin/adm1.pl method= post><br>
fieldset
<fieldset style= width: 20%><legend><font size=6 color= 336699></font></legend>
.
<font face= Ravie size=5>Login: </font><br>
<input type= user size=15 maxlength=15 name= user><br>
.
<font face= Ravie size=5>Password: </font><br>
<input type= password size=15 maxlength=15 name= password><br>
</fieldset></font><br><br>
<input type= submit value= Ļ style= color: blue><input type= reset value= style= color:blue>
</form><br></center></BODY></HTML> EOFR exit;
.
: , , , , , , . 42.
42.
:
<html><head><title> </title>
.
<style>
a {text-decoration:none;}
h3 {font-size:12pt; color:green;}
</style></head>
.
<BODY text= 0099CC bgcolor= black alink= red link= green vlink= 0099CC><center>
.
<img src=/combin/image/4.png>
Shadow.
<DIV style= height: 65; width: 250; filter: Shadow (Color=red, Direction=24)>
<font style= FONT-SIZE: 19pt color=yellow> </font></div>
. 43.
43.
.
: , , , . , . , , . C , . , . , , , .
.
. 44.
44.
.
. : , : , : , : , : , : , , : . C , . , . , , , .
. 45.
45.
.
. : , : , : , : , : , : . , . , . , , , .
. 46.
46.
.
4 : : , : , : , : . C , . , . , , , .
. 47.
.
: : , : , : , : , : . C , . , . , , , .
47.
. 48.
48.
.
: : , : , : . C , . , . , , , .
. 49.
49.
.
4 : : , : , : , : . C , . , . , , , .
. 50.
50.
.
, , , . , . , , .
.
.
. 51.
51.
.
, , , , , , , .
.
. 52.
52.
.
, , , , , .
.
. 53.
.
, , , .
53.
.
. 54.
54.
.
, , , , .
.
. 55.
55.
.
, , .
.
. 56.
.
, , , .
.
56.
3.3
. : (...) , , , , , , .
, .
57.
, (...) .
, . . , . , . , : , , , , , , .
.
57. .
(...) . 58.
58. ...
. 59.
59. .
, .
, . . , . , . , : , , , , , , , .
. 60.
, .
60.
, . . , . , . , : , , , , , .
. 61.
, .
, . . , . , . , : , , , .
61.
. 62.
62.
, .
, . . , . , . , : , , , .
. 63.
63.
, .
, . . , . , . , : , , .
. 64.
64.
, .
, . . , . , . , : , , , .
Π . MySQL.
Denver 2 , . .
:
1. ;
2. ;
3. - Perl;
4. , , ;
5. .
. . , . Π .
. .
. Microsoft SQL Server 6.5. .: , 2004. -200.
., ., . Perl Web. : BHV, 2004. 300.
, , . . .: , 2005. 350.
. MySQL Perl Web. .: , 2004. 400.
. IBM DB2. .: 2/05, 2006.-250.
. Perl& CGI .: , 2004. 200.
. Perl 24 . : 2005.-150.
.. . : , 2005.-180.
.. : , 2005.-300.
.. Perl ; 2006.-350.
.. Perl. .: , 2005.-200.
. Perl: . : , 2005.-200.
., ., . SQL MySQL. .: , 2006.-350.
. HTML. .: . , 2004.-400.
. Microsoft SQL Server 6.5 DBA Survival Guide, by Mark Spenik& Orryn Sledge. : ISBN, 2005.-500.
Perl: ; .: , 2005.-350.
. Ļ. .: , 2005.-250.
.. .: , 2005.-400.
. Microsoft SQL Server Internet. : '98.-2004.-350.
. Microsoft SQL Server..: 1/05, 2005.-180.
. : . .: 56/05, 2004.-350.
A
#!/usr/bin/perl
#
use DBI;
use CGI qw (:standard escapeHTML);
#
my $dbh; #database handler
my $sth; #database statement handler
my $base = 'comb';
my $comp = 'localhost';
my $dbport = '3306';
#
print Content-type: text/html\n\n;
#
print <<EOH;
<HTML><HEAD><TITLE> </TITLE>
<style>
a {text-decoration:none;}
h3 {font-size:12pt; color:green;}
</style>
<BODY text= 0099CC bgcolor= black alink= red link= green vlink= 0099CC><center>
EOH
#
$dbh = DBI->connect (DBI:mysql:database=$base; host=$comp; port=$dbport, 'root', );
if (not $dbh) {
print <<ERRDB;
<p class= norm> <b>$base</b> $dbport.<br>
<b>$DBI:errstr</b></p>
<hr align= center noshade size= 2 width= 90% color= red>
<p class= norm align= left><font size= "+1><a href=/combin/index_1.html> </a> </font></p></body></html>
ERRDB exit;};
#
$const=SELECT form, fio, otv, ur_adr, fiz_adr, tel, vid
FROM form_sob, client, vid_doc
WHERE form_sob.id=client.id_form_sob and vid_doc.id=client.id_vid_doc;
$sth = $dbh->prepare($const);
$sth->execute;
print <<TBL;
<br><DIV style= height: 60; width: 270; filter: Shadow (Color=red, Direction=24)>
<font style= FONT-SIZE: 20pt color=yellow></font></div>
<table border=1>
<tr><td align= center><h3> </h3></td><td align= center><h3> (..)</h3></td><td align= center><h3> </h3></td><td align= center><h3>. </h3></td><td align= center><h3>. </h3></td><td align= center><h3></h3></td><td align= center><h3> </h3></td></tr>
TBL while(($form,$fio,$otv,$ur_adr,$fiz_adr,$tel,$vid)=$sth->fetchrow_array)
{print<tr><td><center>$form</center></td><td><center>$fio</center></td><td><center>$otv</center></td><td><center>$ur_adr</center></td><td><center>$fiz_adr</center></td><td><center>$tel</center></td><td><center>$vid</center></td></tr>\n;};
$sth->finish;
print <<EOFR;
</BODY></table>
<a href=/combin/2.html><h3><U> </U></h3></a>
</HTML>
EOFR
exit;
#!/usr/bin/perl
#
use DBI;
use CGI qw (:standard escapeHTML);
#
my $dbh; #database handler
my $sth; #database statement handler
my $base = 'comb';
my $comp = 'localhost';
my $dbport = '3306';
#
print Content-type: text/html\n\n;
#
print <<EOH;
<HTML>
<HEAD>
<TITLE> </TITLE>
<style>
a {text-decoration:none;}
h3 {font-size:12pt; color:green;}
</style>
<BODY text= 0099CC bgcolor= black alink= red link= green vlink= 0099CC><center>
EOH
#
$dbh = DBI->connect (DBI:mysql:database=$base; host=$comp; port=$dbport, 'root', );
if (not $dbh) {
print <<ERRDB;
<p class= norm> <b>$base</b> $dbport.<br>
<b>$DBI:errstr</b></p>
<hr align= center noshade size= 2 width= 90% color= red>
<p class= norm align= left><font size= "+1><a href=/combin/index_1.html>
</a></font></p>
</body></html>
ERRDB
exit;
};
#
$const=SELECT vid_pr, naz, upack, sor, data, sroc, cena, kol
FROM vid_pr, upac, sort, prod
WHERE vid_pr.id=prod.id_vid_pr and upac.id=prod.id_upac and sort.id=prod.id_sort;
$sth = $dbh->prepare($const);
$sth->execute;
print <<TBL;
<br><DIV style= height: 60; width: 350; filter: Shadow (Color=red, Direction=24)>
<font style= FONT-SIZE: 20pt color=yellow></font></div>
<table border=1>
<tr><td align= center><h3> </h3></td><td align= center><h3></h3></td><td align= center><h3></h3></td><td align= center><h3></h3></td><td align= center><h3> </h3></td><td align= center><h3> </h3></td><td align= center><h3></h3></td><td align= center><h3> </h3></td></tr>
TBL
while(($vid_pr,$naz,$upack,$sor,$data,$sroc,$cena,$kol)=$sth->fetchrow_array)
{
print <tr><td><center>$vid_pr</center></td><td><center>$naz</center></td><td><center>$upack</center></td><td><center>$sor</center></td><td><center>$data</center></td><td><center>$sroc</center></td><td><center>$cena</center></td><td><center>$kol</center></td></tr>\n;
};
$sth->finish;
print <<EOFR;
</BODY>
</table>
<a href=/combin/2.html><h3><U> </U></h3></a>
</HTML>
EOFR
exit;
#!/usr/bin/perl
#
use DBI;
use CGI qw (:standard escapeHTML);
#
my $dbh; #database handler
my $sth; #database statement handler
my $base = 'comb';
my $comp = 'localhost';
my $dbport = '3306';
#
print Content-type: text/html\n\n;
#
print <<EOH;
<HTML>
<HEAD>
<TITLE> </TITLE>
<style>
a {text-decoration:none;}
h3 {font-size:12pt; color:green;}
</style>
<BODY text= 0099CC bgcolor= black alink= red link= green vlink= 0099CC><center>
EOH
#
$dbh = DBI->connect (DBI:mysql:database=$base; host=$comp; port=$dbport, 'root', );
if (not $dbh) {
print <<ERRDB;
<p class= norm> <b>$base</b> $dbport.<br>
<b>$DBI:errstr</b></p>
<hr align= center noshade size= 2 width= 90% color= red>
<p class= norm align= left><font size= "+1><a href=/combin/index_1.html>
</a></font></p>
</body></html>
ERRDB
exit;
};
#
$const=SELECT men.fio1, client.fio, vid_pr.vid_pr, dog.pred, realiz.data, realiz.kol
FROM men, client, vid_pr, dog, realiz
WHERE men.id=realiz.id_men and client.id=realiz.id_client and vid_pr.id=realiz.id_vid_pr and dog.id=realiz.id_dog;
$sth = $dbh->prepare($const);
$sth->execute;
print <<TBL;
<br><DIV style= height: 60; width: 270; filter: Shadow (Color=red, Direction=24)>
<font style= FONT-SIZE: 20pt color=yellow> </font></div>
<table border=1>
<tr><td align= center><h3> (..):</h3></td><td align= center><h3> (..):</h3></td><td align= center><h3></h3></td><td align= center><h3> </h3></td><td align= center><h3> </h3></td><td align= center><h3> </h3></td></tr>
TBL
while(($fio1,$fio,$vid_pr,$pred,$data,$kol)=$sth->fetchrow_array)
{
print <tr><td><center>$fio1</center></td><td><center>$fio</center></td><td><center>$vid_pr</center></td><td><center>$pred</center></td><td><center>$data</center></td><td><center>$kol</center></td></tr>\n;
};
$sth->finish;
print <<EOFR;
</BODY>
</table>
<a href=/combin/2.html><h3><U> </U></h3></a>
</HTML>
EOFR
exit;
#!/usr/bin/perl
#
use DBI;
use CGI qw (:standard escapeHTML);
#
my $dbh; #database handler
my $sth; #database statement handler
my $base = 'comb';
my $comp = 'localhost';
my $dbport = '3306';
#
print Content-type: text/html\n\n;
#
print <<EOH;
<HTML><HEAD><TITLE> </TITLE>
<style>
a {text-decoration:none;}
h3 {font-size:12pt; color:green;}
</style>
<BODY text= 0099CC bgcolor= black alink= red link= green vlink= 0099CC><center>
EOH
#
$dbh = DBI->connect (DBI:mysql:database=$base; host=$comp; port=$dbport, 'root', );
if (not $dbh) {
print <<ERRDB;
<p class= norm> <b>$base</b> $dbport.<br>
<b>$DBI:errstr</b></p>
<hr align= center noshade size= 2 width= 90% color= red>
<p class= norm align= left><font size= "+1><a href=/combin/index_1.html>
</a></font></p>
</body></html>
ERRDB
exit;
};
#
$const=SELECT pred, otv, form, data
FROM form_ras, dog
WHERE form_ras.id=dog.id_form_ras;
$sth = $dbh->prepare($const);
$sth->execute;
print <<TBL;
<br><DIV style= height: 60; width: 270; filter: Shadow (Color=red, Direction=24)>
<font style= FONT-SIZE: 20pt color=yellow></font></div>
<table border=1>
<tr><td align= center><h3> </h3></td><td align= center><h3> (..)</h3></td><td align= center><h3> </h3></td><td align= center><h3></h3></td></tr>
TBL
while(($pred,$otv,$form,$data)=$sth->fetchrow_array)
{print <tr><td><center>$pred</center></td><td><center>$otv</center></td><td><center>$form</center></td><td><center>$data</center></td></tr>\n;
};
$sth->finish;
print <<EOFR;
</BODY></table>
<a href=/combin/2.html><h3><U> </U></h3></a>
</HTML>
EOFR
exit;
#!/usr/bin/perl
#
use DBI;
use CGI qw (:standard escapeHTML);
#
my $dbh; #database handler
my $sth; #database statement handler
my $base = 'comb';
my $comp = 'localhost';
my $dbport = '3306';
#
print Content-type: text/html\n\n;
#
print <<EOH;
<HTML><HEAD><TITLE> </TITLE>
<style>
a {text-decoration:none;}
h3 {font-size:12pt; color:green;}
</style>
<BODY text= 0099CC bgcolor= black alink= red link= green vlink= 0099CC><center>
EOH
#
$dbh = DBI->connect (DBI:mysql:database=$base; host=$comp; port=$dbport, 'root', );
if (not $dbh) {
print <<ERRDB;
<p class= norm> <b>$base</b> $dbport.<br>
<b>$DBI:errstr</b></p>
<hr align= center noshade size= 2 width= 90% color= red>
<p class= norm align= left><font size= "+1><a href=/combin/index_1.html>
</a></font></p>
</body></html>
ERRDB
exit;
};
#
$const=SELECT vid, cer, data, mest, kem
FROM vid_doc, dan_doc
WHERE vid_doc.id=dan_doc.id_vid_doc;
$sth = $dbh->prepare($const);
$sth->execute;
print <<TBL;
<br><DIV style= height: 60; width: 270; filter: Shadow (Color=red, Direction=24)>
<font style= FONT-SIZE: 20pt color=yellow> </font></div>
<table border=1>
<tr><td align= center><h3> </h3></td><td align= center><h3></h3></td><td align= center><h3> </h3></td><td align= center><h3> </h3></td><td align= center><h3> </h3></td></tr>
TBL
while(($vid,$cer,$data,$mest,$kem)=$sth->fetchrow_array)
{print <tr><td><center>$vid</center></td><td><center>$cer</center></td><td><center>$data</center></td><td><center>$mest</center></td><td><center>$kem</center></td></tr>\n;};
$sth->finish;
print <<EOFR;
</BODY></table>
<a href=/combin/2.html><h3><U> </U></h3></a>
</HTML>
EOFR
exit;
#!/usr/bin/perl
#
use DBI;
use CGI qw (:standard escapeHTML);
#
my $dbh; #database handler
my $sth; #database statement handler
my $base = 'comb';
my $comp = 'localhost';
my $dbport = '3306';
#
print Content-type: text/html\n\n;
#
print <<EOH;
<HTML>
<HEAD>
<TITLE> </TITLE>
<style>
a {text-decoration:none;}
h3 {font-size:12pt; color:green;}
</style>
<BODY text= 0099CC bgcolor= black alink= red link= green vlink= 0099CC><center>
EOH
#
$dbh = DBI->connect (DBI:mysql:database=$base; host=$comp; port=$dbport, 'root', );
if (not $dbh) {
print <<ERRDB;
<p class= norm> <b>$base</b> $dbport.<br>
<b>$DBI:errstr</b></p>
<hr align= center noshade size= 2 width= 90% color= red>
<p class= norm align= left><font size= "+1><a href=/combin/index_1.html>
</a></font></p>
</body></html>
ERRDB
exit;
};
#
$const=SELECT fio, posh, data
FROM client, vid_posh, posher
WHERE client.id=posher.id_client and vid_posh.id=posher.id_vid_posh;
$sth = $dbh->prepare($const);
$sth->execute;
print <<TBL;
<br><DIV style= height: 60; width: 270; filter: Shadow (Color=red, Direction=24)>
<font style= FONT-SIZE: 20pt color=yellow></font></div>
<table border=1>
<tr><td align= center><h3> (..)</h3></td><td align= center><h3></h3></td><td align= center><h3></h3></td></tr>
TBL
while(($fio,$posh,$data)=$sth->fetchrow_array)
{print <tr><td><center>$fio</center></td><td><center>$posh</center></td><td><center>$data</center></td></tr>\n;};
$sth->finish;
print <<EOFR;
</BODY>
</table>
<a href=/combin/2.html><h3><U> </U></h3></a>
</HTML>
EOFR
exit;
#!/usr/bin/perl
#
use DBI;
use CGI qw (:standard escapeHTML);
#
my $dbh; #database handler
my $sth; #database statement handler
my $base = 'comb';
my $comp = 'localhost';
my $dbport = '3306';
#
print Content-type: text/html\n\n;
#
print <<EOH;
<HTML><HEAD><TITLE> </TITLE>
<style>
a {text-decoration:none;}
h3 {font-size:12pt; color:green;}
</style>
<BODY text= 0099CC bgcolor= black alink= red link= green vlink= 0099CC><center>
EOH
#
$dbh = DBI->connect (DBI:mysql:database=$base; host=$comp; port=$dbport, 'root', );
if (not $dbh) {
print <<ERRDB;
<p class= norm> <b>$base</b> $dbport.<br>
<b>$DBI:errstr</b></p>
<hr align= center noshade size= 2 width= 90% color= red>
<p class= norm align= left><font size= "+1><a href=/combin/index_1.html>
</a></font></p>
</body></html>
ERRDB
exit;
};
#
$const=SELECT fio1, fio, data, prim
FROM men, client, pam
WHERE men.id=pam.id_men and client.id=pam.id_client;
$sth = $dbh->prepare($const);
$sth->execute;
print <<TBL;
<br><DIV style= height: 60; width: 270; filter: Shadow (Color=red, Direction=24)>
<font style= FONT-SIZE: 20pt color=yellow> </font></div>
<table border=1>
<tr><td align= center><h3> (..)</h3></td><td align= center><h3> (..)</h3></td><td align= center><h3></h3></td><td align= center><h3></h3></td></tr>
TBL
while(($fio1,$fio,$data,$prim)=$sth->fetchrow_array)
{print <tr><td><center>$fio1</center></td><td><center>$fio</center></td><td><center>$data</center></td><td><center>$prim</center></td></tr>\n;};
$sth->finish;
print <<EOFR;
</BODY></table>
<a href=/combin/2.html><h3><U> </U></h3></a>
</HTML>
EOFR
exit;
#!/usr/bin/perl
use DBI;
use CGI qw (:standard escapeHTML);
# declarations
my $dbh; #database handler
my $sth; #database statement handler
$base = 'comb';
$comp = 'localhost';
$dbport = '3306';
print Content-type: text/html\n\n; print <<EOH;
<HTML><HEAD><TITLE> </TITLE></HEAD>
EOH print <<EOFR;
<BODY BGCOLOR= black TEXT= green><center>
<br><DIV style= height: 140; width: 650; filter: Shadow (Color=red, Direction=300)"><font face= Monotype Corsiva size=6 color=yellow> </font></div>
<br><DIV style= height: 60; width: 270; filter: Shadow (Color=red, Direction=24)>
<font style= FONT-SIZE: 20pt color=yellow></font></div>
<img src=/combin/image/3.png>
<form name='FORM1' action=/cgi-bin/adm1.pl method= post><br>
<fieldset style= width:20%><legend><font size=6 color= 336699></font></legend>
<font face= Ravie size=5>Login:</font><br>
<input type= user size=15 maxlength=15 name= user><br>
<font face= Ravie size=5>Password:</font><br>
<input type= password size=15 maxlength=15 name= password><br>
</fieldset></font><br><br>
<input type= submit value= Ļ style= color:blue><input type= reset value= style= color:blue>
</form><br></center></BODY></HTML> EOFR exit;
#!/usr/bin/perl
use DBI;
use CGI qw (:standard escapeHTML);
# declarations
my $dbh; #database handler
my $sth; #database statement handler
my ($log, $pass);
$base = 'comb';
$comp = 'localhost';
$dbport = '3306';
print Content-type: text/html\n\n; print <<EOH;
<HTML><HEAD><TITLE> e </TITLE><style>
a {text-decoration:none;}
h3 {font-size:18pt; color:0099CC;} </style>
EOH $dbh = DBI->connect (DBI:mysql:database=$base; host=$comp; port=&dbport, 'root', );
if (not $dbh) {print <<ERRDB;
<p> 3306 . <b>$DBI:errstr</b></p>
<hr width=90% border=2> ERRDB exit;};
$user = param (user);
$password = param (password);
my $er = 0;
$const = select * from adm where login = '$user' and password = '$password';
$sth = $dbh->prepare($const);
$sth->execute;
while(($log, $pass)=$sth->fetchrow_array) {
if ($log = $user) {
$er += 1;};
if ($pass = $password) {
$er += 1};};
$sth->finish;
if ($er < 1) {print <<SOF;
<BODY BGCOLOR= black TEXT= green><center>
<br><DIV style= height: 140; width: 650; filter: Shadow (Color=red, Direction=300)"><font face= Monotype Corsiva size=6 color=yellow> </font></div>
<br><DIV style= height: 60; width: 270; filter: Shadow (Color=red, Direction=24)>
<font style= FONT-SIZE: 20pt color=yellow></font></div><br>
<font size=6 color=336699 face= Monotype Corsiva><p> </p></font>
<img src=/combin/image/3.png>
<form name='FORM1' action=/cgi-bin/adm1.pl method= post><br>
<fieldset style= width:20%><legend><font size=6 color=336699></font></legend>
<font face= Ravie size=5>Login:</font><br>
<input type= user size=15 maxlength=15 name= user><br>
<font face= Ravie size=5>Password:</font><br>
<input type= password size=15 maxlength=15 name= password><br>
</fieldset></font><br><br>
<input type= submit value= Ļ style= color:blue><input type= reset value= style= color:blue>
</form><br></center></BODY> SOF exit;}; print <<EODT;
<BODY BGCOLOR= black text= 0099CC link= red vlink= 0099CC alink= yellow><center>
<br><DIV style= height: 140; width: 650; filter: Shadow (Color=red, Direction=300)"><font face= Monotype Corsiva size=6 color=yellow> </font></div>
<h3> </h3><br><br>
<font style= FONT-SIZE: 18pt><a href=/combin/index_1.html>[]</a></font>
</BODY></html>
EODT exit;
#!/usr/bin/perl
#
use DBI;
use CGI qw (:standard escapeHTML);
#
my $dbh; #database handler
my $sth; #database statement handler
my $base = 'comb';
my $comp = 'localhost';
my $dbport = '3306';
my ($ky, $val);
my @form_sob = ();
my @vid_doc = ();
#
print Content-type: text/html\n\n;
#
print <<EOH;
<HTML>
<HEAD>
<TITLE> </TITLE>
<style>
a {text-decoration:none;}
h3 {font-size:12pt; color:green;}
</style>
<BODY text= 0099CC bgcolor= black alink= red link= green vlink= 0099CC><center>
EOH
#
$dbh = DBI->connect (DBI:mysql:database=$base; host=$comp; port=$dbport, 'root', );
if (not $dbh) {
print <<ERRDB;
<p class= norm> <b>$base</b> $dbport.<br>
<b>$DBI:errstr</b></p>
<hr align= center noshade size= 2 width= 90% color= red>
<p class= norm align= left><font size= "+1><a href=/combin/index_1.html>
</a></font></p>
</body></html>
ERRDB
exit;
};
$sth = $dbh->prepare ('select form, id from form_sob where id > 0');
$sth->execute;
while(($ky, $val)=$sth->fetchrow_array) {
$form_sob{$ky} = $val;
};
$sth->finish;
$sth = $dbh->prepare ('select vid, id from vid_doc where id > 0');
$sth->execute;
while(($ky, $val)=$sth->fetchrow_array) {
$vid_doc{$ky} = $val;
};
$sth->finish;
$dbh->disconnect;
print <<SOF;
<form name= add action=/cgi-bin/kl_addb.pl method= post>
<br><DIV style= height: 60; width: 300; filter: Shadow (Color=red, Direction=24)>
<font style= FONT-SIZE: 20pt color=yellow> </font></div>
<table align=center border=0 bordercolor=#151924>
<tr><td align=center><b> : ( )</td>
<td><select name= form>
SOF
foreach $ky (sort keys % form_sob) {
$val = $form_sob{$ky};
print <option value=$val>$ky\n;
};
print <<MID;
</select>
</td></tr>
<tr><td align=center><b> (..):</td><td><input type= text size= 30 maxlength= 100 name= fio></td></tr>
<tr><td align=center><b> (..):</td><td><input type= text size= 30 maxlength= 100 name= otv></td></tr>
<tr><td align=center><b>. :</td><td><input type= text size= 50 maxlength= 100 name= ur_adr></td></tr>
<tr><td align=center><b>. :</td><td><input type= text size= 50 maxlength= 100 name= fiz_adr></td></tr>
<tr><td align=center><b>:</td><td><input type= text size= 20 maxlength= 20 name= tel></td></tr>
<tr><td align=center><b> : ( )</td>
<td><select name= vid>
MID
foreach $ky (sort keys % vid_doc) {
$val = $vid_doc{$ky};
print <option value=$val>$ky\n;
};
print <<EOFR;
</select>
</td></tr>
</table><br><input type= submit value= ><input type=reset value= ></form>
<a href=/combin/3.html><h3><U> </U></h3></a>
</BODY>
</HTML>
EOFR
exit;
#!/usr/bin/perl
#
use DBI;
use CGI qw (:standard escapeHTML);
#
my $dbh; #database handler
my $sth; #database statement handler
my $base = 'comb';
my $comp = 'localhost';
my $dbport = '3306';
my ($ky, $val);
my $form= param('form');
my $fio= param('fio');
my $otv= param('otv');
my $ur_adr= param ('ur_adr');
my $fiz_adr= param ('fiz_adr');
my $tel= param('tel');
my $vid= param('vid');
#
print Content-type: text/html\n\n;
#
print <<EOH;
<HTML>
<HEAD>
<TITLE> </TITLE>
<style>
a {text-decoration:none;}
h3 {font-size:12pt; color:green;}
</style>
<BODY text= 0099CC bgcolor= black alink= red link= green vlink= 0099CC><center>
EOH
#
$dbh = DBI->connect (DBI:mysql:database=$base; host=$comp; port=$dbport, 'root', );
if (not $dbh) {
print <<ERRDB;
<p class= norm> <b>$base</b> $dbport.<br>
<b>$DBI:errstr</b></p>
<hr align= center noshade size= 2 width= 90% color= red>
<p class= norm align= left><font size= "+1><a href=/combin/index_1.html>
</a></font></p>
</body></html>
ERRDB
exit;
};
my $er = 0;
if ($fio eq ) {
$er += 1;
print qq [<p><h1><font color=red><B> ERROR -</B> </font> (..) </h1></p>\n];
};
if ($otv eq ) {
$er += 1;
print qq [<p><h1><font color=red><B> ERROR -</B> </font> (..)</h1></p>\n];
};
if ($ur_adr eq ) {
$er += 1;
print qq [<p><h1><font color=red><B>ERROR -</B> </font> :</h1></p>\n];
};
if ($fiz_adr eq ) {
$er += 1;
print qq [<p><h1><font color=red><B>ERROR -</B> </font> :</h1></p>\n];
};
if ($tel eq ) {
$er += 1;
print qq [<p><h1><font color=red><B>ERROR -</B> </font> :</h1></p>\n];
};
if ($er > 0) {
print <<SOF;
<hr size=0.1 color= "#5E89C5><p><center><font color=red size=4> <br>
</font></p><hr size=0.1 color= "#5E89C5>
<a href=/combin/3.html><h3><U> </U></h3></a>
SOF
exit;
};
$qry = INSERT INTO client VALUES (NULL, '$form', '$fio', '$otv', '$ur_adr', '$fiz_adr', '$tel', '$vid');;
$rows = $dbh->do($qry);
$rows = $dbh->{'mysql_indertid'};
$dbh->do ('FLUSH TABLES, STATUS');
$dbh->disconnect;
print qq [<p><b> </b></p>];
print <<EODT;
<center>
<hr align= center noshade size= 2 width= 90%><p><a href=/cgi-bin/kl_add.pl><b><h3><U> </U></h3></b></a></p>
<a href=/combin/3.html><h3><U> </U></h3></a>
<hr align= center noshade size= 2 width= 90%>
<BODY>
</HTML>
EODT
exit;
#!/usr/bin/perl
#
use DBI;
use CGI qw (:standard escapeHTML);
#
my $dbh; #database handler
my $sth; #database statement handler
my $base = 'comb';
my $comp = 'localhost';
my $dbport = '3306';
#
print Content-type: text/html\n\n;
#
print <<EOH;
<HTML><HEAD><TITLE> </TITLE>
<style>
a {text-decoration:none;}
h3 {font-size:12pt; color:green;}
</style>
<BODY text= 0099CC bgcolor= black alink= red link= green vlink= 0099CC><center>
EOH
#
$dbh = DBI->connect (DBI:mysql:database=$base; host=$comp; port=$dbport, 'root', );
if (not $dbh) {
print <<ERRDB;
<p class= norm> <b>$base</b> $dbport.<br>
<b>$DBI:errstr</b></p>
<hr align= center noshade size= 2 width= 90% color= red>
<p class= norm align= left><font size= "+1><a href=/combin/index_1.html> </a> </font></p></body></html>
ERRDB exit;};
#
$const=SELECT form, fio, otv, ur_adr, fiz_adr, tel, vid
FROM form_sob, client, vid_doc
WHERE form_sob.id=client.id_form_sob and vid_doc.id=client.id_vid_doc;
$sth = $dbh->prepare($const);
$sth->execute;
print <<TBL;
<br><DIV style= height: 60; width: 270; filter: Shadow (Color=red, Direction=24)>
<font style= FONT-SIZE: 20pt color=yellow> </font></div>
<table border=1>
<tr><td align= center><h3> </h3></td><td align= center><h3> (..)</h3></td><td align= center><h3> </h3></td><td align= center><h3>. </h3></td><td align= center><h3>. </h3></td><td align= center><h3></h3></td><td align= center><h3> </h3></td><td align= center><h3></h3></td></tr>
TBL
while(($form,$fio,$otv,$ur_adr,$fiz_adr,$tel,$vid)=$sth->fetchrow_array)
{print<tr><td><center>$form</center></td><td><center>$fio</center></td><td><center>$otv</center></td><td><center>$ur_adr</center></td><td><center>$fiz_adr</center></td><td><center>$tel</center></td><td><center>$vid</center></td>;
print '<td><center><a href=/cgi-bin/kl_del1.pl><img src=/combin/image/del.bmp border= 0 align= ></a></center> </td></tr>';};
$sth->finish;
print <<EOFR;
</BODY></table>
<a href=/combin/5.html><h3><U> </U></h3></a>
</HTML>
EOFR exit;
#!/usr/bin/perl
#
use DBI;
use CGI qw (:standard escapeHTML);
#
my $dbh; #database handler
my $sth; #database statement handler
my $base = 'comb';
my $comp = 'localhost';
my $dbport = '3306';
my $del=param('del');
#
print Content-type: text/html\n\n;
#
print <<EOH;
<HTML><HEAD><TITLE> </TITLE>
<style>
a {text-decoration:none;}
h3 {font-size:12pt; color:green;}
h4 {font-size:19pt; color:0099CC;}
</style>
<BODY text= 0099CC bgcolor= black alink= red link= green vlink= 0099CC><center>
EOH
#
$dbh = DBI->connect (DBI:mysql:database=$base; host=$comp; port=$dbport, 'root', );
if (not $dbh) {
print <<ERRDB;
<p class= norm> <b>$base</b> $dbport.<br>
<b>$DBI:errstr</b></p>
<hr align= center noshade size= 2 width= 90% color= red>
<p class= norm align= left><font size= "+1><a href=/combin/index_1.html> </a> </font></p></body></html>
ERRDB exit;};
my $stb;
# del
if ($del>0)
{my $qry = DELETE FROM `client` WHERE `id` = $del LIMIT 1;
$dbh->do($qry);
$dbh->do ('FLUSH TABLES, STATUS');
#$dbh->disconnect;}
#
$const=SELECT client.id, form_sob.form, client.fio, client.otv, client.ur_adr, client.fiz_adr, client.tel, vid_doc.vid
FROM form_sob, client, vid_doc
WHERE form_sob.id=client.id_form_sob and vid_doc.id=client.id_vid_doc;
$sth = $dbh->prepare($const);
$sth->execute;
print <<TBL;
<br><DIV style= height: 60; width: 270; filter: Shadow (Color=red, Direction=24)>
<font style= FONT-SIZE: 20pt color=yellow> </font></div>
<h4> ?</h4>
<table border=1>
<tr><td align= center><h3> </h3></td><td align= center><h3> (..)</h3></td><td align= center><h3> </h3></td><td align= center><h3>. </h3></td><td align= center><h3>. </h3></td><td align= center><h3></h3></td><td align= center><h3> </h3></td><td align= center><h3></h3></td></tr>
TBL while(($id,$form,$fio,$otv,$ur_adr,$fiz_adr,$tel,$vid)=$sth->fetchrow_array)
{print<tr><td><center>$form</center></td><td><center>$fio</center></td><td><center>$otv</center></td><td><center>$ur_adr</center></td><td><center>$fiz_adr</center></td><td><center>$tel</center></td><td><center>$vid</center></td>;
print '<td><center><a href=/cgi-bin/kl_del1.pl? del=',$id, ' "><img src=/combin/image/del.bmp border= 0 align= ></a></center> </td></tr>';};
$sth->finish;
print <<EOFR;
</BODY></table>
<a href=/combin/5.html><h3><U> </U></h3></a>
</HTML>
EOFR exit;
#!/usr/bin/perl
#
use DBI;
use CGI qw (:standard escapeHTML);
#
print Content-type: text/html\n\n;
#
print <<EOH;
<HTML><HEAD><TITLE> </TITLE>
<style>
a {text-decoration:none;}
h3 {font-size:12pt; color:green;}
</style>
<BODY text= 0099CC bgcolor= black alink= red link= green vlink= 0099CC><center>
EOH
print <<EOFR;
<CENTER>
<FORM action=/cgi-bin/kl_sear1.pl method= post>
<br><br><br><br><DIV style= height: 60; width: 270; filter: Shadow (Color=red, Direction=24)"><font style= FONT-SIZE: 20pt color=yellow> </font></div>
<fieldset style= width:30%><legend><font size=4 color= 0099CC> .. </font></legend>
<br><font color= aqua><b>: (..)</font>
<input name = fio size=35></b>
<br><br>
<input type= submit value= !!! name= fio><input type= reset value= >
</FORM></fieldset>
<a href=/combin/4.html><h3><U> </U></h3></a>
</BODY></HTML>
EOFR exit;
#!/usr/bin/perl
#
use DBI;
use CGI qw (:standard escapeHTML);
#
my $dbh; #database handler
my $sth; #database statement handler
my $base = 'comb';
my $comp = 'localhost';
my $dbport = '3306';
#
print Content-type: text/html\n\n;
#
print <<EOH;
<HTML><HEAD><TITLE> </TITLE>
<style>
a {text-decoration:none;}
h3 {font-size:12pt; color:green;}
</style>
<BODY text= 0099CC bgcolor= black alink= red link= green vlink= 0099CC><center>
EOH
#
$dbh = DBI->connect (DBI:mysql:database=$base; host=$comp; port=$dbport, 'root', );
if (not $dbh) {
print <<ERRDB;
<p class= norm> <b>$base</b> $dbport.<br>
<b>$DBI:errstr</b></p>
<hr align= center noshade size= 2 width= 90% color= red>
<p class= norm align= left><font size= "+1><a href=/combin/index_1.html> </a> </font></p></body></html>
ERRDB exit;};
$fio=param (fio);
#
$const=SELECT form, fio, otv, ur_adr, fiz_adr, tel, vid
FROM form_sob, client, vid_doc
WHERE form_sob.id=client.id_form_sob and vid_doc.id=client.id_vid_doc and client.fio='$fio';
$sth = $dbh->prepare($const);
$sth->execute;
print <<TBL;
<br><DIV style= height: 60; width: 270; filter: Shadow (Color=red, Direction=24)>
<font style= FONT-SIZE: 20pt color=yellow></font></div>
<table border=1>
<tr><td align= center><h3> </h3></td><td align= center><h3> (..)</h3></td><td align= center><h3> </h3></td><td align= center><h3>. </h3></td><td align= center><h3>. </h3></td><td align= center><h3></h3></td><td align= center><h3> </h3></td></tr>
TBL
while(($form,$fio,$otv,$ur_adr,$fiz_adr,$tel,$vid)=$sth->fetchrow_array)
{print <tr><td><center>$form</center></td><td><center>$fio</center></td><td><center>$otv</center></td><td><center>$ur_adr</center></td><td><center>$fiz_adr</center></td><td><center>$tel</center></td><td><center>$vid</center></td></tr>\n;};
$sth->finish;
print <<EOFR;
</BODY></table><br><br>
<a href=/combin/4.html><h3><U> </U></h3></a>
</HTML>
EOFR exit;
1 . HTML 4. .: “”, 2004 . - 400 .
2 Microsoft SQL Server 6.5. .-2004 .-200.
3 Microsoft SQL Server 6.5 DBA Survival Guide, by Mark Spenik & Orryn Sledge, ISBN 0-672-30797-9.-2005.-500
4 . "Microsoft SQL Server Internet". " '98".-2004.-350 .
5 . Microsoft SQL Server. 1/05.-2005.-180 .
6 . IBM DB2. 2/05.-2006.-250 .
7 , , . Perl . Web-; BHV- - 2004 .- 300 .
8 , , . Perl . Web-; BHV- - 2004.- 300.
9 Perl .. 2005 .-200 .
Copyright (c) 2024 Stud-Baza.ru , , , .