22.asp ASP+ACCESS在线教育系统设计(源代码+论文) - ASP源码程序

www.gusucode.com > ASP+ACCESS在线教育系统设计(源代码+论文) > ASP+ACCESS在线教育系统设计(源代码+论文)\王智_在线教育系统\chat\22.asp

    <%@ Language=VBScript %>
<HTML>
<HEAD>

<SCRIPT LANGUAGE=javascript>
<!--
function window_onload()
{
	inputform.text2.focus();
}

function text2_onkeydown() {
	z = event.keyCode;
	if (z==13)
	{
		submitsub();
		return false;
	}
	return true;
}
function hover(name)
{
	document.images(name).src = name + "2.jpg";
}
function hoverout(name)
{
	document.images(name).src = name + ".jpg";
}
function submitsub()
{
	document.inputform.submit();
	document.inputform.sentence.value="";
	document.inputform.text2.focus();
}
function cancelsub()
{
	document.inputform.reset();
	document.inputform.text2.focus();
}
//-->
</SCRIPT>
</HEAD>
<BODY bgColor=#faebd7 language=javascript onload="return window_onload();">


<form name=inputform action="11.asp#tail" method=post target=chatmain>
<table>
<tr>
	<td>
	登录用户名：
	</td>
	<td>
	<INPUT type="text" id=username name="user" value="<%
														if session("user")="" then
															Response.Write "not registered user"
														else
															Response.Write session("user")
														end if
														%>" readonly>
	</td>
</tr>

<tr>
	<td>
	请发言：
	</td>
	<td>
	<INPUT id=text2 name=sentence size=60 LANGUAGE=javascript onkeydown="return text2_onkeydown()">
	</td>
</tr>
<tr>
	<td colspan=2>
	 <img src=ok.jpg width=30 name="ok" LANGUAGE=javascript onmouseover="return hover('ok');" onmouseout="return hoverout('ok');" onclick="return submitsub();">
	<img src=cancel.jpg width=30 name="cancel" LANGUAGE=javascript onmouseover="return hover('cancel');" onmouseout="return hoverout('cancel');" onclick="return cancelsub();">
	</td>
		
</tr>
</table>
</form>

</BODY>
</HTML>