首頁 > 開發者 > ASP

asp簡單聊天室程式 一

來源：互聯網
上載者：User
創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！

很多以前的聊天室程式哦,只用到兩個檔案哦.下我看第一個html檔案吧.

<html><head><title>asp簡單聊天室程式</title>
<style>*{font:9pt 宋體;line-height:1.7}</style>
<script>
var XmlDom = document.createElement("xml");
XmlDom.onreadystatechange=function()
{
 if(XmlDom.readyState == "interactive")
 {
  var ChatInfo = XmlDom.selectNodes("//聊天");
  for(var C=0;C<ChatInfo.length;C++)
  {
   var From = ChatInfo[C].selectSingleNode("發送人");
   var To = ChatInfo[C].selectSingleNode("接收人");
   var Say = ChatInfo[C].selectSingleNode("說話");
   var Div = document.createElement("div");
   Div.appendChild(Text(From.text, From.getAttribute("顏色"), true));
   Div.appendChild(Text("對"));
   Div.appendChild(Text(To.text, To.getAttribute("顏色"), true));
   Div.appendChild(Text("說："));
   Div.appendChild(Text(Say.text, Say.getAttribute("顏色")));
   var ShiJian = Text(" [" + (new Date(parseInt(ChatInfo[C].getAttribute("時間"),10))).toLocaleString() + "]", "#abcdef");
   ShiJian.style.fontSize = "3mm";
   Div.appendChild(ShiJian);
   document.body.firstChild.appendChild(Div);
   Div.scrollIntoView();
  }
  setTimeout("Show()", 2000);
 }
}
function Text(text, color, clicked)
{
 var txtNode = document.createTextNode(text);
 if(color)
 {
  var fontNode = document.createElement("font");
  fontNode.color=color;
  if(clicked)
  {
   fontNode.style.textDecoration = "underline";
   fontNode.style.cursor = "pointer";
   fontNode.onclick = function()
   {
    document.getElementById("ToName").value = text;
    document.getElementById("ChatInput").focus();
   }
  }
  fontNode.appendChild(txtNode);
 }
 return color?fontNode:txtNode
}
function Show()
{
 var SendText;
 var MyInput = document.getElementById("ChatInput");
 if(MyInput.disabled)
 {
  var From = document.getElementById("MyName").value;
  if(!From) From = "匿名";
  var To = document.getElementById("ToName").value;
  if(!To) To = "大家";
  var FromColor = document.getElementById("MyColor").value;
  var ToColor = document.getElementById("SendColor").value;
  var ChatColor = document.getElementById("SayColor").value;
  SendText = "?" + escape([From,FromColor,To,ToColor,document.getElementById("ChatInput").value,ChatColor].join("b"));
  MyInput.disabled = 0;
  MyInput.value = "";
  MyInput.focus();
 }
 XmlDom.load("Post.asp" + (SendText?SendText:""));
}
function SetColor(colorId)
{
 var clrSel = document.getElementById(colorId);
 clrSel.options.selectedIndex = parseInt(Math.random() * clrSel.options.length);
}
onload = function()
{
 SetColor("MyColor");
 SetColor("SayColor");
 SetColor("SendColor");
 if(!name) name = prompt("請輸入您的名字：","匿名");
 document.getElementById("MyName").value = name?name:"匿名";
 document.getElementById("ChatInput").focus();
 Show();
}
</script>
</head><body><div style="overflow:auto"></div>
<input id="MyName" size="10" value="我"><select id="MyColor">
<option value="#000000" style="background-color:black;color:white">#000000</option>
<option value="#ff0000" style="background-color:#ff0000">#ff0000</option>
<option value="#008000" style="background-color:#008000">#008000</option>
<option value="#0000ff" style="background-color:#0000ff">#0000ff</option>
<option value="#800080" style="background-color:#800080">#800080</option>
<option value="#008080" style="background-color:#008080">#008080</option>
<option value="#808000" style="background-color:#808000">#808000</option>
</select> 對 <input id="ToName" size="10" value="大家"><select id="SendColor">
<option value="#000000" style="background-color:black;color:white">#000000</option>
<option value="#ff0000" style="background-color:#ff0000">#ff0000</option>
<option value="#008000" style="background-color:#008000">#008000</option>
<option value="#0000ff" style="background-color:#0000ff">#0000ff</option>
<option value="#800080" style="background-color:#800080">#800080</option>
<option value="#008080" style="background-color:#008080">#008080</option>
<option value="#808000" style="background-color:#808000">#808000</option>
</select> 說：<select id="SayColor">
<option value="#000000" style="background-color:black;color:white">#000000</option>
<option value="#ff0000" style="background-color:#ff0000">#ff0000</option>
<option value="#008000" style="background-color:#008000">#008000</option>
<option value="#0000ff" style="background-color:#0000ff">#0000ff</option>
<option value="#800080" style="background-color:#800080">#800080</option>
<option value="#008080" style="background-color:#008080">#008080</option>
<option value="#808000" style="background-color:#808000">#808000</option>
</select>
<input style="width:100%" onkeypress="if(value&&event.keyCode==13)disabled=1" id="ChatInput"></body></html>

本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

聯繫我們

該頁面正文內容均來源於網絡整理，並不代表阿里雲官方的觀點，該頁面所提到的產品和服務也與阿里云無關，如果該頁面內容對您造成了困擾，歡迎寫郵件給我們，收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容，歡迎發送郵件至： info-contact@alibabacloud.com 進行舉報並提供相關證據，工作人員會在 5 個工作天內聯絡您，一經查實，本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

  • Sales Support

    1 on 1 presale consultation

    Chat Contact Sales

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

    Open a Ticket

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

    Learn More