如何在asp+ 中使用自定义的pagelet
点击次数：27 次 发布日期：2008-11-26 23:36:40 作者：源代码网
|
源代码网推荐
/*
源代码网推荐豆腐制作 都是精品
源代码网推荐http://www.asp888.net 豆腐技术站
源代码网推荐如转载请注明版权信息
源代码网推荐*/
asp+ 中提供了一种类似xml 的 代码描写方法，例如<asp:label id=test runat=server>
源代码网推荐在本篇文章里 我会给大家描述一下 如何 编写自己的pagelet 例如:<asp888:myTestMenu
源代码网推荐首先我们写一个aspc 文件，这个文件必须在aspx 文件中进行引用
源代码网推荐<%@ Page Language="vb" %>
源代码网推荐<%@ Import Namespace="System.Drawing" %>
源代码网推荐<script runat=server>
源代码网推荐"创建公共变量
源代码网推荐Public ForeColor As Color
源代码网推荐Public BackColor As Color
源代码网推荐Public Width As Unit
源代码网推荐" 创建调用的函数和过程
源代码网推荐Public Sub AddMenuItem(ByVal IN_Text As String, ByVal IN_URL As String)
源代码网推荐Dim NewMenuItem As New TableCell
源代码网推荐NewMenuItem.Text = "<a href="" & IN_URL & "">" & IN_Text & "</a>"
源代码网推荐mySubRow.Cells.Add(NewMenuItem) "myMenu.Rows(0).Cells.Add(NewMenuItem)
源代码网推荐End Sub
源代码网推荐Sub Page_Load(ByVal Source As Object, ByVal E As EventArgs)
源代码网推荐myASPTable.BackColor = BackColor
源代码网推荐myASPTable.Width = Width
源代码网推荐myMenu.ForeColor = ForeColor
源代码网推荐End Sub
源代码网推荐</script>
源代码网推荐<asp:Table border =1 id=myASPTable runat=server>
源代码网推荐<asp:TableRow id=myRow1 runat=server>
源代码网推荐<asp:TableCell id=myMainCell runat=server>
源代码网推荐<!-- Begin nested menu table -->
源代码网推荐<asp:Table border=1 id=myMenu runat=server
源代码网推荐cellpadding=6
源代码网推荐cellspacing=0>
源代码网推荐<asp:TableRow id=mySubRow>
源代码网推荐</asp:TableRow>
源代码网推荐</asp:Table>
源代码网推荐<!-- End nested menu table -->
源代码网推荐</asp:TableCell>
源代码网推荐</asp:TableRow>
源代码网推荐</asp:Table>
源代码网推荐好了，下面我们看看aspx 文件
源代码网推荐<%@ Page Language="vb" %>
源代码网推荐<%@ Register TagPrefix="asp888" TagName="myTestControl" src="http://www.zzchn.com/edu/20071103/menu_control.aspc" %>
源代码网推荐<html>
源代码网推荐<head>
源代码网推荐<script runat=server>
源代码网推荐Sub Page_Load(ByVal Sender As Object, ByVal e As EventArgs)
源代码网推荐menuControl1.AddMenuItem("豆腐技术站", "http://www.asp888.net")
源代码网推荐If Page.IsPostBack
源代码网推荐menuControl1.AddMenuItem(txtNewMenuText.Text, txtNewMenuLink.Text)
源代码网推荐End If
源代码网推荐End Sub
源代码网推荐</script>
源代码网推荐</head>
<body>
源代码网推荐<asp888:myTestControl id="menuControl1" runat=server
源代码网推荐BackColor = "gray"
源代码网推荐Width="100%"
源代码网推荐ForeColor="Silver" />
源代码网推荐<form method=POST action=myMenuControl.aspx runat=server>
源代码网推荐<p>
源代码网推荐新的联结显示:
源代码网推荐<asp:TextBox id=txtNewMenuText Runat=server />
源代码网推荐</p>
源代码网推荐<p>
源代码网推荐新的联结地址:
源代码网推荐<asp:TextBox id=txtNewMenuLink Runat=server />
源代码网推荐</p>
源代码网推荐<p>
源代码网推荐<input type=submit value="Submit" runat=server />
源代码网推荐</form>
源代码网推荐</p>
源代码网推荐</body>
源代码网推荐</html>
源代码网推荐大家运行后，就可以看到这个的直接效果了
源代码网推荐作者:豆腐
源代码网供稿. |
