<%@ Page
language=VB
debug=true
src="ProcsInCodeBehind.vb"
Inherits="clsProcsInCodeBehind"
%>
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
lblMessage1.Text = "Pi to three digits: " & RoundPI(3)
lblMessage2.Text = "Circumference of a 4cm Radius Circle: " _
& CircleCircumference(4)
lblMessage3.Text = SystemInfo()
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Creating and Linking to a Code-Behind Files</TITLE>
</HEAD>
<form runat="server">
<BR><BR>
<asp:label
id="lblMessage1"
runat="Server"
/>
<BR><BR>
<asp:label
id="lblMessage2"
runat="Server"
/>
<BR><BR>
<asp:label
id="lblMessage3"
runat="Server"
/>
</form>
</BODY>
</HTML>
<%--
Imports System
Public Class clsProcsInCodeBehind
Inherits System.Web.UI.Page
Public Function RoundPI(DecimalPlaces as Integer)
RoundPI = Math.Round(Math.PI, DecimalPlaces)
End Function
Public Function CircleCircumference(TheRadius as Double) _
as Double
CircleCircumference = 2 * TheRadius * Math.PI
End Function
Public Function SystemInfo()
SystemInfo = "Machine Name: " & Server.MachineName _
& "<BR>Current Script Timeout: " _
& Server.ScriptTimeOut & " seconds<BR>Path to Page: " _
& Server.MapPath("") & "<BR>System Date/Time: " _
& Date.Now()
End Function
End Class
--%>
|