?? scjyh.cgi
字號:
}
&delid;
exit;
}
######
sub info {
if (($CONFIG{'name'} ne $name)||($CONFIG{'pass'} ne $password)){&error("你沒權管理","賬號或密碼有錯,請注意大小寫");}
&Header;
&html;
print qq~<FORM METHOD=POST name="FORM" ACTION=$CGI{'cjyh'}><INPUT type="hidden" NAME=action VALUE=info><center><table cellspacing=1 bgColor=00080 border=0 width=90%><tr align=center height="25" bgcolor=#FFD7C><td>頁 頭 信 息 [支持HTML]</td></tr><tr align=center><td><TEXTAREA NAME="topinfo" ROWS=10 COLS=70>~;
open(INFOMAIN,"$dirname/$FILE{'poll'}/topinfo.cgi");
@topinfo=<INFOMAIN>;
print @topinfo;
close(INFOMAIN);
print qq~</TEXTAREA></td></tr><tr align=center height="25" bgcolor=#FFD7C><td>頁 尾 信 息 [支持HTML]</td></tr><tr align=center><td><TEXTAREA NAME="endinfo" ROWS=10 COLS=70>~;
open(ENDMAIN,"$dirname/$FILE{'poll'}/endinfo.cgi");
@endinfo=<ENDMAIN>;
print @endinfo;
close(ENDMAIN);
print qq~</TEXTAREA></td></tr></table><p><INPUT TYPE=SUBMIT value="確 定" class=form1> <input type=reset value="重 寫" class=form1></FORM></td></tr></table>~;
exit;
}
##
sub show_info {
if (($CONFIG{'name'} ne $name)||($CONFIG{'pass'} ne $password)){&error("你沒權管理","賬號或密碼有錯,請注意大小寫");}
$topinfo=$FORM{'topinfo'};
$endinfo=$FORM{'endinfo'};
$topinfo=~s/\r//g;
$endinfo=~s/\r//g;
$endinfo=~s/\n//g;
$topinfo=~s/\n//g;
open(INFOMAIN,">$dirname/$FILE{'poll'}/topinfo.cgi");
print INFOMAIN"$topinfo";
close(INFOMAIN);
open(ENDMAIN,">$dirname/$FILE{'poll'}/endinfo.cgi");
print ENDMAIN"$endinfo";
close(ENDMAIN);
&info;
exit;
}
#####
sub html {
print <<EOF;
<body topmargin="1" leftmargin="2">
<script language="JavaScript">
function Showpost(num){
var filename="$CGI{'cjyh'}?action="+num;
window.open(filename,"顯示窗口","scrollbars=no,width=400,height=220");
}
function CheckAll(form){
for (var i=0;i<form.elements.length;i++){
var e = form.elements[i];
e.checked = true;
}
}
function FanAll(form) {
for (var i=0;i<form.elements.length;i++) {
var e = form.elements[i];
if (e.checked == true){e.checked = false;}
else {e.checked = true;}
}
}
function delreg(){ if (confirm("你確定要刪除用戶注冊和調查嗎？")){ return true;} return false;}
function delvote(){ if (confirm("你確定要刪除用戶申請的調查嗎?")){ return true;} return false;}
function delfs(){ if (confirm("你確定要刪除用戶的分數嗎?")){ return true;} return false;}
function bs() { parent.location.href ="$CGI{'reg'}?action=regid";}
function bs_1() { parent.location.href ="$CGI{'cookie'}";}
</script>
<table border="0" width="100%"><tr><td width="14%" valign="top"><table border="0" width="100%" cellpadding="6" bgcolor="#FFEEFF"><FORM METHOD=POST ACTION=$CGI{'cjyh'}><tr><td bgcolor="#FFD7C4"><img src=$CONFIG{'img_url'}/vote2.gif></td></tr><tr><td></td></tr><tr align=center><td>
<INPUT TYPE=SUBMIT NAME="delid" VALUE=會員管理 class=form1><BR><INPUT TYPE=SUBMIT NAME="step" VALUE=功能設置 class=form1><BR><INPUT TYPE=SUBMIT NAME="info" VALUE=頁面信息 class=form1><BR><INPUT TYPE=button NAME="reset" VALUE="申請調查" class=form1 onclick="bs();">
<BR><INPUT TYPE=button NAME="reset" VALUE="退出登陸" class=form1 onclick="bs_1();"><p><a class=1 href=http://pnqk.126.com target=_blank>©聯合小組</a></td></tr></table></form></td><td width="86%" valign="top">
EOF
}
##
####
sub step{
if (($CONFIG{'name'} ne $name)||($CONFIG{'pass'} ne $password)){&error("你沒權管理","賬號或密碼有錯,請注意大小寫");}
$program_use_time=times;
&Header;
&html;
print<<EOF_INSTALL;
<form action="$CGI{'cjyh'}" Method="Post"><input type=hidden name=action value=newstep>
<TABLE border=1 borderColor=#ffffff borderColorDark=#ffffff borderColorLight=#000000 cellSpacing=0 width=95%>
<tr bgcolor=#FFD7C height=22 align=center><td><b>服務器設置信息</b><tr><td><table border=0 width=100% cellPadding="3" bgColor=ECF6F5>
<tr><td>□CGI程序URL<td><input name="CGIUrl" type=text size="40" value="$CONFIG{'cgi_url'}" class=form><td>
<tr><td>□img圖片URL<td><input name="imgurl" type=text size="40" value="$CONFIG{'img_url'}" class=form> image文件夾的URL位置
<tr><td>□sendmail路徑<td><input name="mailprog" type=text size="40" value="$CONFIG{'sendmail'}" class=form> sendmail電郵的絕對路徑
<tr><td>□網站名稱<td><input name="ForumName" type=text size="40" value="$CONFIG{'vote'}" class=form>
<tr><td>□網站域名<td><input name="ForumURL" type=text size="40" value="$CONFIG{'url'}" class=form>
<tr><td>□服務器時差:<td><input name="hour" size="2" value="$CONFIG{'hour'}" class=form>時 <input name="min" size="2" value="$CONFIG{'min'}" class=form>分 [默認為0] 服務器現在時間：<font color=#000080>$year年$mon月$mday日 $chwday[$wday] $hour時$min分$sec秒</font>
<tr><td>□鎖定投票數據:<td><input name="Unix" type=checkbox value="checked" $CONFIG{'unix'}> 防止數據丟失，請先測試能否成功！<A href="javascript:Showpost('Lock')">試上鎖</A> <A href="javascript:Showpost('Unlock')">試解鎖</A></table>
<tr bgcolor=#FFD7C height=22 align=center><td><b>功能設置信息</b><tr><td>
<table border =0 width=100% cellPadding="3" bgColor=ECF6F5><tr><td>□站長密碼:<input name="PASSWORD" type=text size="15" value="$password" class=form> * □站長名字:<input name="NAME" size="15" value="$name" class=form> *
<tr><td>●停止申請調查:<input name="yhreg" type=checkbox value="checked" $CONFIG{'yhreg'}> 停止用戶注冊:<input name="regid" type=checkbox value="checked" $CONFIG{'regid'}>
<tr><td>●單主題最多調查項目：<select name=tpsl class=form><option value=$CONFIG{'tpsl'}>$CONFIG{'tpsl'}<option value=05>05<option value=10>10<option value=15>15<option value=20>20<option value=25>25<option value=30>30<option value=35>35<option value=40>40<option value=45>45<option value=50>50<option value=55>55<option value=60>60<option value=65>65<option value=70>70<option value=75>75<option value=80>80</select>
會員最多建立調查：<select name=tpnum class=form><option value=$CONFIG{'tpnum'}>$CONFIG{'tpnum'}<option value=05>05<option value=10>10<option value=15>15<option value=20>20<option value=25>25<option value=30>30<option value=35>35<option value=40>40<option value=45>45<option value=50>50<option value=55>55<option value=60>60<option value=65>65<option value=70>70<option value=75>75<option value=80>80</select> 貼
<tr><td>●禁止建立多主題調查<input name="total" type=checkbox value="checked" $CONFIG{'total'}>
最多調查主題：<select name=dtsl class=form><option value=$CONFIG{'dtsl'}>$CONFIG{'dtsl'}<option value=05>05<option value=10>10<option value=15>15<option value=20>20<option value=25>25<option value=30>30</select>
最多調查項目：<select name=dtxm class=form><option value=$CONFIG{'dtxm'}>$CONFIG{'dtxm'}<option value=05>05<option value=10>10<option value=15>15<option value=20>20<option value=25>25<option value=30>30<option value=35>35<option value=40>40<option value=45>45<option value=50>50</select>
<tr><td>●參與投票必需注冊:<input name="regcook" type=checkbox value="checked" $CONFIG{'regcook'}> 讀出最后<input name="compose" type=text size=5 value="$CONFIG{'compose'}" class="form">人投票資料
<tr><td>●使用收信郵箱: <input name=email type=text size=25 value=$CONFIG{'email'} class=form> 方便訪客與你聯系,如沒有電子郵箱請勿輸入。
<tr><td height=30><input type=submit Value='下一步' class=form1> 注意：在公眾地方，關閉瀏覽器時，要退出登陸
<tr><td align=center height=30><font color='#808080'>COPYRIGHT 2002-2004 ©<a href=http://hk666b.126.com><font color='#808080'>CK聯合小組</font></a> 站長：BBC QQ：66622488 Email：hk666b\@21cn.com</font></td>
</table></table></form></td></tr></table>
EOF_INSTALL
exit;
}
##
##
sub newstep {
if($FORM{'mailprog'}){unless(-e "$FORM{'mailprog'}"){ &error("sendmail路徑","不存在，如沒有請留空");} }
$FORM{'PASSWORD'} =~s/ //g;
$FORM{'PASSWORD'} =~s///g;
$FORM{'NAME'} =~s/ //g;
$FORM{'NAME'} =~s///g;
if($FORM{'email'}){
$mail = $FORM{'email'};
$mail =~ tr/A-Z/a-z/;
$mail =~ s/\s//g;
if ($mail =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)|(,)/ || $mail !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/) { &error("錯誤",'郵箱地址無效 ');}
$mail=~s/(.+?)@(.+?)/$1\\\@$2/isg;
}
open(CONFIG,">$dirname/setup2002.pl") || &error("無法寫入配置文件","請檢查$dirname是否允許寫入");
print CONFIG <<EOF_CONFIG;
\$CONFIG{'email'} = "$mail";
\$CONFIG{'yhreg'} = "$FORM{'yhreg'}";
\$CONFIG{'regid'} = "$FORM{'regid'}";
\$CONFIG{'regcook'} = "$FORM{'regcook'}";
\$CONFIG{'vote'} = "$FORM{'ForumName'}";
\$CONFIG{'url'} = "$FORM{'ForumURL'}";
\$CONFIG{'hour'} = "$FORM{'hour'}";
\$CONFIG{'min'} = "$FORM{'min'}";
\$CONFIG{'compose'} = "$FORM{'compose'}";
\$CONFIG{'total'} = "$FORM{'total'}";
\$CONFIG{'unix'} = "$FORM{'Unix'}";
\$CONFIG{'name'} = "$FORM{'NAME'}";
\$CONFIG{'pass'} = "$FORM{'PASSWORD'}";
\$CONFIG{'cgi_url'} = "$FORM{'CGIUrl'}";
\$CONFIG{'img_url'} = "$FORM{'imgurl'}";
\$CONFIG{'sendmail'} = "$FORM{'mailprog'}";
\$CONFIG{'dtsl'} = "$FORM{'dtsl'}";
\$CONFIG{'dtxm'} = "$FORM{'dtxm'}";
\$CONFIG{'tpsl'}="$FORM{'tpsl'}";
\$CONFIG{'tpnum'}="$FORM{'tpnum'}";
####結束##############
EOF_CONFIG
close(CONFIG);
&Header;
&html;
print <<EOF;
<SCRIPT>
expireDate=new Date;
expireDate.setYear(expireDate.getYear()+1);
document.cookie="$Cookname="+"$FORM{'NAME'}"+";expires="+expireDate.toGMTString()+";";
document.cookie="$Cookpass="+"$FORM{'PASSWORD'}"+";expires="+expireDate.toGMTString()+";";
</SCRIPT>
設置已完成
</td></tr></table>
EOF
#&Tailer;
exit;
}
##
sub Unlock {
&error("失敗","無法測試,<A href=$CGI{'cjyh'}?action=Lock>請先試上鎖</A>") unless (-f "$dirname/lock.html.lok");
&UnlockFile("$dirname/lock.html");
&error("解鎖失敗","建議不要鎖定數據功能！") if(-f "$dirname/lock.html.lok");
&error("解鎖成功","建議鎖定數據功能！（但會占服務器資源）");
}
#
sub Locks {
$lockerror = &LockFile("$dirname/lock.html");
&error("失敗","無法測試，<A href=$CGI{'cjyh'}?action=Unlock>請先解鎖</A>") if($lockerror);
&error("上鎖成功","<A href=$CGI{'cjyh'}?action=Unlock>請再試解鎖</A>") if(-f "$dirname/lock.html.lok");
}
##
sub mypath {
$dirname=__FILE__;
if ($dirname=~/\\/) { $dirname=~ s/\\/\//g; $Unix=""; }
if ($dirname) {$mypath=substr($dirname,0,rindex($dirname,"/"));}
else {
$mypath=substr($ENV{'PATH_TRANSLATED'},0,rindex($ENV{'PATH_TRANSLATED'},"\\"));
$mypath=~ s/\\/\//g;
$Unix=1;
}
}?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -