chat.asp

笨狼简易无刷聊天原型

<%
dim userName
dim userID
dim room
room= "room1"
userName=request("userName")
userID = request("userID")
 
%> 
<style>
 
body
{
    SCROLLBAR-FACE-COLOR: #ffffff;
    SCROLLBAR-HIGHLIGHT-COLOR: #c1c1bb;
    SCROLLBAR-SHADOW-COLOR: #c1c1bb;
    SCROLLBAR-3DLIGHT-COLOR: #ebebe4;
    SCROLLBAR-ARROW-COLOR: #cacab7;
    SCROLLBAR-TRACK-COLOR: #f4f4f0;
    SCROLLBAR-DARKSHADOW-COLOR: #ebebe4;
}
body,td
{
	font-size:9pt;

}

</style>
<table width="800"  border=1 align="center" cellpadding="5" cellspacing="5" bordercolor="#CCCCCC" >
  	<tr>
		<td width="650" height="500" valign="top"  >
				<div id="reciver" style="overflow-y:auto;height:500"></div>	  </td> 
	    <td width="150" rowspan="2" valign="top"  nowrap >
		<span id="reciver" style="overflow-y:auto;height:550;width:150;vertical-align:top ;"   >
		<table	width="120"  
				border=1 
				align="center" 
				cellpadding="3" 
				cellspacing="0" 
				bordercolor="#CCCCCC" 
				style="border-collapse:collapse;cursor:hand;"
				id="peopleList" >
          <tr>
            <td align="center" > 人 员 名 单 </td>
          </tr>			
        </table>
	  </span>	  </td>
  	</tr>
	<tr>
		<td valign="top" >
			<table>
				<tr>
					<td id="showSel" width="50"> 对所有人 <span id="checkit"></span></td>
					<td>
					
			<INPUT	type="text" id="Sender" 
					style="width: 300;behavior:url('htc/chat.htc');" 
					listObj="peopleList"
					reciveObj="reciver"
					sendObj="Sender"
					btnObj="OK"
					showSelectObj="showSel"
					fromID="<%=userID%>"
					fromName="<%=userName%>"
					toID=""
					toName=""
					room="<%=room%>"
					timeOut="30"
					maxLine="30"					
					
					maxPeople="50"  />
	  <INPUT type="button" 	value="说"  	id="OK" />	
					</td>
					</tr>
				</table>
					
					
					</td> 
    </tr>
</table>