亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? sguest.cgi

?? 1。超強文件讀寫鎖定
?? CGI
字號: 
#!/usr/bin/perl
$dirname=&mypath;
##################################################################
##                                                              ##
## 本版使用于WINDOWS和Unix/Linux等操作系統版                    ## 
##################################################################
require "$dirname/setup2002.pl";
require "$dirname/svote.lib";
&read_form;  
&GetCookies;
$num=$FORM{'num'};
$post=$FORM{'post'};
$guest=$FORM{'guest'};
$look=$FORM{'look'};
$looks=$FORM{'Looks'};
$iddir="$dirname/$FILE{'poll'}/$id";
unless(-e "$iddir"){ &error("錯誤","ID賬號不存在");}
if($cookid){ &error("錯誤","請先注冊登陸");}
if($num){#}
elsif($guest){&guest;}
elsif($look){&look;}
elsif($looks){&looks;}
else {
unless (-e "$iddir/$num"){ &error("錯誤","本調查內容已不存在！");}
&Header("發表評語","發表評語");
print qq~
<script Language='JavaScript'>
function formCheck(){
nameLength=document.FORM.name.value.length;
if(nameLength<2){alert("請輸入你的名字！");return false;}
bodyLength=document.FORM.body.value.length;
if(bodyLength<2){alert("請輸入內容！");return false;}
document.FORM.submit.disabled = true;
return true;
}
function textCounter(field, countfield, maxlimit) {
if (field.value.length > maxlimit) 
field.value = field.value.substring(0,maxlimit);
else 
countfield.value = maxlimit - field.value.length;
}
</script>
<center><p><FORM METHOD=POST name="FORM" onSubmit='return formCheck()' ACTION="$CGI{'guest'}">
<input type=hidden name="id" value="$id"><input type=hidden name="num" value="$post">
<TABLE cellSpacing=1 cellPadding=1 bgColor=#008080 border=0 width="300">
<tr><td height="22" bgcolor=#FFD7C>你的名字:<input name="name" size="15" maxlength="10" class=form  value="$Cookies{$Cookname}">
電郵:<input name="email" size="15" maxlength="30" class=form>
<tr><td height="22" bgcolor=#FFD7C>主頁名稱:<input name="home" size="15" maxlength="10" class=form  value="$Cookies{$Cookname}">
地址:<input name="url" size="15" maxlength="50" class=form value="http://">
<tr><td align=center><TEXTAREA NAME="body" ROWS=9 COLS=45 class=form  onKeyDown="textCounter(this.form.body,this.form.remLen,100;" onKeyUp="textCounter(this.form.body,this.form.remLen,100);"></TEXTAREA>
<p>內容不能多于<input readonly type="text" name="remLen" size="3" value="100" class="form">字&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<INPUT TYPE=SUBMIT  name=submit  VALUE="發 布" accessKey=S tabIndex=4 class=form1>&nbsp;<input type=reset value="重寫" class=form1>
</TABLE></FORM>~;
exit;
}
##
sub num {
 $body = $FORM{'body'}; 
 $body = &Usecheck("$body");
 $home = $FORM{'home'}; 
 $home = &Usecheck("$home");
 if($FORM{'email'}){
 $email=$FORM{'email'};
 $email =~ s/\s//g;
 $email=~ tr/A-Z/a-z/;
 if ($email =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)|(,)/ || $email !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/) { &error("錯誤","$email郵箱地址無效");}
 }
 if($FORM{'url'} =~/\s*(http|https|ftp|rtsp):\/\/(\S+?)\s*/){$url="$FORM{'url'}";}
 $ursname = $FORM{'name'}; 
 $ursname = &Usecheck("$username");
if($ursname eq ""){&error("錯誤","沒填寫名字，或有空字符?");}
if($body eq ""){&error("錯誤","沒填寫內容，或有空字符?");}
if(length($body) > 100){ &error("錯誤","內容不能大于100字節");}
$lockerror = &LockFile("$iddir/$num.pl");
&error("錯誤","服務器占用中，請稍后再試") if($lockerror);
open(CCOO,"$iddir/$num.pl"); 
@TPRP = <CCOO>; 
close(CCOO);
open(NUM2,">$iddir/$num.pl"); 
print NUM2 "$ursname\t$body\t$url\t$home\t$email\t$year-$mon-$mday $hour:$min\n";
print NUM2 @TPRP;
close(NUM2);
&UnlockFile("$iddir/$num.pl");
if($FORM{'back'}){
print "Content-type: text/html\n"; 
print "Location:$CGI{'guest'}?id=$id&guest=$num\n\n";
exit;
}
&Header;
print qq~
<script language="JavaScript"><!--
function clock(){
i=i-1
document.title="窗口將在"+i+"秒后自動關閉";
if(i>0)setTimeout("clock();",1000);
else self.close();
}
var i=5
clock();
//--></script>~;
print "<p>&nbsp;<p align=center>信息已發送，謝謝您發表評論！</p></HTML>";
exit;
}
##
sub guest {
unless (-f "$iddir/$guest.pl"){ &error("錯誤","本調查內容已不存在！");}

&Header("評論");
&Top;
print qq~<p><center><TABLE border=1 borderColor=#ffffff borderColorDark=#ffffff borderColorLight=#000000 cellSpacing=0 bgColor="#46C2FF"  width=700>
<tr><td valign="top"><TABLE border=0 width=550 cellSpacing=1><tr bgcolor=#FFD7C height=25><td align=center width=80>作 者<td align=center>內 容<td align=center width=100>時 間</td></tr>~;

open(guest,"$iddir/$guest.pl");
@guest=<guest>;  
close(guest); 
$end=@guest;
for ($i=0;$i<$end;$i++) {
$guest1=@guest[$i];
$guest1=~s/\n//g;
($gname,$gbody,$url,$home,$email,$gtim)=split(/\t/,$guest1);
print "<tr bgcolor=#DDEEFF><td align=center><A href=# title=\"主頁:$home\n電郵:$email\n地址:$url\">$gname</a><td>$gbody<td align=center>$gtim";
}
print qq~</TABLE><td><TABLE cellSpacing=1 cellPadding=1 border=0 width="100"><FORM METHOD=POST name="FORM" onSubmit='return formCheck()' ACTION="$CGI{'guest'}">
<input type=hidden name="id" value="$id"><input type=hidden name="num" value="$guest"><input type=hidden name="back" value="Y">
<tr><td height="22" bgcolor=#FFD7C>名字:<input name="name" size="16" maxlength="10" class=form  value="$Cookies{$Cookname}">
<tr><td height="22" bgcolor=#FFD7C>電郵:<input name="email" size="16" maxlength="30" class=form>
<tr><td height="22" bgcolor=#FFD7C>主頁:<input name="home" size="16" maxlength="10" class=form  value="$Cookies{$Cookname}">
<tr><td height="22" bgcolor=#FFD7C>地址:<input name="url" size="16" maxlength="50" class=form value="http://">
<tr><td align=center><TEXTAREA NAME="body" ROWS=9 COLS=20 class=form></TEXTAREA><p>
<INPUT TYPE=SUBMIT  name=submit  VALUE="發 布" accessKey=S tabIndex=4 class=form1>&nbsp;<input type=reset value="重寫" class=form1>
</TABLE></FORM></TABLE></p>~;
&Tailer;
exit;
}
#
sub look {
if(!$Cookies{$Cookname}){ &error("錯誤","不對非注冊者開放");}
if(!$CONFIG{'sendmail'}){ &error("錯誤","本站不開放本內容");}
unless (-e "$iddir/$look"){ &error("錯誤","本調查內容已不存在！");}
&Header("關注本主題調查");
print qq~<script Language='JavaScript'>
function formCheck(){
emailLength=document.FORM.email.value.length;
if(emailLength<2){alert("請輸入你的電郵！");return false;}
document.FORM.submit.disabled = true;
return true;
}
</script>
<center><p>關注本主題調查<p><FORM METHOD=POST name="FORM" onSubmit='return formCheck()' ACTION="$CGI{'guest'}">
<input type=hidden name="id" value="$id"><input type=hidden name="Looks" value="$look">
<TABLE cellSpacing=2 cellPadding=2 bgColor=#008080 border=0 width="310"><tr><td>
<TABLE cellSpacing=1 cellPadding=1 border=0 width="310">
<tr><td height="25" bgcolor=#FFD7C>你的郵箱:<input name="email" size="25" maxlength="40" class=form> 需能正常收郵件
<tr><td height="25" bgcolor=#FFD7C>如果本調查參與人數有
<select name=min class=form><option value=""> 0<option value=10> 10<option value=20> 20<option value=30> 30<option value=50> 50<option value=80> 80<option value=100>100
<option value=120>120<option value=150>150<option value=180>180<option value=200>200<option value=230>230<option value=250>250<option value=300>300
<option value=350>350<option value=400>400<option value=500>500<option value=600>600<option value=700>700<option value=800>800<option value=900>900</select>位時, 通知我 ~;
if($CONFIG{'regcook'}){print qq~<tr><td height="22" bgcolor=#FFD7C>如果本調查參與人姓名有<input name="From" size="10" maxlength="10" class=form title="不支持有空格的名字"> 時, 通知我~;}
print qq~<tr><td align=center bgcolor=#FFD7C><p>如有以上信息時，系統將發出E-MAIL到你郵箱。
<INPUT TYPE=SUBMIT  name=submit  VALUE="確 定" accessKey=S tabIndex=4 class=form1>&nbsp;<input type=reset value="重寫" class=form1>
</TABLE></TABLE></FORM>~;
exit;
}
##
sub looks {
 $email=$FORM{'email'};
 $email =~ s/\s//g;
 $email=~ tr/A-Z/a-z/;
 if ($email =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)|(,)/ || $email !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/) { &error("錯誤","$email郵箱地址無效");}
if($FORM{'From'}){
 $ursname = $FORM{'From'}; 
 $ursname = &Usecheck("$username");
if(!$ursname){ &error("錯誤","本系統不支持此名字，$FORM{'From'} 可能有非法字符");}
unless (-f "$dirname/$FILE{'ursid'}/$ursname.cgi"){ &error("錯誤","系統沒此 $ursname 注冊者");}
open(NUM,">>$iddir/$looks/$ursname.tmp"); 
print NUM "$email\n";
close(NUM);
}

if($FORM{'min'}){
 $min = $FORM{'min'}; 
open(NUM1,">>$iddir/$looks/$min.pl"); 
print NUM1 "$email\n";
close(NUM1);
}
&Header;
print qq~
<script language="JavaScript"><!--
function clock(){
i=i-1
document.title="窗口將在"+i+"秒后自動關閉";
if(i>0)setTimeout("clock();",1000);
else self.close();
}
var i=5
clock();
//--></script>~;
print "<center><p>&nbsp;<p>你好，信息已加入系統中！</p></HTML>";
exit;
}
#
#####名
sub Usecheck {
my $UsePost= shift;
$UsePost=~ s/<([^>]|\n)*>//g;
$UsePost=~ s/[\{\}\<\>\~\$\^\`\/\\\#\|\ ]//g;
$UsePost=~ s/\&nbsp;//g;
$UsePost=~ s/\&amp;//g;
$UsePost=~ s/\&//g;
$UsePost=~ s/\+//g;
$UsePost=~ s/OPEN/O.pen/isg;
$UsePost=~ s/WINDOW/Win-dow/isg;
$UsePost=~ s/exit/E.xit/isg;
$UsePost=~ s/setup/S.etup/isg;
$UsePost=~ s/form/F.orm/isg;
$UsePost=~ s/javas/J.ava.s/isg;
$UsePost=~ s/value/V.al-ue/isg;
$UsePost=~ s/onmouse/O.nmou-se/isg;
$UsePost=~ s/cookie/C.ook-ie/isg;
$UsePost=~ s/document/D.ocume-nt/isg;
$UsePost=~ s/CONFIG/C.ONF-IG/isg;
$UsePost=~ s/file:/F.ile:/isg;
$UsePost=~ s/他媽的/☆※◇/isg;
$UsePost=~ s/法輪/○◇/isg;
return ($UsePost);
}

#
sub mypath {
$dirname=__FILE__;
if ($dirname=~/\\/) { $dirname=~ s/\\/\//g;}
if ($dirname) {$mypath=substr($dirname,0,rindex($dirname,"/"));}
else {
$mypath=substr($ENV{'PATH_TRANSLATED'},0,rindex($ENV{'PATH_TRANSLATED'},"\\"));
$mypath=~ s/\\/\//g;
}
}
exit;

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
欧美一区二区三区啪啪| 秋霞影院一区二区| 欧美一区二区美女| 亚洲另类一区二区| 丁香啪啪综合成人亚洲小说| 日本中文字幕不卡| 不卡av在线免费观看| 亚洲色图在线看| 国产在线一区二区| 欧美一级片免费看| 日韩国产一区二| 欧美一区二区性放荡片| 蜜桃一区二区三区在线| 日本中文一区二区三区| 国产一区二区不卡| 亚洲欧洲av在线| 久久久噜噜噜久久中文字幕色伊伊| 欧美日韩高清在线播放| 色又黄又爽网站www久久| 粗大黑人巨茎大战欧美成人| 精品综合免费视频观看| 日韩影院精彩在线| 亚洲成av人影院| 一区二区国产视频| 1024成人网色www| 日本一二三四高清不卡| 国产视频不卡一区| 久久久精品2019中文字幕之3| 精品国产第一区二区三区观看体验 | 国产精品福利一区二区| 国产性天天综合网| 国产亚洲一区二区三区四区| 欧美电影免费观看完整版| 欧美一区二区三区小说| 欧美一区午夜视频在线观看 | 国产无一区二区| 久久综合九色综合欧美98| 日韩欧美激情在线| www成人在线观看| 久久久久久97三级| 欧美国产一区二区| 国产精品久久久久久久第一福利 | 久久99久久99小草精品免视看| 免费在线观看视频一区| 久草中文综合在线| 国产成人啪免费观看软件| 高清国产一区二区| 99re成人精品视频| 欧美伊人久久久久久久久影院| 欧美性一级生活| 欧美美女激情18p| 久久久久久影视| 中文字幕 久热精品 视频在线| 综合亚洲深深色噜噜狠狠网站| 依依成人精品视频| 日韩成人伦理电影在线观看| 老司机午夜精品| 国产呦萝稀缺另类资源| 成+人+亚洲+综合天堂| 一本久久a久久精品亚洲| 99久久99精品久久久久久| 91久久精品日日躁夜夜躁欧美| 欧美老人xxxx18| 欧美大片日本大片免费观看| 中文av一区二区| 亚洲午夜羞羞片| 美国欧美日韩国产在线播放| 国产一区二区三区蝌蚪| 99re在线精品| 日韩欧美国产三级| 国产精品麻豆网站| 亚洲va天堂va国产va久| 蜜桃av一区二区在线观看| 成人黄色一级视频| 欧美二区三区的天堂| 国产清纯美女被跳蛋高潮一区二区久久w| 国产精品卡一卡二| 天堂蜜桃91精品| 成人免费高清在线| 日韩亚洲电影在线| 亚洲视频在线观看三级| 蜜桃传媒麻豆第一区在线观看| 不卡电影一区二区三区| 欧美一区二区播放| 亚洲欧美另类综合偷拍| 极品少妇xxxx精品少妇偷拍| 91官网在线免费观看| 久久久www成人免费无遮挡大片| 一区二区三区中文字幕精品精品 | 国产亚洲精品aa午夜观看| 亚洲一区二区免费视频| 国产aⅴ综合色| 日韩亚洲欧美综合| 一区二区三区在线视频免费观看| 国产在线精品国自产拍免费| 欧美日韩大陆在线| 亚洲女性喷水在线观看一区| 国内精品久久久久影院色 | 精品国产伦理网| 亚洲综合一区二区三区| 国产成人aaa| 日韩三级中文字幕| 亚洲电影你懂得| voyeur盗摄精品| 久久久天堂av| 久久激情五月婷婷| 日本一区二区三级电影在线观看| 欧美老人xxxx18| 一区二区三区四区五区视频在线观看 | 亚洲欧洲成人精品av97| 国产一区二区毛片| 日韩免费高清av| 无码av中文一区二区三区桃花岛| 91浏览器入口在线观看| 国产精品美女久久久久久久久久久| 国产在线精品一区二区| 欧美电视剧免费观看| 日本欧美一区二区三区| 欧美精品 国产精品| 亚洲国产精品视频| 欧美三级一区二区| 亚洲一区二区在线观看视频| 色久优优欧美色久优优| 国产精品不卡在线| 成a人片亚洲日本久久| 欧美激情在线一区二区| 成人亚洲精品久久久久软件| 国产午夜精品美女毛片视频| 国产精品综合视频| 国产亚洲女人久久久久毛片| 国产伦精品一区二区三区免费迷 | 国产亚洲精品aa午夜观看| 国产一区在线观看视频| 久久婷婷国产综合精品青草| 韩国三级在线一区| 国产亚洲欧美色| 成人黄色电影在线| 中文字幕一区二区三区乱码在线| 成人18视频日本| 亚洲精品欧美综合四区| 欧美三级电影在线看| 爽好多水快深点欧美视频| 日韩欧美另类在线| 国产一区二区三区观看| 中文字幕av不卡| 色婷婷久久久亚洲一区二区三区| 一区二区在线看| 在线播放视频一区| 六月丁香婷婷色狠狠久久| 久久久久久99精品| av福利精品导航| 亚洲成av人影院在线观看网| 欧美一卡2卡3卡4卡| 国产成人欧美日韩在线电影| 国产精品福利一区二区三区| 欧美在线观看一二区| 日本成人超碰在线观看| 国产色综合一区| 在线免费不卡视频| 久久国产精品一区二区| 欧美国产欧美综合| 欧美影片第一页| 久久精品国产精品亚洲红杏| 中文字幕久久午夜不卡| 欧美性视频一区二区三区| 成人黄色综合网站| 亚洲国产乱码最新视频 | 国产成人综合精品三级| 亚洲欧美激情在线| 亚洲一级二级三级| 亚洲欧美韩国综合色| 伊人色综合久久天天| 国产精品久久久久久久久果冻传媒| 久久综合资源网| 国产色一区二区| 一区二区三区波多野结衣在线观看| 综合中文字幕亚洲| 亚洲6080在线| 日本v片在线高清不卡在线观看| 日韩中文字幕亚洲一区二区va在线| 亚洲亚洲人成综合网络| 日韩在线a电影| 成人污污视频在线观看| 色播五月激情综合网| 欧美精品日日鲁夜夜添| 欧美日韩精品一区二区| 久久综合一区二区| 亚洲欧美日韩国产另类专区| 亚洲国产人成综合网站| 免费成人性网站| 欧美日本在线一区| 中文字幕一区二区5566日韩| 蜜臀av在线播放一区二区三区| 欧美精品九九99久久| 一区二区欧美国产| 麻豆精品国产传媒mv男同| 国产在线视频一区二区| 精品成人在线观看| 亚洲精品日韩一| 国产成人av电影在线播放|