本演示中，我们实现这个中继器控件数据导出超过的功能。我们准备一个对象：复制代码代码如下：导入微软VisualBasic .命名空间因苏。网公共类目录私人识别码为整数私有名称为字符串公共属性身份为整数获取返回标识结束获取集(值为整数)_ID=值结束设置结束属性公共属性名称为字符串获取返回名称结束获取集(值为字符串)_名称=值结束设置结束属性目标类目标命名空间准备数据来填充上面创建好的对象：复制代码代码如下：私有函数GetData()作为列表（目录)Dim cls作为新列表（目录)Dim cl作为目录=新目录()cl .ID=1 cl .名称='唇膏cls .添加(cl) cl=新目录(cl ).ID=2 cl .名称='胭脂cls .添加(cl) cl=新目录(cl ).ID=3 cl .名称='化妆水cls .添加(cl) cl=新目录(cl ).ID=4 cl .名称='护手霜cls .添加(cl)返回结束函数在aspx .页面拉一个中继器控件：复制代码代码如下： asp:中继器ID='中继器目录' runat='服务器'标头模板表边框=' 1 '单元格填充=' 3 '单元格间距=' 0 ' tr tdID/TD tdName/TD/tr/标题模板项模板tr % TD # Eval(' ID ')%/TD TD TD TD % # Eval(' Name ')%/TD/tr/项模板页脚模板/表格/页脚模板/asp3360中继器然在。aspx.vb为中继器控件绑定数据：复制代码代码如下：导入因苏。网部分类默认值2继承系统。网页保护子页面加载（发送者作为对象，接收者作为事件参数)处理我。如果不是，则加载返回，然后数据绑定()结束如果结束子私有子数据绑定()我.重复目录。数据源=GetData()Me .重复目录。数据绑定()结束子结束类好的一切准备绪，我们在aspx .拉一个铵钮，让用户点击此铵钮时，能对中继器控件的数据导出Excel。复制代码代码如下： ASP :按钮ID='Button1' runat='服务器文本='导出到Excel' OnClick='Button1_Click' /铵钮拉好，我们要去。aspx.vb写点击事件，在写之前，首先下载一个InsusExportToExcel库解压之后放入容器目录中。复制代码代码如下：受保护的子按钮1 _点击(发送方作为对象，e作为事件参数)暗淡的物体作为新的' InsusExportToExcel()'实例化对象物体ExportToExcel(我。"重复目录","目录")传入中继器控件以入导出的超过文件名末端接头当然最后，少不了演示