½ÃÀÛÆäÀÌÁö·Î Áñ°Üã±âÃß°¡
·Î±×ÀÎ
ȸ¿ø°¡ÀÔ l Ã⼮üũ l ¸¶ÀÌÆäÀÌÁö l CGIMALL
ÀÚ·á½Ç »çÀÌÆ®µî·Ï ·©Å·100 ÇÁ·Î±×·¥¸®ºä °ü¸®ÀÚÃßõÀÚ·á Ãʺ¸°¡À̵å
Ä¿¹Â´ÏƼ
Àüü ÆîÃ帱â
Äü¸Þ´º¸µÅ© jquery , CSS , PHP , Javascript , ¹«·áÆùÆ® , ASP
»ó¼¼°Ë»ö
Ȩ > Ä¿¹Â´ÏƼ > Áú¹®°ú´äº¯ »ó¼¼º¸±â
Ä¿¹Â´ÏƼ ±¸Àα¸Á÷
»çÀÌÆ®µî·Ï
Ŭ¶ó¿ìµåű×
javascript
PHP
ASP
CSS
mysql
html
jquery
������
image
mobile
API
slide
°Ô½ÃÆÇ
ÇöÀçÁ¢¼ÓÀÚ ¸í »õ·Î°íħ
°Ô½ÃÆÇŸÀÌƲ Áú¹®°ú´äº¯ / »ó¼¼º¸±â
Æ®À§ÅÍ·Î º¸³»±â
Ãßõ¼ö 97 | Á¶È¸¼ö 925 | µî·ÏÀÏ 2000-05-17 14:29:29

´Ð³×ÀÓ

Anonymous

À̸ÞÀÏ

Á¦¸ñ

way-cart ¿¡¼­ÀÇ ¿ìÆí¹øÈ£°Ë»ö..
³»¿ë
way-cart1.6 ÀÎÁö, 2.0ÀÎÁö.....
way-cart.cgi ¾Æ·¡Âë¿¡ º¸½Ã¸é ÁÖ¹®ÆûÀ» ³ªÅ¸³»´Â Äڵ尡 ÀÖ½À´Ï´Ù.
±×°÷ÀÇ
µÇ¾îÀÖ´Â ³¡ºÎºÐ¿¡ "name=register" ¸¦ »ðÀÔÇÑÈÄ¿¡.
ÁÖ¹®¾ç½ÄÀ» ¼öÁ¤Çϼ¼¿ä.
ÁÖÀÇ: ¿ìÆí¹øÈ£ ¿¹½Ã¿¡ ³ª¿ÍÀÖ´Â ºÎºÐÀº »èÁ¦¸¦ ÇÏ°í, ³ª¸ÓÁö ºÎºÐÀ» ÁÖ¹®Æû¿¡ ³ÖÀ¸½Ã¸éµË´Ï´Ù.
ÇÊ¿äÇϽøé Á¦°¡ ¸¸µç ÁÖ¹®¾ç½Ä¼Ò½º¸¦ º¸¼¼¿ä.
http://erinyes.interpia98.net/~hancondo/public_html/way-cart/sample.html
±Ùµ¥...ÇÑ°¡Áö...
ÇöÀç´Â ¿ìÆí¹øÈ£ÀÔ·ÂâÀÌ µÎ°³°¡ Àִµ¥, ÀÌ°ÍÀ» Çϳª·Î ÅëÇÕÇÏ°í ½Í³×¿ä.
zipcode.cgi¸¦ ¼öÁ¤ÇÏ¸é µÈ´Ù°í Çϴµ¥ Ȥ½Ã ¾Æ½Ã´Â ºÐ ÀÖÀ¸½Ã¸é µµ¿òºÎŹµå¸³´Ï´Ù.
#! /usr/bin/perl
##############################################################
# ¿ìÆí¹øÈ£ °Ë»ö
##############################################################

&init;
if($GIL{
mode
} eq

) { &print_top; }
elsif($GIL{
mode
} eq
top
) { &show_top; }
elsif($GIL{
mode
} eq
down
) { &show_down; }
elsif($GIL{
mode
} eq
search
) { &search; }

##########################################################################
sub search {
my $query = $GIL{
query
};
print "Content-type: text/html

";
print<


Zipcode







END
require
zipcode.pm
;
if($GIL{searchmode} eq
address
) {
$ref = &zipcode_address($query);
} elsif($GIL{searchmode} eq
code
) {
$ref = &zipcode_code($query);
}
for(sort keys %$ref) {
my ($zip1, $zip2) = $_ =~ /(...)(...)/;
print qq&pip;
&pip;;
}
print <
¿ìÆí¹øÈ£ÁÖ ¼ÒÈ®ÀÎ
text
name=
zip1
value=
$zip1
size=3>-text
name=
zip2
value=
$zip2
size=3>
text
name=
address
value=
$$ref{$_}
size=40 maxlength=50>




°Ë»öÀÌ ¿Ï·áµÇ¾ú½À´Ï´Ù.










°Ë»ö¾î:





END
}

##########################################################################
sub print_top {
print "Content-type: text/html

";
print<


Zipcode











¿ìÆí¹øÈ£/ÁÖ¼Ò °Ë»ö



     Ã£°íÀÚ ÇÏ´Â ÁÖ¼ÒÀÇ µ¿/À¾/¸é À̸§À» ÀÔ·ÂÇϼ¼¿ä.
     (¿¹:¾Ð±¸Á¤µ¿/´Ü¾çÀ¾/¼ö»ê¸é)










°Ë»ö¾î:







END
}


##########################################################################
sub init {
if ($ENV{
REQUEST_METHOD
} eq "POST") { read(STDIN, $buffer, $ENV{
CONTENT_LENGTH
}); }
else { $buffer = $ENV{
QUERY_STRING
}; }
for (split
&
, $buffer) {
my ($name, $value) = split
=
;
$name =~ tr/ / /; $name =~ s/%(..)/chr(hex($1))/ge;
$value =~ tr/ / /; $value =~ s/%(..)/chr(hex($1))/ge;
$GIL{$name} = $value;
}
}

__END__

Ãßõ½ºÅ©·¦¼Ò½ºº¸±â ¸ñ·Ï
ÀÌÀü°Ô½Ã±Û ¸®¾óÀÍ»êÀ¸·Î ¿À¼¼¿ä... 2000-05-17 13:20:04
´ÙÀ½°Ô½Ã±Û ÆíÁöºÀÅõ ¸ð¾çÀÇ Æû¸ÞÀÏ·¯ ã´Âµ¥¿ä. 2000-05-17 15:04:22