📄 chat-allselect.pl
字号:
sub allselect {
@addwordcolor=&readtxtfile($addwordcolorfile) if ($userlevel>=$level_addwordcolor);
@addkuai =&readtxtfile($addkuaifile) if ($userlevel>=$level_addkuai);
@addsays =&readtxtfile($addsaysfile) if ($userlevel>=$level_addsays);
@addsign =&readtxtfile($addsignfile) if ($userlevel>=$level_addsign);
print "<html><head>";
print "<LINK REL=stylesheet HREF='$cssurl' TYPE='text/css'>";
print "<title>type</title>\n";
print "<script Language='JavaScript'>\n";
print "function quicksay(menu)\n";
print "{ var menucontent=''\;\n";
print " if((menu.selectedIndex != -1)&&(menu.selectedIndex != 0))\n";
print " { menucontent = menu.options[menu.selectedIndex].value\; }\n";
print " parent.type.document.forms[0].saystemp.value=menucontent\;\n";
print "}\n";
print "function wordcolor(menu) {\n";
print " var menucontent=''\;\n";
print " if((menu.selectedIndex != -1)&&(menu.selectedIndex != 0))\n";
print " { menucontent = menu.options[menu.selectedIndex].value\; }\n";
print " document.forms[0].addwordcolor1.value=menucontent\;\n";
print "}\n";
print "function says(menu) {\n";
print " var menucontent=''\;\n";
print " if((menu.selectedIndex != -1)&&(menu.selectedIndex != 0))\n";
print " { menucontent = menu.options[menu.selectedIndex].value\; }\n";
print " document.forms[0].addsays1.value=menucontent\;\n";
print "}\n";
print "function sign(menu) {\n";
print "var menucontent=''\;\n";
print " if((menu.selectedIndex != -1)&&(menu.selectedIndex != 0))\n";
print " { menucontent = menu.options[menu.selectedIndex].value\; }\n";
print " document.forms[0].addsign1.value=menucontent\;\n";
print "}\n";
print "</script>\n";
print "</head><body bgcolor=$typeback text=$typeword>\n";
print "<div align=right>\n";
print "<form method=POST name=allselect >\n";
print "<input type=hidden name=addwordcolor1 value=''>\n";
print "<input type=hidden name=addsays1 value=''>\n";
print "<input type=hidden name=addsign1 value=''>\n";
#显示快人快语
if ($userlevel>=$level_addkuai) {
print "<select name='quicksays' onchange='quicksay(this);' $buttonstyle >\n";
print "<option value=''>选择快语\n";
foreach (@addkuai) {
$_ =~ s/>/ selected>/g if (($_ =~ /"$addkuai"/) || ($_ =~ /'$addkuai'/));
print "$_";
}
print "</select>\n";
}
#显示颜色
if ($userlevel>=$level_addwordcolor) {
srand;
$ram=int(rand($#addwordcolor+1));
local($temp)=0;
print "<br><select name='addwordcolor' onchange='wordcolor(this);' $buttonstyle >\n";
print "<option value=''>选择颜色\n";
foreach (@addwordcolor) {
$_ =~ s/>/ selected>/g if (($_ =~ /"$addwordcolor"/) || ($_ =~ /'$addwordcolor'/) || (($addwordcolor eq "") && ($temp eq $ram)));
print "$_";
$temp++;
}
print "</select>\n";
}
if ($userlevel>=$level_addsays) {
print "<br><select name='addsays' onchange='says(this);' $buttonstyle >\n";
print "<option value=''>选择表情\n";
foreach (@addsays) {
print "$_";
}
print "</select>\n";
}
if ($userlevel>=$level_addsign) {
print "<br><select name='addsign' onchange='sign(this);' $buttonstyle >\n";
print "<option value=''>选择图案\n";
foreach (@addsign) {
print "$_";
}
print "</select>\n";
}
print "</form></div></body></html>";
}
1;⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -