<%@ Import Namespace="system.data" %>
<%@ Import Namespace="system.data.sqlclient" %>
<html>
<script language="vb" runat="server">
Sub dl()
dim strconn="server=svr;database=chen;uid=sa;password=;"
dim strcom="select * from person"
dim conn as new sqlconnection(strconn)
conn.open
dim DA as new sqldataAdapter(strcom,conn)
dim ds as new dataset()
DA.fill(ds,"person")
dg1.datasource=Ds.tables("person")
dg1.databind()
conn.close
End Sub
Sub sub_clk(sender as object,e as eventargs)
dim strconn="server=local;database=chen;uid=sa;password=;"
dim strcom="insert person(name,address,tel) values(& name.text,& address.text,& tel.text)"
dim conn as new sqlconnection(strconn)
dim com as new sqlcommand(strcom,strconn)
conn.open
com.executenonquery()
conn.close
dl()
End Sub