ASP.Net/Development/Include inc file

Материал из .Net Framework эксперт
Перейти к: навигация, поиск

Include inc file Demo

   <source lang="csharp">

<%@ Page Language=VB Debug=true %> <script runat=server> Sub SubmitBtn_Click(Sender As Object, E As EventArgs) 

   lblResult.Text = MakeLength(txtStringToSize.Text, _
       txtPadCharacter.Text, txtLength.Text)

End Sub </SCRIPT>

<HTML> <HEAD> <TITLE>Make Length Sample Page</TITLE> </HEAD> <BODY TEXT="black" LINK="darkred" VLINK="darkred" ALINK="red" LEFTMARGIN="40" TOPMARGIN="60"> <form runat="server"> <asp:Label 

   id="lbl1"
   runat="Server"
   font-bold="True"
   text="Enter String to Size"

/>
<asp:TextBox 

   id="txtStringToSize"
   runat="server"

/>

<asp:Label 

   id="lbl2"
   runat="Server"
   font-bold="True"
   text="Enter Pad Character"

/>
<asp:TextBox 

   id="txtPadCharacter"
   runat="server"

/>

<asp:Label 

   id="lbl3"
   runat="Server"
   font-bold="True"
   text="Enter Length"

/>
<asp:TextBox 

   id="txtLength"
   runat="server"

/>

<asp:button 

   id="butGo"
   text="  Go  "
   Type="Submit"
   runat="server"
   OnClick="SubmitBtn_Click"

/>

<asp:Label 

   id="lblResult"
   runat="Server"
   font-bold="True"

/> </Form> </BODY> </HTML> 

      </source>


Linking to an Include Code Library

   <source lang="csharp">

<script runat=server> Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs) 

   lblMessage1.Text = MakeLength("www.", "nfex.ru", 12)
   lblMessage2.Text = SystemInfo()

End Sub </SCRIPT>

<HTML> <HEAD> <TITLE>Linking to an Include Code Library</TITLE> </HEAD> <form runat="server">

<asp:label 

   id="lblMessage1"
   runat="Server"

/>

<asp:label 

   id="lblMessage2"
   runat="Server"

/>

</form> </BODY> </HTML> <%-- <script runat=server> Function MakeLength(StringToSize as String,PadCharacter as String, SizeToLength as Integer) 

   If Len(StringToSize) >= SizeToLength Then
       MakeLength = Left(StringToSize, SizeToLength)
   Else
       MakeLength = StringToSize
       Do Until Len(MakeLength) = SizeToLength
           MakeLength = MakeLength & PadCharacter
       Loop
   End If

End Function

Public Function SystemInfo() 

   SystemInfo = "Machine Name: " & Server.MachineName _
       & "
Current Script Timeout: " _
       & Server.ScriptTimeOut _
       & " seconds
Path to Page: " _
       & Server.MapPath("") & "
System Date/Time: " _
       & Date.Now()

End Function </script> --%> 

      </source>
Источник — «http://nfex.ru/index.php?title=ASP.Net/Development/Include_inc_file&oldid=1709»