复制代码 代码如下:<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("wwwlink.mdb"))
dimsqlstr="select*fromlink"
conn.open()
dimadpasnewoledbdataAdapter(sqlstr,conn)
ds=newdataset()
adp.fill(ds,"link")
mydg.DataSource=ds.tables("link").defaultview
mydg.databind()
conn.close()
session("ds")=ds
endsub
subbtn1_onclick(senderasobject,easeventargs)
dimchkascheckbox
dimidasstring
dimdatagasdatagriditem
conn=newoledbconnection("provider=Microsoft.jet.oledb.4.0;datasource="&server.MapPath("wwwlink.mdb"))
dimsqlstrasstring
dimcmdasoledbcommand
dimiasinteger
'foreachdataginmydg.items
fori=0tomydg.items.count-1
'chk=ctype(datag.findcontrol("checkdel"),checkbox)
'chk=datag.findcontrol("checkdel")
chk=mydg.items(i).cells(0).findcontrol("checkdel")
ifchk.checkedthen
id=cstr(mydg.items(i).cells(1).text)
'id=cstr(mydg.datakeys(datag.itemindex))
conn.open()
sqlstr="deletefromlinkwherelink_id="&id
cmd=newoledbcommand(sqlstr,conn)
cmd.executenonquery
'ds.tables("link").rows(i).delete()
conn.close()
endif
next
'session("ds")=ds
'mydg.edititemindex=-1
'mydg.datasource=ds.tables("link").defaultview
'mydg.databind()
calldb()
endsub
subcancel_click(senderasobject,easeventargs)
calldb()
endsub
subok_click(senderasobject,easeventargs)
conn=newoledbconnection("provider=Microsoft.jet.oledb.4.0;datasource="&server.MapPath("wwwlink.mdb"))
dimadpasnewoledbdataadapter("select*fromlink",conn)
dimocbasnewoledbcommandbuilder(adp)
adp.updatecommand=ocb.getupdatecommand()
adp.deletecommand=ocb.getdeletecommand()
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>
【在asp.net中实现datagrid checkbox 全选的方法】相关文章：
★ asp.net操作javascript:confirm返回值的两种方式