源码文件
sub write_online { @online=&readtxtfile($onlinefile,2); @online=sort @online; local($temp1)=""; local($temp2)= 0; &lockfile("…
LAN+chat 源代码
汇集 LAN+chat 相关的电路原理图、PCB工程文件、单片机/FPGA源代码、数据手册与应用设计方案。
收录资源 500 份
全站深度检索
共匹配 500 份工程资源
· 第 8 / 50 页
源码文件
sub adduserinfo { $tempinfo=$_[0]; @allday=(31,28,31,30,31,30,31,31,30,31,30,31); $name=$username; open (CHECKPROFILE, …
源码文件
sub return_adver { @adver=&readtxtfile($adverfile,1); srand; $ram=int(rand($#adver+1)); ($mark,$chkadverfile,$markend,$last)=s…
源码文件
sub chkdnduser { &lockfile("$filehead$dndfile"); open(DNDFILE,"$filehead$dndfile"); @lines = ; close(DNDFILE); &unlock…
源码文件
$mytitle="冰花雪夜"; $myversion="Ｖ5.0"; $logouturl = "/"; $guestbook="/chat/wwwboard.html"; $cssurl="/mystyles.css"; $logincishu=…
源码文件
sub displaycount { opendir (MEMBERDIR, "$memberspath"); @members = readdir(MEMBERDIR); closedir (MEMBERDIR); $found = 0; …
源码文件
sub checkip { #$userip=$ENV{'REMOTE_ADDR'}; open(PASSWD,"$filehead$kickipfile"); @lines = ; close(PASSWD); @myip…
源码文件
sub dodisturb { $userid=$username; $dndusernew=&get_var("dnduser"); print "设置$userid的请勿打扰名单\n"; print "\n"; open(DNDFILE,"…
源码文件
sub return_type { @online =&readtxtfile($onlinefile,2); @online =sort @online; print ""; print ""; print "type\n"…
源码文件