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

    <%@ Language=VBScript %>
<HTML>
<HEAD>
<title></title>
</HEAD>
<BODY  bgColor=#faebd7>

<script language=vbscript>
sub hover(name)
	document.images(name).src=name&"2.jpg"
end sub
sub hoverout(name)
	document.images(name).src=name&".jpg"
end sub
sub submitsub
	document.inputform.submit
end sub
sub cancelsub
	document.inputform.reset
end sub
</script>

<center>

<font color=#191970>今天是<%=year(now())%>年<%=month(now())%>月<%=day(now())%>日
<br>
欢迎加入讨论。请输入名字:
</font>

<form action=chat1.asp method=post name=inputform>

在这里输入名字:
<input type=text name=user>
<br>
<img src=ok.jpg width=30 name="ok" onmouseover=hover("ok") onmouseout=hoverout("ok") onclick=submitsub>
<img src=cancel.jpg width=30 name="cancel" onmouseover=hover("cancel") onmouseout=hoverout("cancel") onclick=cancelsub>
</form>

</center>

</BODY>
</HTML>