采用行写方式的聊天程序(之三)

2016-01-29 14:17 2 1 收藏

采用行写方式的聊天程序(之三),采用行写方式的聊天程序(之三)

【 tulaoshi.com - PHP 】

  ltsayno.php
该程序为系统的核心,处理所关联的所有函数信息

<?session_start();?
<html
<head
<title发言区</title
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"
<style
body{background:59ACFF;color:black}
body{font-size:9pt;line-height:160%}
table{font-size:10.5pt}
input{font-size:9pt}
A{color:black;text-decoration:none}
A:Hover{text-decoration:underline}
</style
<script Language=JavaScript

//大家的信息
function dj(){
  document.forms[0].towho.options[0].value="大家";
  document.forms[0].towho.options[0].text="大家";
  document.forms[0].saystemp.focus();
}

//动作,把该动作的信息添加到发言板中
function rc(list){
  if (list!="0"){
     document.forms[0].saystemp.value=list;
     document.forms[0].saystemp.focus();
  }
}


function backsays() {
  document.forms[0].saystemp.value=document.forms[0].oldsays.value;
  document.forms[0].saystemp.focus();
  return true;
}


function checksays(){
  if(document.fyq.saystemp.value==""){
    alert("请输入发言。");
    document.fyq.saystemp.focus();
    return false;
   }
  if(document.fyq.saystemp.value==document.fyq.oldsays.value){
     alert("内容不可重复。");
     document.fyq.saystemp.focus();
     document.fyq.saystemp.select();
     return false;
    }
    document.fyq.oldsays.value=document.fyq.saystemp.value;
    document.fyq.saystemp.value="";
    document.fyq.saystemp.focus();
    document.fyq.send.disabled=1;
    setTimeout("document.fyq.send.disabled=0",30);
    return true;
}

function cls(){
  parent.f1.location.href="about:blank";
  setTimeout("write(1)",500);
}

function write(cls){
  var ffsize;   
  var lheight;  
  if (cls==1){
     ffsize=parent.f2.document.fyq.fontsize.value;
     lheight=parent.f2.document.fyq.lineheight.value;
   }else{
     ffsize='10.5';
     lheight='145';
   }
  parent.f1.document.open();
  parent.f1.document.writeln("<html<head<title对话区</title");
  parent.f1.document.writeln("<meta http-equiv=Content-Type content="text/html; charset=gb2312"");
  parent.f1.document.writeln("<style type=text/css.t{color:FF00FF;font-size:9pt;}");
  parent.f1.document.writeln("body{font-family:"宋体";font-size:"+ffsize+"pt;line-height:" + lheight + "%;}A{text-decoration:none}A:Hover{text-decoration:underline}A:visited{color:blue}</style</head");
  parent.f1.document.writeln("<Script Language="JavaScript1.1"");
  parent.f1.document.writeln("var autoScrollOn=1;");
  parent.f1.document.writeln("var scrollOnFunction;var scrollOffFunction;");
  parent.f1.document.writeln("function scrollit()");
  parent.f1.document.writeln("{if(!parent.f2.document.fyq.as.checked)");
parent.f1.d

来源:https://www.tulaoshi.com/n/20160129/1492958.html

延伸阅读
标签: Delphi
  象C语言一样,用Delphi也能写出只有几十K、十几K、甚至只有几K的小程序,本文将以一个能将Win95桌面藏起来的仅有38K的小程序为例教会读者这一技巧,同时本文还将涉及Win95 TrayIcon的显示。 本程序能写得很小的诀窍是:根本没有用任何的 Form 。也就是说,源程序只有一个 Desktop.dpr 文件,程序完全用标准的 WINAPI 写成,由于用...
我写了一个汉字行编辑程序,请各位多多指教,找出本程序的不足,以提高本程序的功能,! 程序如下:  #include "stdio.h" #include "stdlib.h" #include "string.h" #include "conio.h" #define len 4 #define LINESIZE 80   /*每行长度为80个字符*/ strUCt TEXT {  struct TEXT...
  Delphi中MIDAS应用程序COM服务器实例化模型种类   (1)Internal Instance      创建一个In-Process的COM程序,即DLL服务器.   (2)Single Instance      如果每个客户程序都运行服务器程序的一个实例,则使用该模型.就是每个连上线的前台程序,在服务器上都会有一个对...
怎样纠正和预防准妈妈胎位不正? 专家介绍,正常胎位是指分娩时胎儿头部最先伸入骨盆,否则就是异常胎位。而胎位异常的确定一般在妊振30周后。导致准妈妈胎位不正的原因?怎样纠正和预防胎位异常? 导致准妈妈胎位不正的原因: 1.骨盆狭窄可能导致胎位异常 骨盆狭窄因空间偏小不利于胎头进入骨盆,可能出现胎位异常。是否能顺产还要评...
标签: PHP
PHP 世界中缓冲是一个热门的话题,因为 PHP 产生的动态页面,每次用户请求都需要重新计算,不论请求的结果是否一样,同时,PHP 每次都会编译一次脚本。这样的超负荷运转对一个流量很高的网站来说肯定难以忍受。幸运的是, Web 的结果可以缓冲,而不需要重新运行和编译脚本,商品化的产品像 ZendCache 或者开源的 Alternate PHP Ca...

经验教程

356

收藏

98
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部