关于cgi的站点

1 23

返回列表回复发帖

俊儿

版主

Rank: 7 Rank: 7 Rank: 7

UID: 2035446
威望: 5 点
金钱: -666 金币
点卡: 0 点

21^#

发表于 2002-10-29 21:15 | 只看该作者

是啊，你是湖南哪儿的？

[color=#FF00FF]『有一种天空，喜欢接近阴霾有一种生活，不知是否存在』『有一种希望，注定走向毁灭有一种死亡，渐渐被人期待』『有一种心境，分辨不清好坏有一种爱情，不再渴望表白』『有一种眼泪，只能流向心底有一种悲伤，从不表现出来』

回复引用

TOP

cnangel

管理员

Rank: 9 Rank: 9 Rank: 9

UID: 1
威望: 1237 点
金钱: 10002 金币
点卡: 315 点

22^#

发表于 2002-10-31 10:09 | 只看该作者

关于cgi的站点

我也是湖南的，多多联系啊！01062344867

                  我是一个呼吸着现在的空气而生活在过去的人
            这样的注定孤独，孤独的身处闹市却犹如置身于荒漠
                                 我已习惯了孤独，爱上孤独
                              他让我看清了自我，还原了自我
                           让我再静静的沉思中得到快乐和满足
                                 再孤独的世界里我一遍又一遍
                                 不厌其烦的改写着自己的过去
                                          延伸到现在与未来
                                    然而那只是泡沫般的美梦
                              产生的时刻又伴随着破灭的到来
                     在灰飞烟灭的瞬间我看到的是过程的美丽
                                    而不是结果的悲哀。。。

回复引用

TOP

风云圣道

版主

Rank: 7 Rank: 7 Rank: 7

UID: 2036418
威望: 8 点
金钱: -15199 金币
点卡: 0 点

23^#

发表于 2002-11-9 13:32 | 只看该作者

关于cgi的站点

呵呵~~~~：）

日暮苍山兰舟小, 本无落霞缀清泉. 去年叶落缘分定, 死水微漾人却亡.

回复引用

TOP

cnangel

管理员

Rank: 9 Rank: 9 Rank: 9

UID: 1
威望: 1237 点
金钱: 10002 金币
点卡: 315 点

24^#

发表于 2002-11-10 16:21 | 只看该作者

关于cgi的站点

http://down.kk66.com 很不错的cgi站点

回复引用

TOP

magic

注册会员

Rank: 2

UID: 2033152
威望: 1 点
金钱: 3090 金币
点卡: 0 点

25^#

发表于 2002-11-22 17:41 | 只看该作者

关于cgi的站点

给大家一个好的cgi程序
HTML语法:
<HTML>
<title>留言薄</title>
<h1>留言薄</h1>
<form methdo="post" actiont="/cgi-bin/guest.cgi">
<p>您的姓名:<input name="name" size="20">
<p>您的E-MAIL:<input name="email" size="30">
<p>您的留言<textarea name="suggest" cols=30 rows=4>
</textarea><p>
<input type="submit" value="执行">
<input type="reset" value="取消">
CGI程序:
#!/usr/bin/perl
#文件名:guest.cgi
#声明:欢迎任意修改
$|=1;
print"Content-type:text\html\n\"; #设定输出格式为HTML
read(STDIN,$BUFFER,$ENV{'CONTENT_LENGTH'};
#读入标准输入字符串
#分割解码
@pairs=split(/&/,$buffer);
foreach $pair(@pairs){
($name,$value)=split(/=/,$pair);
$value=~tr/+/ /;
$value=~s/%(..)/pack(pack("C",hex($1))/eg;
$FORM{$name}=$value;
}
print"<title>留言薄</title>";
print"<h1>留言薄</h1>";
foreach $check(value%FORM){
if ($check eq " "){
print"有空白字段,请重新输入!";
exit; #退出
}
$FORM{'suggest'}=~s/\n/<br>/g; #将字符串中的换行符转换成<br>
$date='/usr/bin/date'; #取得系统时间
chop($date); #去掉还行符
$filename="/public/data.htm"; #输出文件
open(FILE,">>$filename")||die"Can't Open $filename";
#追加方式打开
print FILE "我来自

ENV{'REMOTE_HOST'}<BR>";
print FILE "留言时间

date<br>";
print FILE "姓名

FORM{'name'}<br>";
print FILE "我的EMAIL:<a href=mailto:$FORM{'email'}>$FORM{'email'}</a><br>\n";
close(FILE);
print "谢谢您的留言!";
print "观看<a href=/data.htm>留言薄</a>; #一定要有"/"!!!!
#还可以写成print "观看<a href=\"/data.htm\">留言薄</a>;

回复引用

TOP

magic

注册会员

Rank: 2

UID: 2033152
威望: 1 点
金钱: 3090 金币
点卡: 0 点

26^#

发表于 2002-11-22 17:46 | 只看该作者

关于cgi的站点

EMAIL
EMAIL也是最常用的CGI应用程序之一,其目的是给来宾的留言一个应答.
HTML语法:
<HTML>
<title>留言</title>
<h1>留言薄</h1>
<form methdo="post" actiont="/cgi-bin/guest.cgi">
<p>您的姓名:<input name="name" size="20">
<p>您的E-MAIL:<input name="email" size="30">
<p>您的留言<textarea name="suggest" cols=30 rows=4></textarea><p>
<input type="submit" value="执行">
<input type="reset" value="取消">
CGI程序:
#!/usr/bin/perl
#文件名:guest.cgi
#声明:欢迎任意修改
$|=1;
print"Content-type:text\html\n\"; #设定输出格式为HTML
read(STDIN,$BUFFER,$ENV{'CONTENT_LENGTH'}; #读入标准输入字符串
#分割解码
@pairs=split(/&/,$buffer);
foreach $pair(@pairs){
($name,$value)=split(/=/,$pair);
$value=~tr/+/ /;
$value=~s/%(..)/pack(pack("C",hex($1))/eg;
$FORM{$name}=$value;
}
print"<title>留言</title>";
print"<h1>留言薄</h1>";
foreach $check(value%FORM){
if ($check eq " "){
print"有空白字段,请重新输入!";
exit; #退出
}
$FORM{'suggest'}=~s/\n/<br>/g; #将字符串中的换行符转换成<br>
$date='/usr/bin/date'; #取得系统时间
chop($date); #去掉还行符
$mail="/usr/bin/mail"; #mail 的路径
$yourmail="webmaster\@com2008.51.net"; #收信人地址 ,一定要有"\"
open(MAIL,"|$mail $yourmail")||die"Can't Open $filename";
#追加方式打开
print MAIL "您来自

ENV{'REMOTE_HOST'}<BR>";
print MAIL "留言时间

date<br>";
print MAIL "姓名

FORM{'name'}<br>";
print MAIL "您的EMAIL:<a href=mailto:$FORM{'email'}>$FORM{'email'}</a><br>\n";
print MAIL "您的留言已经收到,我会尽快处理.谢谢!";
close(MAIL);

回复引用

TOP

magic

注册会员

Rank: 2

UID: 2033152
威望: 1 点
金钱: 3090 金币
点卡: 0 点

27^#

发表于 2002-11-22 17:48 | 只看该作者

关于cgi的站点

搜索引擎的利用
HTML语法:
<HTML>
<H1>搜索引擎的利用</H1>
<FORM METHOD="

OST" ACTION="/cgi-bin/goto.cgi">
<select name="goto" size=8>
<option value="http://www.zg169.net/~worldboy">CGI乐园
<option value="http://www.yahoo.com">YAHOO
<option value="http://www.sohoo.com.cn">SOHOO
</select>
<input type="submit" value="Goto!">
</FORM></HTML>
CGI程序:
#!/usr/bin/perl
#文件名:goto.cgi
#声明:欢迎任意修改使用
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'};
#分割解码
@pairs=split(/&/,$buffer);
foreach $pair(@pairs){
($name,$value)=split(/=/,$pair);
$value=~tr/+/ /;
$value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$FORM{$name}=$value;
}
print"Location

FORM{'goto'}\n\n";
#一定要有两个\n!!!

回复引用

TOP

magic