if ($status ==0) {print "[Text] \n";} else {print "[Normal] \n";}

'97 Java 杯 竞 赛 投 票

一，投票规则

1，投票人必须具有合法的Email地址，否则选票无效。

2，每人只可投一张选票，多投的无效。

3，填写选票时，请填写作品号. 每张选票选的作品不可重复，所选作品可以少于或等于三个。

4，选票应完整填写，填写不完整的选票无效。

5，投票将于9月27日结束。

　

二，浏览参赛作品

说 明： 点 每 个 作 品 的 作 品 号 可 浏 览 该 作 品。

$recnum =0; sub disp_result { my $dbh = shift @_; my $restype = shift @_; my $numcols = scalar(@_); if($recnum%2 == 0) { printf("");} printf("%s %s \n ",@_[0],@_[1],@_[2]); $recnum ++; } print ""; print "
作品号 作品名称 \n"; print " 作品号 作品名称 \n"; $sql_stmt = "select url,zpid,zp from vote..signtable1 where zpid>100 "; ws_sql($ws_db,$sql_stmt,\&disp_result); print "
";

三，投票

您 选 择 的 作 品 号：

您 的 姓 名：

您 的 Email 地 址：

进 入 统 计 查 询 页 面
if ($status == 0) {print "

\n";} else {print "

[ 作品报名 | 作品推荐 | 作品巡礼 | 网友投票 | 首届盛况 | 意见及建议 | 返回主页 ]
\n";}