<%@ page language="perl" %>
<script runat="server">
use namespace "system::data";
use namespace "system::data::sqlclient";
=for interface
protected override void onload(system.eventargs e);
=cut
sub onload {
my($this, $e) = @_;
my $myconnection = sqlconnection->new("data source=(local); trusted_connection=yes; initial catalog=pubs");
my $mycommand = sqlcommand->new("select * from publishers", $myconnection);
$myconnection->open();
$this->{mydatagrid}{datasource} = $mycommand->executereader(perlnet::enum("commandbehavior.closeconnection"));
$this->{mydatagrid}->databind;
}
</script>
<html>
<body>
<form runat="server">
<asp:datagrid id="mydatagrid" runat="server" />
</form>
</body>
</html>
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
