⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 chat-login.pl

📁 java开发的聊天室
💻 PL
字号:
🔍 
sub login
{
&send_html;
print "<html><head><title>$mytitle$myversion</title>\n";
print <<html;
<style>
#trailsprite1 { position: absolute; z-index: 100; top: 1px; left: 0px; width: 10px; height: 10px; visibility: visible }
#trailsprite2 { position: absolute; z-index: 10; top: 0px; left: 0px; width: 10px; height: 10px; visibility: visible }
#trailsprite3 { position: absolute; z-index: 10; top: 0px; left: 0px; width: 10px; height: 10px; visibility: visible }
#trailsprite4 { position: absolute; z-index: 10; top: 0px; left: 0px; width: 10px; height: 10px; visibility: visible }
#trailsprite5 { position: absolute; z-index: 10; top: 0px; left: 0px; width: 10px; height: 10px; visibility: visible }
#trailsprite6 { position: absolute; z-index: 10; top: 0px; left: 0px; width: 10px; height: 10px; visibility: visible }
</style>
<script language="JavaScript">
<!-- Hide from browsers that don't know JavaScript
var version = 0;
if (navigator.userAgent.indexOf("MSIE 4") != -1)  version = 5;
else if
(navigator.userAgent.indexOf("MSIE 3") != -1)  version = 1;
else if
(navigator.userAgent.indexOf("Mozilla/4") != -1)  version = 4;
else if
(navigator.userAgent.indexOf("Mozilla/4.5") != -1)  version = 7;
else if
(navigator.userAgent.indexOf("Mozilla/3") != -1)  version = 3;
else if
(navigator.userAgent.indexOf("Mozilla/2") != -1)  version = 2;
else if
(navigator.userAgent.indexOf("MSIE 4.5") != -1)  version = 6;
else version = 8;
// -->
</script>
html
print "<script LANGUAGE='JavaScript'>\n";
print "function diffinput()\n";
print " {     \n ";
print "        var input\;\n";
print "        input = document.come.username.value\;\n";
print "        if (( input.length < 1)||( input.length >12))\n";
print "          {  alert('您的称呼不能为空或超过12个字符！')\;\n";
print "             return false\;\n";
print "          }\n";
print "        input = document.come.userpassword.value\;\n";
print "        if ( input.length < 6 )\n";
print "          {  alert('您的密码不能小于6个字符！')\;\n";
print "             return false\;\n";
print "          }\n";
print "        return true\;\n";
print "}";
print "</script>\n";
print "<BASEFONT FACE=\"Arial\">";
print "</head>\n";
print "<body text='white' bgcolor=$typeback link='yellow' alink='red' vlink='lime'>\n";
print <<html;
<SCRIPT LANGUAGE="JavaScript1.1">
if (version > 3)
	document.write('<div id="trailSprite1"><img src="$gifhead/trailgif5.gif" height="10" width="10" border="0" name="trailSprite1img"></div><div id="trailSprite2"><img src="$gifhead/trailgif5.gif" height="10" width="10" border="0" name="trailSprite2img"></div><div id="trailSprite3"><img src="$gifhead/trailgif5.gif" height="10" width="10" border="0" name="trailSprite3img"></div><div id="trailSprite4"><img src="$gifhead/trailgif5.gif" height="10" width="10" border="0" name="trailSprite4img"></div><div id="trailSprite5"><img src="$gifhead/trailgif5.gif" height="10" width="10" border="0" name="trailSprite5img"></div><div id="trailSprite6"><img src="$gifhead/trailgif5.gif" height="10" width="10" border="0" name="trailSprite6img"></div>')
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript"><!--
NS4 = (("Netscape"==navigator.appName) && ("4"<=parseInt(navigator.appVersion)))
window.name = "down"
// -->
</SCRIPT>
<SCRIPT LANGUAGE="Javascript1.1"><!--
var isNS = (navigator.appName == "Netscape");
layerRef = (isNS) ? "document" : "document.all";
styleRef = (isNS) ? "" : ".style";
var queue = new Array();
var NUM_OF_TRAIL_PARTS = 6
for (x=1; x < 7; x++) {	 ///////////////Image Preload
eval("trailSpriteFrame" + x + " = new Image(10,10);");
eval("trailSpriteFrame" + x + ".src = '/chat/trailgif" + x + ".gif';");
}
////////////////////////////////////////////////The trail Object
function trailSpriteObj(anID) {
this.trailSpriteID = "trailSprite" + anID; //as before 
this.imgRef = "trailSprite" + anID + "img"; //reference to the sprites image name
this.currentFrame = 1; //the varible for looking after the frame
this.animateTrailSprite = animateTrailSprite; //declare the objects method cycle
}
function animateTrailSprite() {
if (this.currentFrame <7) {	//if there are animation frames left, the change sprites the current frame
if (isNS) { 			//Detect the browser and perform coresponding image switch
eval("document['"+ this.imgRef + "'].src  =  trailSpriteFrame" + this.currentFrame + ".src");
} else {
eval("document['" + this.imgRef + "'].src  =  trailSpriteFrame" + this.currentFrame + ".src");
}
this.currentFrame ++; 	//and increase the objects current frame 
} else { 					//the current frame has reached its limit so hide the sprite
eval(layerRef + '.' + this.trailSpriteID +  styleRef + '.visibility = "hidden"');
}	
}
/////////////////////////////////////////////////////////////////
function processAnim() {
for(x=0; x < NUM_OF_TRAIL_PARTS; x++)
queue[x].animateTrailSprite();
}
function processMouse(e) {
currentObj = shuffleQueue();
if (isNS) {
eval("document." + currentObj + ".left = e.pageX - 2 ;");
eval("document." + currentObj + ".top = e.pageY + 5;");
} else {
eval("document.all." + currentObj + ".style.pixelLeft = event.clientX + document.body.scrollLeft - 2 ;");
eval("document.all." + currentObj + ".style.pixelTop = event.clientY + document.body.scrollTop + 5 ;");
}
}
function shuffleQueue() {
lastItemPos = queue.length - 1;
lastItem = queue[lastItemPos];
for (i = lastItemPos; i>0; i--) 
queue[i] = queue[i-1];
queue[0] = lastItem;
queue[0].currentFrame = 1;	//reset the objects frame number & make the sprite visible again
eval(layerRef + '.' + queue[0].trailSpriteID +  styleRef + '.visibility = "visible"');	
return 	queue[0].trailSpriteID;
}
function init() {
for(x=0; x<NUM_OF_TRAIL_PARTS; x++) 	//fill array with trail objects
queue[x] = new trailSpriteObj(x+1) ;
if (isNS) { document.captureEvents(Event.MOUSEMOVE); }
document.onmousemove = processMouse;
setInterval("processAnim();",25);
}
if (version > 3)
window.onload = init;
// -->
</script>

html

print "<p align='center'>\n<img src='$gifhead$chatgif'></p>\n";
#print "<p align='center'>\n冰花雪夜</p>\n";
print "<form method='POST' name='come' action='$cgiurl?job=login' target='_self' onsubmit='return diffinput()' align='center'>";
print "  <div align='center'><center><table border='1' $buttonstyle>\n";
print "    <tr>";
print "      <td>呢称∶</td>";
print "      <td><input type='text' name='username' size='20' maxlength=12 $buttonstyle>*</td>\n";
print "    </tr>";
print "    <tr>";
print "      <td>密码∶</td>";
print "      <td><input type='password' name='userpassword' size='20' maxlength=12 $buttonstyle>*<br>\n";
print "      （新用户密码自动保存）</td>";
print "    </tr>";


@addroom     =&readtxtfile($addroomfile);
if ($userlevel>=$level_addroom) {
   print "<tr><td>单间:</td><td><select name='room' $buttonstyle>\n";
   foreach (@addroom) {
   ($temp1,$roomname,$temp2)=split(/"/,$_);
     print "$_".&roomonline("$roomname");
   } 
   print "</select></td></tr>\n";
}

print "    <tr>";
print "      <td>性别∶</td>";
print "      <td><input type='radio' name='usersex' value='boy' checked $buttonstyle>先生 ";
print "      &nbsp\;&nbsp\;<input type='radio'";
print "      name='usersex' value='girl' $buttonstyle>小姐</td>";
print "    </tr>\n";
print "    <tr>";
print "      <td colspan='2' align='center'><input type='submit' value='进入聊天室' $buttonstyle><input";
print "      type='reset' value='清除重写' $buttonstyle></td>";
print "    </tr>\n";
print "  </table>\n";
print "  </center></div>\n";
print "</form>\n";
&common;
print "</body>\n";
print "</html>";
}

sub common
{
print "<center>本聊天室由<a href=http://7758.com>哈尔滨国人网络信息公司</a>主办</center>";
print "<CENTER>";
print "[<a HREF='http://7758.com/bbs' TARGET='_blank'>冰花雪夜ＢＢＳ</a>]";
print "[<a HREF='http://dev.dq.hl.cninfo.net' TARGET='_blank'>大庆聊天室</a>]";
print "[<a HREF='http://www.hrb.hl.cninfo.net/chat' TARGET='_blank'>清闲阁</a>]";
print "[<a HREF='$guestbook' TARGET='_blank'>冰花留言板</a>]";
&menuti;
print "</CENTER>";

print "</p><p align=center>";
require "$chathead/chat-counter.pl";
print "您是本聊天室第<font color=red>".&counter."</font>访问者！";
print <<html;
<script>
   document.write("<a href=http://top.263.net/count/top.dll?Type=sharkpwd&id=4836&ReferID=4836 target=_blank>");
   document.write("<img src=http://top.263.net/count/top.dll?Type=Img5&add=1&id=4836&refer="+escape(top.document.referrer)+" border=0 alt=263统计计数器>");
   document.write("</a>");
</script>

html
print " </p>";
}

sub roomonline {
$onlinefile = $_[0];  
@online=&readtxtfile($onlinefile,2);
@online=sort @online;
close ONLINEFILE;
$allusers=0;
$temp="";  
foreach (@online) {
   ($mark,$chkuserip,$chkusername,$chkuserlevel,$chkusersex,$chktimen,$chksecn,$markend,$last)=split(/↑/,$_);
   if (($mark eq "online") && ($markend eq "end"))
   {
      if ($temp ne "$chkusername↑$chkuserlevel")
	  {
	  	if (!(($chksecn<$secn-$reloadxxx) || ($chksecn>$secn+$reloadxxx)))
		{
	  		$allusers=$allusers+1;
		}
     }
	}
      $temp="$chkusername↑$chkuserlevel";
   }
return($allusers);
}

1;

⌨️ 快捷键说明

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