online.cgi

来自「这个是分屏聊天室源码。需要分屏的聊天室请参考」· CGI 代码 · 共 18 行

CGI
18 行
字号 
sub return_online {
$userlist="<script>parent.list=new Array(";
$tmpcount=0; $i = 0;
@online = &getlinedata;
@online      =sort @online;
foreach (@online) {
	 &readlinedata($_);
	 if (($mark eq "online")&&($chkusername ne ""))  {
		if (($chkusername eq $superuser)&&($superhidden)) {	next; }
		if ($i == 1) {$userlist .=",'$chkusername','$chkusersex','$chkuserlevel','$chkstat'";}
		else { $userlist .="'$chkusername','$chkusersex','$chkuserlevel','$chkstat'"; $i=1;}
		$tmpcount++; }
}
$userlist .=");parent.count=$tmpcount;parent.write1();</script>";
print "<html><head></head><body>\n";
print qq~$userlist\n~;
print "</body></html>\n";
}

online.cgi - 源码说明

本页面展示了「这个是分屏聊天室源码。需要分屏的聊天室请参考」中的 online.cgi 源码文件，采用 CGI 编程语言编写，共 18 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与聊天室相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?