Page 61 - Modul web baru
P. 61
www.flipbuilder.com www.flipbuilder.com 56 www.flipbuilder.com
<td><input type="checkbox" name="kursus" value="inggris">Bahasa
Inggris<br>
<input type="checkbox" name="kursus" value="komputer">Komputer</td>
</tr>
www.flipbuilder.com www.flipbuilder.com www.flipbuilder.com
</table>
<p><input type="submit" value="Submit" name="Bsubmit"><input type="reset"
value="Reset" name="Breset"></p>
</form>
</body>
</html>
❑ Simpan dengan nama form.html
❑ Lihat hasilnya dengan browser.
www.flipbuilder.com www.flipbuilder.com www.flipbuilder.com
www.flipbuilder.com www.flipbuilder.com www.flipbuilder.com
Praktikum 2 (validasi data)
❑ Bukalah kembali file form.html.
www.flipbuilder.com www.flipbuilder.com www.flipbuilder.com
❑ Tambahkan script berikut pada bagian head :
<script language="VBscript">
<!--
sub Bsubmit_OnClick
dim TheForm
Set Theform= document.form_kursus
Msgbox " Input anda salah"
Else
if IsNumerik(TheForm.nama.value) then
TheForm.submit
www.flipbuilder.com www.flipbuilder.com www.flipbuilder.com
End If
End Sub
-->
Modul Pemrograman Web SMKN 2 Mojokerto
www.flipbuilder.com www.flipbuilder.com www.flipbuilder.com
