我自己写的聊天室源代码(二)
发表于:2007-06-30来源:作者:点击数:
标签:
%‘’初始登录页,default.asp% html head meta http-equiv=Content-Type content=text/html; charset=gb2312 meta name=GENERATOR content=Microsoft FrontPage 3.0 title登录聊天室/title script language= Java Script!-- function windowload() { document
<%‘’初始登录页,default.asp%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title>登录聊天室</title>
<script language="
JavaScript"><!--
function windowload()
{
document.forms[0].T1.focus();
}
function testvalue(tt1)
{
var val;
val = "";
if (tt1 == 1)
{val = document.forms[0].T1.value;}
if (tt1 == 2)
{val = document.forms[0].T3.value;}
return val
}
function msg(tt)
{
alert(tt);
}
function formsubmit()
{
document.forms[0].submit();
}
// --></script>
<script language="
VBScript"><!--
function allpass()
dim sc_message,sc_ss,sc_flag
sc_ss = testvalue(1)
sc_flag = 0
if trim(sc_ss) = "" then
sc_flag = 1
sc_message = "必须输入用户名!"
else
sc_ss = testvalue(2)
if trim(sc_ss) = "" then
sc_flag = 1
sc_message = "必须输入口令!"
end if
end if
if sc_flag = 0 then
formsubmit()
else
msg(sc_message)
windowload()
end if
end function
--></script>
<meta name="Microsoft Border" content="none">
</head>
<body background="images/bg03.gif" language="
javascript" onload="windowload();">
<form method="POST" action="chatadmin.asp">
<table border="0" width="100%" cellspacing="0">
<tr>
<
td width="100%" colspan="4"><div align="center"><center><p><!--webbot bot="ImageMap"
rectangle="(347,104) (390, 122) deleteuser.asp##_blank"
rectangle="(302,105) (344, 122) updateuser.asp##_blank"
rectangle="(254,105) (296, 122) insertuser.asp##_blank" src="images/title.gif" border="0"
width="432" height="159" --></td>
</tr>
<tr align="center">
<td width="50%" colspan="2"><div align="right"><p>您的昵称:</td>
<td width="50%" colspan="2"><div align="left"><p><input type="text" name="T1" size="15"></td>
</tr>
<tr align="center">
<td width="50%" colspan="2"><div align="right"><p>您的口令:</td>
<td width="50%" colspan="2"><div align="left"><p><input type="password" name="T3"
size="15"></td>
</tr>
<tr align="center">
<td width="25%" align="center"><input type="radio" value="images/mood12.gif" checked
name="R1"><img src="images/mood12.gif" WIDTH="20" HEIGHT="20"></td>
<td width="25%" align="center"><input type="radio" name="R1" value="images/mood13.gif"><img
src="images/mood13.gif" WIDTH="20" HEIGHT="20"></td>
<td width="25%" align="center"><input type="radio" name="R1" value="images/mood14.gif"><img
src="images/mood14.gif" WIDTH="20" HEIGHT="20"></td>
<td width="25%" align="center"><input type="radio" name="R1" value="images/mood15.gif"><img
src="images/mood15.gif" WIDTH="20" HEIGHT="20"></td>
</tr>
<tr align="center">
<td width="25%" align="center"><input type="radio" name="R1" value="images/mood16.gif"><img
src="images/mood16.gif" WIDTH="20" HEIGHT="20"></td>
<td width="25%" align="center"><input type="radio" name="R1" value="images/mood17.gif"><img
src="images/mood17.gif" WIDTH="20" HEIGHT="20"></td>
<td width="25%" align="center"><input type="radio" name="R1" value="images/mood18.gif"><img
src="images/mood18.gif" WIDTH="20" HEIGHT="20"></td>
<td width="25%" align="center"><input type="radio" name="R1" value="images/mood19.gif"><img
src="images/mood19.gif" WIDTH="20" HEIGHT="20"></td>
</tr>
<tr align="center">
<td width="25%" align="center"><input type="radio" name="R1" value="images/mood20.gif"><img
src="images/mood20.gif" WIDTH="20" HEIGHT="20"></td>
<td width="25%" align="center"><input type="radio" name="R1" value="images/mood21.gif"><img
src="images/mood21.gif" WIDTH="20" HEIGHT="20"></td>
<td width="25%" align="center"><input type="radio" name="R1" value="images/mood22.gif"><img
src="images/mood22.gif" WIDTH="20" HEIGHT="20"></td>
<td width="25%" align="center"><input type="radio" name="R1" value="images/mood23.gif"><img
src="images/mood23.gif" WIDTH="20" HEIGHT="20"></td>
</tr>
<tr align="center">
<td width="25%" align="center"></td>
<td width="25%" align="center"><input type="radio" name="R1" value="images/mood24.gif"><img
src="images/mood24.gif" WIDTH="20" HEIGHT="20"></td>
<td width="25%" align="center"><input type="radio" name="R1" value="images/mood25.gif"><img
src="images/mood25.gif" WIDTH="20" HEIGHT="20"></td>
<td width="25%" align="center"></td>
</tr>
<tr align="center">
<td width="100%" colspan="4"><div align="center"><center><p><input type="button"
value="我来也" name="B1" onclick="allpass()"></td>
</tr>
</table>
</form>
</body>
</html>
原文转自:http://www.ltesting.net