我自己写的聊天室源代码(二)

发表于: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