Källkoden för /anders.enges/asp/ex11.asp

---

<!--#include file="../inc/navstuff.asp" -->
Testform:<hr>
<SCRIPT  LANGUAGE="JAVASCRIPT">
<!--
function ValideraIndata()
{
      // Om längden på det inmatade är 0 så måste det
      // vara tomt
      // Observera hur vi hänvisar till textboxen
      if (document.NamnoAdress.MittNamn.value.length == 0) {
           alert("Du måste ange namn.");
           return false;
      }

      if (document.NamnoAdress.MinAddress.value.length == 0) {
           alert("Du måste ange adress.");
           return false;
      }

      return true;
     
}
//-->
</SCRIPT>

<FORM NAME="NamnoAdress" OnSubmit="return ValideraIndata()">
      <TABLE BORDER="0">
           <tr>
                <td>
                     Namn:
                </td>
                <td>
                     <INPUT TYPE="TEXT" NAME="MittNamn" SIZE="20" MAXLENGTH="30">
                </td>
           </tr>
           <tr>
                <td>
                     Adress:
                </td>
                <td>
                     <INPUT TYPE="TEXT" NAME="MinAddress" SIZE="20" MAXLENGTH="30">
                </td>
           </tr>
           <tr>
                <td>
                      
                </td>
                <td>
                     <INPUT TYPE="SUBMIT" VALUE="OK">
                     <INPUT TYPE="RESET" VALUE="Töm">
                </td>
           </tr>
      </table>
</form>

Vi kan oftast inte godkänna vad som helt i en form.
En vanlig kontroll är att vissa fält inte får lämnas tomma. Det finns några olika sätt att utföra denna validering
( = kontroll av inmatat datas giltighet)<p>
Om man vet att klientens browser stöder JavaScript så kan man skriva följande<p>

Koden:
<hr>
<font color="#0000ff">
<SCRIPT LANGUAGE="JAVASCRIPT"><br>
<!--<br>
function ValideraIndata()<br>
{<br>
  // Om längden på det inmatade är 0 så måste det<br>
  // vara tomt<br>
  // Observera hur vi hänvisar till textboxen<br>
  if (document.NamnoAdress.MittNamn.value.length == 0)<br>
  {<br>
    alert("Du måste ange namn.");<br>
    return false;<br>
  }<br>
<br>
  if (document.NamnoAdress.MinAddress.value.length == 0) <br>
  {<br>
    alert("Du måste ange adress.");<br>
    return false;<br>
  }<br>
<br>
  return true;<br>
  <br>
}<br>
//--><br>
</SCRIPT><br>
<FORM NAME="NamnoAdress" ACTION="<i>namn på mottagande program</I>" OnSubmit="return ValideraIndata()"><br>
  <TABLE BORDER="0"><br>
    <tr><br>
      <td><br>
        Namn:<br>
      </td><br>
      <td><br>
        <INPUT TYPE="TEXT" NAME="MittNamn" SIZE="20" MAXLENGTH="30"><br>
      </td><br>
    </tr><br>
    <tr><br>
      <td><br>
        Adress:<br>
      </td><br>
      <td><br>
        <INPUT TYPE="TEXT" NAME="MinAddress" SIZE="20" MAXLENGTH="30"><br>
      </td><br>
    </tr><br>
    <tr><br>
      <td><br>
        &nbsp;<br>
      </td><br>
      <td><br>
        <INPUT TYPE="SUBMIT" VALUE="OK"><br>
        <INPUT TYPE="RESET" VALUE="Töm"><br>
      </td><br>
    </tr><br>
  </table><br>
</form><br>
</font>
<p>
Om man vill kan man sätta följande i början av sidan:<hr>
<div class=code>
<span class=asp><%  Set bc = Server.CreateObject("MSWC.BrowserType") <br>
  If (bc.javascript = FALSE) then %></span><br>
    Eftersom din browser inte stöder JavaScript så kommer <br>
    jag inte att kunna validera det du ger in<br>
<span class=asp><% End If %></span> <br>

<br>
Eller varför inte:<br>
<span class=asp><%  Set bc = Server.CreateObject("MSWC.BrowserType") <br>
  if (bc.javascript = FALSE) then %></span><br>
    Sorry. Du har för gammal browser <br>
    Jag Kan inte fortsätta<br>
<span class=asp><% Else %></span> <br>
    (Hit sätter man hela formens kod vilket gör <br>
     att den inte visas om inte JavaScript stöds)<br>
<span class=asp><% End If %></span><br>
</div><p>
<br>Vi testar din browser med:<br>
<div class=code>
<span class=asp><%  Set bc = Server.CreateObject("MSWC.BrowserType") <br>
  if (bc.javascript = FALSE) then %></span><br>
    Sorry. Du har för gammal browser <br>
<span class=asp><% Else %></span><br>
    Tillräckligt ny browser<br>
<span class=asp><% End If %></span><br>
</div>
Som ger som svar:<br>
<div class=res>
<%  Set bc = Server.CreateObject("MSWC.BrowserType")
      If (bc.javascript = FALSE) then %>
Sorry. Du har för gammal browser <br>
<%  Else %>
Tillräckligt ny browser<br>
<%  End If %>
</div><p>
Nuförtiden har nog ALLA browsers med JavaScript stöd. Har de inte så får de skylla sig själva.
<!--#include file="../inc/footer.asp" -->