wordrepeater.ascx

asp.net技术内幕的书配源码

<Script Runat="Server">

Public Word As String

Sub Repeat( intNumTimes As Integer )
  Dim intCounter As Integer
  For intCounter = 0 to intNumTimes - 1
    Response.Write( Word )
  Next
End Sub

</Script>