mysql:4132

鼴醱匹允﹝

票筏及方丹卅␐���匹及犯□正矛□旦毛醜綜允月皿伕弘仿丞毛綜嶽仄凶及匹允互﹜
白巧□丞井日霜耨仄凶犯□正互犯□正矛□旦卞醣じ今木卅仁化漱勻化中引允﹝
升卅凶井票筏及皿伕弘仿丞及升仇互鬼仁化犯□正矛□旦卞醣じ今木卅中及井云項尹仁
分今中給仄仁云湊中譙仄引允﹝

#!perl

require"jcode.pl";

use DBI;
use CGI_Lite;

my($dns) = "DBI:mysql:shopping:localhost";
my($username) = "root";
my($password) = "aaaa";
my($dbh,$sth);
my(@ary);

$RemoteUser=$ENV{'REMOTE_USER'};

$cgi=new CGI_Lite();
%in=$cgi->parse_form_data();
print"Content-type: text/plain\n\n";

#蕙筋瓚狤質咥
if($in{'mode'} eq 'new'){
 &Error("筏じ炡木互丐曰引允﹝") unless $in{'kategorii'};

 #仇仇匹反EUC戊□玉匹犯□正毛醣じ仄化心月儀卞允月﹝刓憎反SJIS毛厙迕
 $kategorii=$in{'kategorii'};
 &jcode'convert(*kategorii,"euc");

 $dbh = DBI -> connect ($dns,$username,$password) or &Error("犯□正矛□旦尺
失弁本旦匹五引六氏﹝");

 $sth = $dbh->prepare(qq{insert into kaimono (kategorii)
values("kategorii")});

 $sth -> execute() or &Error("MySQL INSERT 戊穴件玉毛撢墊匹五引六氏﹝");

 $sth -> finish();
 $dbh -> disconnect();
}#蕙筋瓚狤質咥反仇仇引匹

  $dbh = DBI -> connect ($dns,$username,$password) or &Error("犯□正矛□旦尺
失弁本旦匹五引六氏﹝");

  $sth = $dbh->prepare(qq{select * from kaimono});

  $sth -> execute() or &Error("select * from kaimono毛撢墊匹五引六氏﹝");

  $sth -> finish();
  $dbh -> disconnect();


print "content-type: text/html\n\n";
print<<"__HTML__";
<html><head><title>扑亦永疋件弘棟咥矢□斥</title></head>
<body text="#44444" bgcolor="#ffffff">
<table width="32%" border="0" cellspacing="1" cellpadding="1"
align="center">
  <tr>
    <td>
      <h2 align="center">╮扑亦永疋件弘棟咥矢□斥╮</h2>
    </td>
  </tr>
</table>
<br>
<br>
<form method="post" action="kaimono.cgi">
  <table width="70%" border="3" cellspacing="4" cellpadding="5"
align="center">
    <tr>
      <td width="21%" bgcolor="#99CCFF">
        <div align="center"><font size="3"><b>市氾打伉□</b></font></div>
      </td>
      <td width="79%" bgcolor="#FDF9C1">
        <select name="kategorii">
          <option>掏颶窗湛</option>
          <option>筏盛隸譆</option>
          <option>犯奴旦皿伊奶</option>
          <option>生永玄伐□弁窗湛</option>
          <option>じ恘隸譆</option>
          <option>␐␃呿蟲</option>
          <option>皿伉件正□</option>
          <option>祥擘窗湛</option>
          <option>末白玄</option>
          <option>旦平乓瓜□</option>
        </select>
      </td>
    </tr>
  <input type="hidden" name="mode" value="new">
    <tr>
      <td colspan="2">
        <div align="center">
          <input type="submit" name="Submit" value="齒圴瓚狤">
        </div>
      </td>
    </tr>
  </table>
</form>
__HTML__

sub Error{
#print "content-type: text/html\n\n";
print $_[0];
print qq(<br><a href="javascript:history.back(1)">枑月</a>);
exit;
}

荸曰卞仁中皿伕弘仿丞匹蕭仄沭仍介中引六氏互給仄仁云湊中中凶仄引允﹝