📄 build.cgi
字号:
var NowHour = Today.getHours();
var NowMinute = Today.getMinutes();
var NowSecond = Today.getSeconds();
var curtime = (NowHour*3600)+(NowMinute*60)+NowSecond;
if((curtime - document.talk.curtime.value) > $sayspace)
{ document.talk.curtime.value = curtime;}
else{alert('太快了，有话慢慢说吧');return false;}
eof
}
print <<eof;
if (document.forms[0].saystemp.value.length > $saylength ) {
alert("发言太长，请重新输入");
return false; }
if ((document.talk.says.value==document.talk.saystemp.value) && (document.talk.towho.value==document.talk.towho1.value)) {
alert('请不要对' + document.talk.towho.value + '总说这一句呀！');
return false; }
document.talk.towho1.value = document.talk.towho.value;
document.talk.says.value = document.talk.saystemp.value;
addOne(theForm.saystemp.value);
if (tt==0) {document.forms.talk.target ='D0'; tt=1;}
else {document.forms.talk.target ='no'; tt=0;}
eof
print " if (document.forms[0].autocls.checked==true) {\n" if ($userlevel>=$level_autocls);
print " document.forms[0].saystemp.value=''; \n";
print " }\n" if ($userlevel>=$level_autocls);
print "document.talk.saystemp.focus();self.status='发言已送出';return(true); }\n";
print "function checkempty(txtval){\n";
print " if (txtval.length==0)\n";
print " return false;\n";
print " var i=0;\n";
print " while (i<txtval.length) {\n";
print " if (txtval.substring(i,i+1) != '')\n";
print " return true;\n";
print " i=i+1;\n";
print " }\n";
print " return false;\n";
print "}\n";
if ($userlevel>=$level_filter) {
print <<_dnchat;
function filter(list)
{
var listText='';
if((list.selectedIndex != -1)&&(list.selectedIndex != 0)&&(list.selectedIndex != 1)) {
listText=list.options[list.selectedIndex].value;
document.filterf.job.value=listText;
document.filterf.filtername.value =document.talk.towho.value;
document.filterf.submit(); }
}
_dnchat
}
if ($userlevel>=$level_div) { #分屏功能
print <<_dnchat;
function divscreen() {
if(document.forms.talk.div.checked) {
parent.messageframe.rows='50%,*';
document.forms.divf.sflag.value = 1 ;
}
else {
parent.messageframe.rows='100%,*';
document.forms.divf.sflag.value = 0 ;
}
document.forms.divf.submit();
}
_dnchat
}
if ($userlevel>=$level_emote) {
print <<_dnchat;
function semote() {
if(document.forms.talk.cemote.checked) {
document.forms.femote.cemote.value = "yes";
document.forms.femote.submit();}
}
_dnchat
}
print <<_dnchat;
function start(){bTimer=true;nTimer=20;dstatus();}
function stop(){bTimer=false;}
function deen_onkeydown() { if(bTimer) {stop();} }
function dstatus()
{ if(bTimer&&nTimer<99)
{if(document.talk.saystemp.value != '')
{document.talk.saystemp.value += ' '; document.talk.saystemp.select(); }
else {document.talk.saystemp.value = "正在发送...";}
setTimeout("dstatus()",nTimer+=2); }
else{nTimer=0;document.talk.saystemp.value='';}
}
function logout() { document.forms.logoutf.submit(); }
_dnchat
print "</script>\n";
print "</head><body bgcolor=$typeback text=$typeword>\n";
print "<div align=center>\n";
print "<TABLE border=0 cellPadding=0 cellSpacing=0 width='100%'><tr><td align='right' width='100%'>\n";
print "<form name=talk method=POST action=\"$cgiurl$chat?job=says\" target='D0' onsubmit='return(checksays(this));'>\n";
print "<input type=hidden name='username' value='$username'>\n";
print "<input type=hidden name='usersex' value='$usersex'>\n";
print "<input type=hidden name='userpassword' value='$userpassword'>\n";
print "<input type=hidden name='says' value=''>\n";
print "<input type=hidden name='curtime' value=0>\n";
print "<input type=hidden name='towho1' value=''>\n"; #记录发言的对象与内容
print "<a href=\"$cgiurl$chat?job=dnreload$userinfo\" target = \"D0\">刷新</a>\n" if ($userlevel>0) ;
if ($userlevel>=$level_div) { print "<input type=checkbox name='div' onclick='divscreen();'>分屏\n"; }
print "<input type='checkbox' name='as' checked=true onclick='parent.message.scrollit();bs();'>滚屏\n" if ($userlevel>0) ;
if ($userlevel>=$level_autocls) { print "<input type=checkbox name='autocls' value='yes' checked onClick='bs();'>清除\n"; }
if ($userlevel>=$level_private) { print "<input type=checkbox name='towhoway' value='private' onClick='bs();'>私聊\n"; }
print "<input type=text name='saystemp' size=49 maxlength=200>\n";
print "<INPUT language=javascript name=cmdPrev onclick='goPrev(document.talk);bs();' style=\"BACKGROUND-COLOR: $typeback; BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: $typeword; FONT-FAMILY: 宋体, Arial; FONT-SIZE: 9pt\" type=button value=\"<<\"> \n" if ($userlevel>0);
print " <INPUT language=javascript onclick=bs(); style=\"BACKGROUND-COLOR: $typeback; BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: $typeword; FONT-FAMILY: 宋体, Arial; FONT-SIZE: 9pt\" type=submit value=\"送 出\">\n";
print "</td></tr><tr><td align='right' width='100%'>\n";
print "<INPUT language=javascript name=cmdPrev onclick='goPrev(document.talk);bs();' style=\"BACKGROUND-COLOR: $typeback; BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: $typeword; FONT-FAMILY: 宋体, Arial; FONT-SIZE: 9pt\" type=button value=\"<<\"> \n" if ($userlevel==0);
print "<INPUT language=javascript name=cmdNext onclick='goNext(document.talk);bs();' style=\"BACKGROUND-COLOR: $typeback; BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: $typeword; FONT-FAMILY: 宋体, Arial; FONT-SIZE: 9pt\" type=button value=\">>\"> " if ($userlevel==0);
print " <a href=\"$cgiurl$chat?job=dnreload$userinfo\" target = \"D0\">刷新</a> \n" if ($userlevel==0);
print "<input type='checkbox' name='as' checked=true onClick='parent.message.scrollit();bs();'>滚屏 \n" if ($userlevel==0);
if ($userlevel>=$level_addsign) {
print "图案<select name='addsign' onchange='bs();'>\n";
if ($addsign eq "") {
print "<option value='' selected>不贴图\n";}
else {
print "<option value=''>不贴图\n";}
foreach (@addsign) {
$_ =~ s/>/ selected>/g if (($_ =~ /"$addsign"/) || ($_ =~ /'$addsign'/));
print "$_";
}
print "</select>\n";
}
if ($userlevel>=$level_addwordcolor) {
srand;
#$ram=int(rand($#addwordcolor+1));
$ram = $#addwordcolor;
local($temp)=0;
print " 颜色<select name='addwordcolor'\n";
print "onChange='\n";
print "bs();'\n" ;
print ">\n";
print "<option style=\"color: #000000\" value=\"$onlineback\">默认</option>\n";
foreach (@addwordcolor) {
$_ =~ s/>/ selected>/g if (($_ =~ /"$addwordcolor"/) || ($_ =~ /'$addwordcolor'/) || (($addwordcolor eq "") && ($temp eq $ram)));
print "$_";
$temp++;
}
print "</select>\n";
}
if ($userlevel>=$level_emote) {
$emote =&get_var('cemote' ,'\n|‖');
if ($emote eq "yes") {
print "趣语<select name='emote' onchange='receiver(this);bs();'>\n";
print "<option value='' selected>不选\n";
foreach (@addemote) {
print "$_"; }
print "</select>\n";
}
else { print "<input type=checkbox name='cemote' value='yes' onClick='semote();'>趣 语 \n"; }
}
if ($userlevel>=$level_addsays) {
print "表情<select name='addsays' onchange='bs();'>\n";
if ($addsays eq "") {
print "<option value='' selected>无表情\n";}
else {
print "<option value=''>无表情\n";}
foreach (@addsays) {
$_ =~ s/>/ selected>/g if (($_ =~ /"$addsays"/) || ($_ =~ /'$addsays'/));
print "$_";
}
print "</select>\n";
}
print "对象<select name=\"towho\" title=\"聊天的对象，可以点击上面聊天区或者右边列表中的名字来方便的指定。\"><OPTION VALUE=\"大家\" selected>大 家</select>\n";
print " <a href='$cgiurl$manage?job=addhtml' target='_blank'>注册</a> \n" if ($userlevel==0);
if ($userlevel >=$level_filter) {
print <<_dnchat;
<select name=filterfunc onchange='javascript:filter(this);bs();' >
<option value='0' selected>功能
<option value='0'>---
<option value='filter'>过滤
<option value='unfilter'>解除
<option value='dispfilter'>显示
</select>
_dnchat
}
print " <INPUT language=javascript name=cmdNext onclick='goNext(document.talk);bs();' style=\"BACKGROUND-COLOR: $typeback; BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: $typeword; FONT-FAMILY: 宋体, Arial; FONT-SIZE: 9pt\" type=button value=\">>\"> " if ($userlevel>0);
print " <INPUT language=javascript onclick=\"javascript:logout();\" style=\"BACKGROUND-COLOR: $typeback; BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: $typeword; FONT-FAMILY: 宋体, Arial; FONT-SIZE: 9pt\" type=button value=\"退 出\">\n";
print "</form>\n";
print "</td></tr></table>\n";
print <<_dnchat;
<form method=POST name=femote action='$cgiurl$login?$userinfo' target='type'>
<input type=hidden name='job' value='settype'>
<input type=hidden name='cemote' value=''>
</form>
<form method=POST name=logoutf action='$cgiurl$login?$userinfo&changelogouturl=$logouturl' target='_top'>
<input type=hidden name='job' value='logout'>
</form>
<form method=POST name=onlinef action='$cgiurl$chat?job=online$userinfo' target='D0'></form>
_dnchat
if ($userlevel>=$level_div) { #分屏功能
print "<form method=POST name=divf action='$cgiurl$login?job=div&$userinfo' target='D0'><input type=hidden name='sflag' value=''></form>\n";
}
if ($userlevel>=$level_filter) {
print <<_dnchat;
<form method=POST name=filterf action='$cgiurl$manage?$userinfo' target='D0'>
<input type=hidden name='job' value=''>
<input type=hidden name='filtername' value=''>
</form>
_dnchat
}
print "</div></body></html>\n";
}
######################
#构建功能窗口
sub return_func {
print "<html><head><title>online</title>\n";
print <<_dnchat;
<script language="JavaScript">
<!--
function receiver(list)
{ var targeturl = '';
tarindex = list.selectedIndex;
if ((tarindex != -1)&&(tarindex != 0)) {
targeturl = list.options[list.selectedIndex].value;
open(targeturl,'_blank',"top=60,left=80,width=600,height=420,toolbar=no,location=no,status=yes,menubar=no,scrollbars=yes,resizable=yes");
}
}
function rclick() { if (event.button==2) { alert("Hi,您好! http://deen.126.com"); } }
document.onmousedown=rclick;
function bs() {
_dnchat
print "parent.type.document.forms[0].saystemp.style.color = parent.type.document.forms[0].addwordcolor.value;\n" if ($userlevel>=$level_addwordcolor);
print "parent.type.document.forms[0].saystemp.focus(); }\n";
print "//--></script>\n";
print "</head>\n";
print "<body bgcolor=$funcback text=$funcword ><br><p align=center>\n";
print "<select name='func1' onchange='javascript:receiver(this);' size='1' style='color=$funcword'>\n";
print "<option value='' selected>功 能 框</option>\n";
print "<option value='$cgiurl$login?$userinfo&job=savepoint'>保存分数</option>\n" if (($userlevel >= 1 ) &&( $level_allow == 1)&&($username ne $superuser));
print "<option value='$cgiurl$manage?$userinfo&job=searchhtml' >查找聊友</option>\n" if ($userlevel >= $level_find);
print "<option value='$cgiurl$manage?$userinfo&job=viewgbook' >约会留言</option>\n" if ($userlevel >= $level_guest);
print "<option value='$cgiurl$manage?$userinfo&job=logonin' >修改资料</option>\n" if (($userlevel >= $level_change)&&($username ne $superuser));
print "<option value='$cgiurl$manage?$userinfo&job=active' >动作帮助</option>\n" if ($userlevel >= $level_active);
print "<option value='$cgiurl$manage?job=usertop'>排 行 榜</option>\n";
print "<option value='$cgiurl$manage?$userinfo&job=cls' >清空信息</option>\n" if ($userlevel >= $level_cls);
print "<option value='$cgiurl$manage?$userinfo&job=sadmin_html'>网 管</option>\n" if ($smalladmin == 1 );
print "<option value='$cgiurl$manage?$userinfo&job=setkick' >踢人功能</option>\n" if (($userlevel >= $level_killer)||(($username eq $downer)&&($droombl == 1)));
print "<option value='$cgiurl$manage?$userinfo&job=setgen_html'>精灵管理</option>\n" if ($userlevel >= $level_gen);
print "<option value='$cgiurl$manage?$userinfo&job=super'>超级管理</option>\n" if ($userlevel >= $level_super);
print "</select><br>\n";
print "</p></body></html>\n";
}
######################
#间隔多少秒就刷新一次no页面
sub setfresh {
print <<eof;
<html><head><title>fresh</title>
<script language="JavaScript">
<!--
var dtimerID=null;
var dtimerRunning=false;
var fortime = $reloadx * 1000;
var freshurl = "CONTENT='1;URL=$cgiurl$chat?job=look$userinfo'";
function stopd() { if(dtimerRunning)clearTimeout(dtimerID);dtimerRunning=false; }
function startd() { stopd(); writed(); }
function writed() {
parent.D1.document.open();
parent.D1.document.writeln("<html><head>");
parent.D1.document.writeln("<meta http-equiv=refresh " + freshurl + " >");
parent.D1.document.writeln("</head><body></body></html>");
parent.D1.document.close();
dtimerID=setTimeout("startd()", fortime);
dtimerRunning=true;
}
//-->
</script>
</head><body><script>writed();</script></body></html>
eof
}⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -