controlsbegin/link1.aspx
<html>
<head>
<title>Loading a Page</title>
<script Runat=server>
Sub Page_Load
linkCIS.HRef="http://www.pgrocer.net/PFGCIS47.html"
End Sub
</script>
</head>
<body>
<form Runat=server>
<a id="linkCIS"
runat="server">CIS47 web site!</a>
</form>
</body>
</html>
controlsbegin/link1a.aspx
<html>
<head>
<title>Loading a Page</title>
<script runat="server">
Sub Page_Load
linkCIS.HRef="http://www.pgrocer.net/PFGCIS47.html"
End Sub
</script>
</head>
<body>
<form runat="server">
<a id="linkCIS"
runat="server">CIS47 web site!</a>
</form>
</body>
</html>
controlsbegin/button.aspx
<html>
<head><title>Using a Button HTML Server
Control</title>
</head>
<script
runat="server">
Sub buttonCIS44(Source As Object, e As EventArgs)
CIS.InnerHtml="You are taking Internet User/Developer"
End Sub
Sub buttonCIS45(Source As Object, e As EventArgs)
CIS.InnerHtml="You are taking Introduction to Java for Internet
Developers!"
End Sub
Sub buttonCIS47(Source As Object, e As EventArgs)
CIS.InnerHtml="You are taking Interactive Web Sites!"
End Sub
</script>
</head>
<body style="color:brown; font-size:14 pt;
font-weight:bold">
<h2>Please click a button to get the name of
the course</h2>
<form runat="server">
<button id="CIS44"
OnServerClick="buttonCIS44"
style="color:green; background-color:beige;
height=20;width:75"
runat="server">CIS44</button>
<button id="CIS45"
OnServerClick="buttonCIS45"
style="color:green; background-color:beige;
height=20;width:75"
runat="server">CIS45</button>
<button id="CIS47"
OnServerClick="buttonCIS47"
style="color:green; background-color:beige;
height=20;width:75"
runat="server">CIS47</button>
<p id="CIS" runat="server"
/>
</form>
</body>
</html>
controlsbegin/table.aspx
<html>
<head><title>Table</title>
<script
runat="server">
Sub runSum(sender As Object, e As EventArgs)
dim r,c
dim tot
for r=1 To 3
for c=0 To
2
tot =
tot + int(tableAdd.Rows(r).Cells(c).InnerHtml)
next
next
SUM.InnerHtml = "The total is " & tot
End Sub
</script>
</head>
<body>
<form runat="server">
<table id="tableAdd"
border="1" runat="server">
<tr>
<td> First </td><td> Second </td>
<td> Third </td>
</tr>
<tr>
<td>1</td><td>2</td><td>3</td>
</tr>
<tr>
<td>4</td><td>5</td><td>6</td>
</tr>
<tr>
<td>7</td><td>8</td><td>9</td>
</tr>
</table>
<br />
<input type="button"
value="Sum" OnServerClick="runSum"
runat="server"/>
<p id=SUM runat="server" />
</form>
</body>
</html>
controlsbegin/flipimage.aspx
<html>
<head><title>Flip image</title>
<script
runat="server">
Sub choose_image(Sender As Object, e As EventArgs)
CISimg.Src
= pickImage.Value
End Sub
</script>
</head>
<body>
<form runat="server">
<select id="pickImage"
runat="server">
<option
value="CISa.gif">Right side up</option>
<option
value="CISb.gif">Upside down</option>
</select>
<input type="submit"
runat="server" value="Display image"
OnServerClick="choose_image">
<br /><br />
<img id="CISimg"
src="CISa.gif" runat="server" />
</form>
</body>
</html>
controlsbegin/flipimage1.aspx
<html>
<head><title>Flip image</title>
<script
runat="server">
Sub choose_image(Sender As Object, e As EventArgs)
If
right.Checked=True then
CISimg.Src = "CISa.gif"
else
CISimg.Src = "CISb.gif"
end if
End Sub
</script>
</head>
<body>
<form runat="server">
<input id="right" name="flip"
type="radio" runat="server">Right side up</input>
<br />
<input id="upside"
name="flip" type="radio" runat="server">Upside
down</input>
<input type="button" runat="server"
value="Display image"
OnServerClick="choose_image">
<br /><br />
<img id="CISimg"
src="CISa.gif" runat="server" />
</form>
</body>
</html>