$SUBJECT

#! /usr/bin/perl use DBI; #use strict; my $buffer; my $pair; my $value; my $FORM; my $name; if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } my @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); # Un-Webify plus signs and %-encoding $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s///g; $value =~ s/\@/\\@/g; $value =~ s/\;/；/g; $value =~ s/'/’/g; $value =~ s/"/”/g; $value =~ s/\;/；/g; $FORM->{$name} = $value; } my $MID=$FORM->{'MID'}; my $uname=$FORM->{'uname'}; my $PASSWORD=$FORM->{'PASSWORD'}; my $sex; my $SUBJECT; my $cgiurl; my $umain; my $group; my $main; my $url; my $dbh; my $sth; my $row; my $mainurl; if($MID >9999 && $MID<999999 && length($MID) < 7){ }else{ $MID=10000; } if($MID=~ /[^0-9]/i){$MID=100000;} $OUT_URL="http://cgi.f1.com.tw/cgi-bin/chat.cgi?MID=$MID"; print "Location:$OUT_URL\n\n"; exit; if($uname eq ''){ my $database = "counter"; my $data_source = "DBI:mysql:$database"; my $username = "root"; my $password = ""; $dbh = DBI->connect( $data_source, $username, $password); $sth = $dbh->prepare("SELECT *FROM NEWMEMBER WHERE u1='$MID'"); $sth->execute; $row = $sth->fetchrow_arrayref; $SUBJECT; if($row->[1] ne ""){ $mainurl=$row->[1]; }else{ $mainurl="http://www.ysl.net"; } if($row->[18] ne ""){ $SUBJECT=$row->[18]; }elsif($row->[6] ne ""){ $SUBJECT=$row->[6]; }else{ $SUBJECT="UT網際空間"; } my $chatlevel=$row->[17] ; $sth->finish; $dbh->disconnect; # $MID=$MID/10; # $cgiurl="http://f2.f1.com.tw/cgi-bin/go.cgi"; # if($chatlevel eq '免費聊天室' || $chatlevel eq ''){ ## if($MID >100000){ # &mainshow_t; ##}else{ ## &mainshow1; ##} # }else{ # &mainshow_t; # } $sth->finish; $dbh->disconnect; }else{ my $database = "counter"; my $data_source = "DBI:mysql:$database"; my $username = "root"; my $password = ""; $dbh = DBI->connect( $data_source, $username, $password); $sth = $dbh->prepare("SELECT *FROM NEWMEMBER WHERE u1=$MID"); $sth->execute; $row = $sth->fetchrow_arrayref; my $mainurl; my $SUBJECT; if($row->[3] ne ""){ $mainurl=$row->[3]; }else{ $mainurl="http://www.ysl.net"; } if($row->[4] ne ""){ $SUBJECT=$row->[4]; }else{ $SUBJECT="UT網際空間"; } if($row->[16] == 10100){ $umain=1200; } $sth->finish; $dbh->disconnect; # $cgiurl="http://c1.f1.com.tw/cgi-bin/other4/go.cgi"; # &mainshow; } #else ##//Chat.location.href=mylocation; print"Content-type: text/html\n\n"; print < $SUBJECT

$SUBJECT

UT網際空間聊天室．｜．加入專屬聊天室會員．｜．專屬聊天室會員通訊錄

　匿　稱：

　密　碼：

　性　別：

　來　自：

　文　字：

聊天室說明：

聊天室非會員不需密碼既可進入。會員請於 [ 匿　稱 ] 欄輸入會員ID，[ 密碼 ] 欄輸入您的會員密碼。

[ 專屬聊天室 ] 由單一網站使用並非多網站使用，且由所屬站長獨立管理，如需會員帳號請洽所屬站長。

請使用８００Ｘ６００解析度。

本聊天室必需使用ＩＥ４．０以上瀏覽器不支援 NetScape 瀏覽器。

為維持良好聊天室品質請避免使用 Seed net 撥接進入聊天室。

聊天室規定：
1.進入聊天室後請保持您的禮貌，因為這是聊天基本之禮儀。
2.在聊天室內請勿發表不正當之言詞，影響他人權利，管理人員有權使用踢人\功\能。
3.為維持良好聊天室品質請避免使用 Seed net 撥接進入聊天室。

| 回　首　頁 |‧| 申請聊天室 |‧| 留　言　板 |‧| 標記書籤 |‧| 設為首頁 |

版權所有 c 1997-2001 YSL.net UT網際空間
Copyright c 1997-2001 YSL.net. All Rights Reserved. Gao Dong Co. Ltd.
We're interested in your comments and feedback. email at master\@\YSL.net .

EOF exit; # # # # # # #

#

#

#

#

#

#

#

#

#

#

#

#

#

#

#

#

#

#

#

#

#

[ 聊天室大廳 ] 為多網站使用如果 [ 專屬聊天室 ] 中找不到談天對象可至聊天室大廳找人。 # #

[ JAVA 聊天室 ] 必需使用ＩＥ４．０１以上瀏覽器。為Ｃｌｉｅｎｔ－Ｓｅｒｖｅｒ架構速度快。 #(系統更新)JAVA 聊天室暫停使用) # sub mainshow_t{ if($MID<300000){ print"Content-type: text/html\n\n"; print < 系統載入中請稍候............ EOF exit; }else{ print"Content-type: text/html\n\n"; print < 系統載入中請稍候............ EOF exit; } #

# print"Content-type: text/html\n\n"; print < $SUBJECT

　

　

Free Advertising from Click2Net!

$SUBJECT

| 標記書籤 |‧| 設為首頁 |

HTML 聊天室非會員不需密碼既可進入

本聊天室必需使用ＩＥ４．０以上瀏覽器不支援 NetScape 瀏覽器。

　

　

亞洲第一購物搜索站 EOF exit; } sub mainshow1{ #print"Content-type: text/html\n\n"; #print < # # # # # # # #EOF #exit; $cgiurl="go.cgi"; print"Content-type: text/html\n\n"; #if($MID>9999 && $MID<16000){ # open(F,"out_chat/$MID.dat") || die"無法開啟"; # my @number=; # close(F); # print"@number"; # exit; #} print < $SUBJECT

　

　

$SUBJECT

HTML 聊天室非會員不需密碼既可進入

本聊天室必需使用ＩＥ４．０以上瀏覽器。

　

　

EOF } #----------- &mainshow #

sub mainshow{ $cgiurl="go.cgi"; print"Content-type: text/html\n\n"; print < $SUBJECT

$SUBJECT

HTML聊天室

　匿　稱：

　密　碼：

　性　別：

本聊天室必需使用ＩＥ４．０以上瀏覽器。

EOF } #----------- &mainshow #聊天室人氣指數：

sub mainshow_free{ $cgiurl="go.cgi"; print"Content-type: text/html\n\n"; print < $SUBJECT

$SUBJECT

Free Advertising from Click2Net!
支持本聊天室服務請參觀上面網站UT工作室製作

OnLine　聊　天　室

　匿　稱：

　密　碼：

　性　別：

Java聊天室必需使用ＩＥ４．０１以上瀏覽器。

不支援ＮｅｔＳｃａｐｅ瀏覽器。

為Ｃｌｉｅｎｔ－Ｓｅｒｖｅｒ架構速度快。

共分十主題，可選擇換房。可使用密談功能。

請使用８００Ｘ６００解析度。

人　氣　指　數：

申請免費計數器

EOF } #----------- &mainshow ##

sub mainshow2{ $cgiurl="go.cgi"; print"Content-type: text/html\n\n"; print < $SUBJECT

$SUBJECT


會員ID :
密碼 :
性別 :

新會員註冊
1.匿名 :
此為進入聊天的匿名
2.Email :
請正確填寫E-Mail , 申請完成後我們會已此E-Mail通知您 .
3.年齡：
3.性別：
4.您目前位於國家
5.教育程度：
6.月薪：
7.職業類別：
9.自我介紹：

EOF } #----------- &mainshow ##