复制代码 代码如下:<formrunat="server">
<asp:DataGridAutoGenerateColumns="false"OnItemCreated="itemcreate"DataKeyField="link_id"ID="mydg"runat="server">
<columns>
<asp:TemplateColumn>
<headertemplate>
<asp:CheckBoxID="checkall"OnCheckedChanged="chkall_onchanged"AutoPostBack="true"runat="server"></asp:CheckBox>
</headertemplate>
<itemtemplate>
<asp:CheckBoxID="checkdel"runat="server"></asp:CheckBox>
</itemtemplate>
</asp:TemplateColumn>
<asp:BoundColumnDataField="link_id"HeaderText="Link_Id"></asp:BoundColumn>
<asp:BoundColumnHeaderText="网站名称"DataField="sitename"/>
<asp:BoundColumnHeaderText="网站地址"DataField="url"/>
<asp:BoundColumnHeaderText="网站介绍"DataField="intro"/>
<asp:BoundColumnHeaderText="网站评分"DataField="grade"/>
<asp:BoundColumnHeaderText="提交时间"DataField="submit_date"></asp:BoundColumn>
</columns>
</asp:DataGrid>
<asp:LabelID="lb1"runat="server"></asp:Label>

<asp:ButtonID="btn1"Text="删除"runat="server"OnClick="btn1_onclick"></asp:Button>
<asp:ButtonID="ok"OnClick="ok_click"Text="保存修改"runat="server"></asp:Button>
<asp:ButtonID="cancel"OnClick="cancel_click"Text="取消修改"runat="server"></asp:Button>
</form>


<%@importnamespace="system.data"%>
<%@importnamespace="system.data.oledb"%>
<scriptlanguage="vb"runat="server">
dimconnasoledbconnection
dimdsasdataset
subPage_load(senderasobject,easeventargs)
ifnotispostbackthen
calldb()
else
ds=session("ds")
endif

endsub
subcalldb()
conn=newoledbconnection("provider=Microsoft.jet.oledb.4.0;datasource="&server.MapPath("mand()
adp.update(ds,"link")
calldb()
endsub
dimcheckaascheckbox
subitemcreate(senderasobject,easdatagriditemeventargs)
if(e.item.itemtype=Listitemtype.Header)then
checka=e.item.findcontrol("checkall")
endif
endsub

subchkall_onchanged(senderasobject,easeventargs)

dimiasinteger
ifchecka.checked=truethen
fori=0tomydg.items.count-1

dimchkascheckbox=mydg.items(i).cells(0).findcontrol("checkdel")
chk.checked=true
next
else
fori=0tomydg.items.count-1
dimchkascheckbox=mydg.items(i).cells(0).findcontrol("checkdel")
chk.checked=false
next

endif
endsub
</script>