📄 sold.pl
字号:
#!/usr/local/bin/perl##########################################################CGI脚本名称:二手交易市场V1.0(中文版) ##文件名:sold.pl ##版权所有: gambler ##E-mail: gambler@188.net ##主页地址: Perl Union(Perl盟) http://www.sinoboy.com ## Copy Right gambler 1998.12. ###########################################################本CGI脚本为免费软件，使用者可以任意修改、增删脚本内容。##如果您的网站正式起用这个脚本，请您通知我们，以便我们拥 ##有样本网站，或者在您的网站做上我们的链接。 ##要求不高，请您尊重我们的劳动成果和版权。 谢 谢！ #############################################################变量定义###$cgi="/mycgi/sold.pl";$data="/home1/sinoboy/www/sale/data.txt";$temp="/home1/sinoboy/www/sale/temp.txt";###定义完毕######得到总计物品数量###&count;###################################### 程序部分 ######################################$in=$ENV{'QUERY_STRING'};$|=1;$error=0;####################子程序调用###########################if($ENV{'QUERY_STRING'} eq ""){ &show;}elsif($in=~"manager"){ &manager;}elsif($in=~"search"){ &search;}elsif($in=~"join"){ &input;}elsif($in=~"submit"){ &submit;}elsif($in=~"change"){ &change;}elsif($in=~"repair"){ &repair;}elsif($in=~"result"){ &result;}###################子程序调用结束##################################################浏览物品页###########################sub show{$total=$i-1;$HTML = <<SINOBOY;<HTML><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>二手交易市场</title></head><body TEXT="#000000" BGCOLOR="#FFFFFF"><table border="0" width="100%" cellspacing="0" cellpadding="0"> <tr> <td width="33%"><p align="right"><a href="$cgi?join">物品登记</a></td> <td width="33%"><p align="center"><a href="$cgi?manager">物主管理</a></td> <td width="34%"><p align="left"><a href="$cgi?search">查找物品</a></td> </tr> <tr> <td width="100%" colspan="3"><hr> </td> </tr></table><table border="0" width="100%" cellspacing="2" cellpadding="0"> <tr> <td width="100%" bgcolor="#AAAAAA"><p align="center">共有($total)件物品</td> </tr></table><table border="0" width="100%" cellspacing="2" cellpadding="0"> <tr> <td width="20%" bgcolor="#A5AACD"><p align="center">物品编号</td> <td width="20%" bgcolor="#A5AACD"><p align="center">物品名称</td> <td width="20%" bgcolor="#A5AACD"><p align="center">新旧程度</td> <td width="20%" bgcolor="#A5AACD"><p align="center">拟订价格</td> <td width="20%" bgcolor="#A5AACD"><p align="center">物品主人</td> </tr></table>SINOBOYprint "Content-type: text/html\n\n";print $HTML;@temp=();print "<table border='0' width='100%' cellspacing='2' cellpadding='0'>";open(DATA,"$data")||die "Can not open $data\n";while($line=<DATA>){ @list=@temp; $line=~s/\+//g; @list=split(/:/,$line);print "<tr>";print "<td width='20%'><p align='center'>@list[0]</td>\n";print "<td width='20%'><p align='center'>@list[1]</td>\n";print "<td width='20%'><p align='center'>@list[2]</td>\n";if(@list[3]=~/\D+/){print "<td width='20%'><p align='center'>@list[3]</td>\n";}else{print "<td width='20%'><p align='center'>￥@list[3]</td>\n";}print "<td width='20%'><p align='center'><a href='mailto:@list[5]'>@list[4]</a></td>\n";print " </tr>\n"; } close(DATA);print "</table>";print "</body>";print "</html>";exit;}########################浏览物品页结束#############################################################登记物品页面#############################第一页sub input{$HTML = <<SINOBOY;<HTML><HEAD><META HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=gb2312"><TITLE>登记物品!!</TITLE></HEAD><BODY TEXT="#000000" BGCOLOR="#FFFFFF"><FORM ACTION="$cgi?submit" METHOD="POST"><CENTER><P><BR><BR><TABLE BORDER="1" WIDTH="37%"><TR><TD WIDTH="100%"><center><B>请输入您要出售物品的信息!!</B></center></TD></TR></TABLE><BR>物品名称：<INPUT TYPE="TEXT" NAME="sname" SIZE="27" MAXLENGTH="16"><BR>拟订价格：<INPUT TYPE="TEXT" NAME="price" VALUE="商议" SIZE="27" MAXLENGTH="8"><BR>卖主姓名：<INPUT TYPE="TEXT" NAME="mname" SIZE="27" MAXLENGTH="12"><BR>信箱地址：<INPUT TYPE="TEXT" NAME="mail" SIZE="27"><BR>新旧程度：<SELECT NAME="old"> <OPTION SELECTED>半成新</OPTION> <OPTION>非常旧</OPTION> <OPTION>比较旧</OPTION> <OPTION>比较新</OPTION> <OPTION>非常新</OPTION> </SELECT><br><INPUT TYPE="SUBMIT" VALUE="提交申请!!"><INPUT TYPE="reset" VALUE="取消!!"></CENTER></FORM></BODY></HTML><br><br><br><br><br><center><a href="$cgi">返回</a></center>SINOBOY print "Content-type: text/html\n\n"; print $HTML; exit;}#第二页sub submit{read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});@pairs=split(/&/,$buffer);foreach $pair(@pairs){ ($name,$value)=split(/=/,$pair); $name=~tr/+//; $name=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; $value=~tr/+//; $value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; $value =~ s/<!--(.|\n)*-->//g; $value =~ s/<//g; $value =~ s/>//g; $FORM{$name}=$value;}foreach $value(values%FORM){ $value=~s/\+//g; $value=~s/\s//g; $error=1 unless($value);}if($error){&error;}else{$error=2 unless($FORM{'mail'}=~/@/&&$FORM{'mail'}!~/^@/&&$FORM{'mail'}!~/\@$/);if($error){&error_mail;}else{###物品编号的生成###$str=substr($FORM{'mail'},0,5);$str=~s/@//g;$str=~s/\./-/g;srand;$userid=int(rand(1000));$userid=$userid+$i;$str.=$userid;###PASSWORD的生成###srand (time|$$);$pass = int (rand(10000));$pass .= "$$";if($FORM{'price'} ne "商议"&&$FORM{'price'}=~/\D+/g){&error_price;}else{foreach $pair(keys%FORM){ $FORM{$pair}=~s/\+//g;}open(DATA,">>$data")||die "Can not open $data\n";print DATA "$str:";print DATA "$FORM{'sname'}:";print DATA "$FORM{'old'}:";print DATA "$FORM{'price'}:";print DATA "$FORM{'mname'}:";print DATA "$FORM{'mail'}:";print DATA "$pass:\n";close(DATA);print "Content-type:text/html\n\n";print "<title>登记成功</title>\n";print "<center><h1>恭喜！</center></h1><br>\n";print "<center><h3>您要出售的物品已经存入我们的数据库，请静待佳音！</center></h3>\n";print "<center><h3>请您一定要记住下面的编号和密码哦，不然您就无法更改和管理您自己的物品了！</center></h3><br>\n";print "<center><h1>您的物品编号是：$str<br>\n";print "您的管理密码是：$pass</h1><br></center>\n";print "<center><a href='$cgi'>返回</a></center>"; } } }}################################物品登记完毕##########################################################物主管理页面###################################第一页sub manager{$HTML = <<SINOBOY;<HTML><HEAD><META HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=gb2312"><TITLE>物主管理!!</TITLE></HEAD><BODY TEXT="#000000" BGCOLOR="#FFFFFF"><FORM ACTION="$cgi?change" METHOD="POST"><CENTER><P><BR><BR><TABLE BORDER="1" WIDTH="37%"><TR><TD WIDTH="100%"><center><B>请输入您的物品编号和密码!!</B></center></TD></TR></TABLE><BR>物品编号：<INPUT TYPE="TEXT" NAME="inid" SIZE="27"><BR>您的密码：<INPUT TYPE="TEXT" NAME="inpass" SIZE="27"><BR><BR><INPUT TYPE="SUBMIT" VALUE="确定!!"><INPUT TYPE="reset" VALUE="取消!!"></CENTER></FORM></BODY></HTML><br><br><br><br><br><center><a href="$cgi">返回</a></center>SINOBOY open(DATA,"<$data")||die "Can not open $data\n"; @temp=<DATA>; close(DATA); open(TEMP,">$temp")||die "Can not open $temp\n"; print TEMP @temp; close(TEMP); print "Content-type: text/html\n\n"; print $HTML; exit;}#第二页sub change{ read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); @pairs=split(/&/,$buffer); foreach $pair(@pairs){ ($name,$value)=split(/=/,$pair); $name=~tr/+//; $name=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -