登录模块加载中...
会员投稿 投稿指南 今天是:
打印本页 | 关闭窗口 | 双击滚屏 您的位置首页>>网页制作学习园地>>CGI教程>>CGI脚本编码>>CGI留言薄
CGI留言薄
来源:网页制作学习园地 ‖ 作者:网页制作学习园地 ‖ 点击: ‖ 时间:07-12-19 14:55:07 ‖ 【 】‖ 我要投稿

    name="homelogo"> *不要加http:// 主页说明: 最多20个字符


程序制作:cqiao
EOF exit; } if ($action eq "addurl") { $alredy=0; if
(!$inputhomepage||!$inputhomeurl||!$inputusername||!$inputusermail)
{ &return_error("*为必填项,请不要为空"); } $inputhomepage=&checkinput("$inputhomepage",0); $inputhomeurl=&checkinput("$inputhomeurl",1); $inputusername=&checkinput("$inputusername",0); $inputusermail=&checkinput("$inputusermail",2);
 if ($inputhomelogo) { $inputhomelogo=&checkinput("$inputhomelogo",3);
$inputhomelogo="HTTP:\/\/".$inputhomelogo; } $inputhomeurl="HTTP:\/\/".$inputhomeurl; $simple{'homepageshow'}=~s/ file://g; foreach (@LINK) { ($homepage,$homeurl,$homelogo,$username,$usermail,$homepageshow,$checknum,$joindates,$homelogo)
=split(/\|\^\|/,$_); if (($homepage eq $inputhomepage)||($homeurl eq $inputhomeurl)||($username eq $inputusername)||($usermail eq $inputusermail)) { $alredy=1; } } if ($alredy == 1)
 { &return_error("您的主页、地址、用户名、邮件中至少有一项在申请中使用过,请不要重复申请!!!"); } else { open (FILE,">>$FilePath/linkurl.cgi") || die "Open File Error:$!"; print FILE "$inputhomepage|^|$inputhomeurl|^|$inputhomelogo|^|$inputusername|^|$inputusermail|^|$simple{'homepageshow'}
|^|0|^|$joindate\n"; close (FILE); } } if ($action eq "check")
{ open (FILE,"$FilePath/$infile") || die "Open File $infile Error:$!";; @OPENLINK=; close(FILE); $checkid=$simple{'id'}; ($homepage,$homeurl,$homelogo,$username,$usermail,$homepageshow,$checknum,$joindates)=
split(/\|\^\|/,$OPENLINK[$checkid]); $joindates=~s/\n//isg; $checknum++;
$linkid=0; foreach (@LINK) { if ($OPENLINK[$checkid] eq $_) { $LINK[$linkid]=qq~$homepage|^|$homeurl|^|$homelogo|^|$username|^|$usermail|^
|$homepageshow|^|$checknum|^|$joindates\n~; } $linkid++; } open (FILE,">$FilePath/linkurl.cgi")
 || die "Open File linkurl.cgi Error:$!"; print FILE @LINK; close (FILE); print qq~~; exit(0); } if ($action eq "search") { $inputword=$simple{'searchword'};
 if (!$inputword) { &return_error("请输入搜索单词"); } foreach (@LINK) { if ($_ =~ /$inputword/) { $search[++$#search]=$_; } } open (SEARCHFILE,">$FilePath/search.cgi") || die "Open File Error:$!"; print SEARCHFILE @search; close (SEARCHFILE); $size=@search; print<



您要搜索的 $inputword 结果如下:
符合 $inputword 的 $size 条
主页名称 主页简介 站 长 点 击 加入时间
EOF $size=&viewfile($infile); $allpage=int($size/$pagenum)+1; my $num=1; print qq~ ~; for ($i=0;$i<$allpage;$i++) { $dispage=$i*$pagenum; print qq~[ $num ]~; $num++; } print<

加入收藏:  加入收藏夹  | 发送给好友:  发送给好友
责任编辑:0
  • 上一篇:选票程序
  • 下一篇:CGI聊天室
  • 请文明参与讨论,禁止漫骂攻击。  
    网友评论