📄 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 + -