<! 註冊帳號表單頁面 Write By -Acme- hazard@ms5.url.com.tw 2002/12/13 ->
<%
    Dim align, width

    ' 頁面對齊方式
    align = "center"

    ' 頁面大小
    width = "70%"
%>
<Html>
<SCRIPT Language="VBScript">

' onBlur 移到別欄位時觸發
' onChange 欄位內容改變後觸發
' onSubmit 按下sumbit鈕後觸發

Sub Check_ID		' 檢查ID
   If IsNumeric(Document.Users.ID.Value) Then
      Alert "使用者名稱不可以是數字..."
      Document.Users.ID.Value = ""
   End If   
End Sub

Sub Check_PW		' 檢查PW
   If Document.Users.PW.Value <> Document.Users.CH_PW.Value Then
      Alert "對不起！輸入的兩個密碼並不相同..."
      Document.Users.PW.Value = ""
      Document.Users.CH_PW.Value = ""
   End If   
End Sub

' 檢查Sent
Function Users_onSubmit

   Dim Error, strEmail, intPos, intPos1
   Error = 0

   ' 檢查e-mail
   strEmail = Document.Users.MAIL.Value

   IF strEmail = "" Then
       Alert "請輸入電子郵件地址..."
       Error = Error + 1
   Else
       intPos = InStr(1, strEmail, "@")
       If intPos > 0 Then
           intPos1 = Instr(1, strEmail, ".")
           If intPos1 = 0 OR intPos1 = Len(strEmail) Then
               Alert "電子郵件格式之網域名稱不正確..."
               Error = Error + 1
           End If
       Else
           Alert "電子郵件名稱錯誤..."
           Error = Error + 1
       End If
   End If

   If Document.Users.ID.Value = "" Then 
       Alert "請輸入帳號..."
       Error = Error + 1
   End If

   If Document.Users.PW.Value = "" Then
       Alert "請輸入密碼..."
       Error = Error + 1
   End If

   If Document.Users.PW.Value <> Document.Users.CH_PW.Value Then 
       Alert "請確認輸入的二次密碼是否相同..."
       Error = Error + 1
   End If

   If Error Then
       Users_onSubmit = FALSE
   Else
       Users_onSubmit = TURE
   End If

End Function

</SCRIPT>

<Head><Title>新帳號註冊</Title></Head>

<Body background="talkinfobg.jpg" bgproperties="fixed">

<table width="<% =width %>" align="<% =align %>" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td align="center">
      <% if request("Error") <> "" then %>
        <font size="2" color="#FF0000"><% =request("Error") %></font>
      <% else %>
        &nbsp;
      <% end if %>
    </td>
  </tr>

<tr><td>
<form name="Users" method="post" action="UserRegister.asp" target="_self">
  <table width="100%" border="1" align="center" bordercolor="#000000" cellspacing="0" cellpadding="1">
    <tr>
      <td>
        <table width="100%" border="0" align="center" bordercolor="#000000" cellspacing="0" cellpadding="2">
        <tr bgcolor="#555555"> 
          <td colspan="2" align="center"> 
            <font color="#FFFFFF">新使用者註冊</font>
          </td>
        </tr>

        <tr> 
          <td width="20%" bgcolor="#C0C0C0" height="20" align="center">
            <font color="#FFFFFF" size="2">帳號</font>
          </td>
          <td width="80%" bgcolor="#C0C0C0" height="20" align="left"> 
            <input type="text" name="ID" size="12" onChange="Check_ID">
          </td>
        </tr>

        <tr> 
          <td width="20%" bgcolor="#C0C0C0" height="12" align="center"> 
            <font color="#FFFFFF" size="2">密碼</font>
          </td>
          <td width="80%" bgcolor="#C0C0C0" height="12" align="left"> 
            <font color="#FFFFFF">
              <input type="password" name="PW" size="12">   <font size="2">確認密碼</font>    
              <input type="password" name="CH_PW" size="12" onBlur = "Check_PW">
            </font>
          </td>
        </tr>

        <tr> 
          <td width="20%" bgcolor="#C0C0C0" height="8" align="center"> 
            <font color="#FFFFFF" size="2">暱稱</font>
          </td>
          <td width="80%" bgcolor="#C0C0C0" height="8" align="left"> 
            <input type="text" name="NAME" size="12">
          </td>
        </tr>

        <tr> 
          <td width="20%" height="27" bgcolor="#C0C0C0" align="center"> 
            <font color="#FFFFFF" size="2">性別</font>
          </td>
          <td width="80%" height="27" bgcolor="#C0C0C0" align="left">
            <input type="radio" name="SEX" value="♂" checked>
              <font color="#FFFFFF" size="2">男</font>
            <input type="radio" name="SEX" value="♀">
              <font color="#FFFFFF" size="2">女</font>
          </td>
        </tr>

        <tr> 
          <td width="20%" bgcolor="#C0C0C0" height="13" align="center"> 
            <font color="#FFFFFF" size="2">E-Mail</font>
          </td>
          <td width="80%" bgcolor="#C0C0C0" height="13" align="left"> 
            <input type="text" name="MAIL" size="30">
          </td>
        </tr>

        <tr bgcolor="#999999"> 
          <td colspan="2" align="center"> 
            <input type="submit" name="create" value="確定註冊">
            <input type="reset" name="reset" value="重新填寫">
          </td>
        </tr>
        </table>
      </td>
    </tr>
  </table>
</form>
</td></tr></table>
<br>本站索球網友加入會員，純粹為提高網友對言論之負責度。<br>本站不會將網友資料對外洩露。
</Body>
</Html>