复制代码 代码如下:<form runat="server">
<asp:DataGrid AutoGenerateColumns="false" OnItemCreated="itemcreate" DataKeyField="link_id" ID="mydg" runat="server" >
<columns>
<asp:TemplateColumn>
<headertemplate>
<asp:CheckBox ID="checkall" OnCheckedChanged="chkall_onchanged" AutoPostBack="true" runat="server"></asp:CheckBox>
</headertemplate>
<itemtemplate>
<asp:CheckBox ID="checkdel" runat="server"></asp:CheckBox>
</itemtemplate>
</asp:TemplateColumn>
<asp:BoundColumn DataField="link_id" HeaderText="Link_Id" ></asp:BoundColumn>
<asp:BoundColumn HeaderText="网站名称" DataField="sitename" />
<asp:BoundColumn HeaderText="网站地址" DataField="url" />
<asp:BoundColumn HeaderText="网站介绍" DataField="intro" />
<asp:BoundColumn HeaderText="网站评分" DataField="grade" />
<asp:BoundColumn HeaderText="提交时间" DataField="submit_date"></asp:BoundColumn>
</columns>
</asp:DataGrid>
<asp:Label ID="lb1" runat="server"></asp:Label>
<asp:Button ID="btn1" Text="删 除" runat="server" OnClick="btn1_onclick"></asp:Button>
<asp:Button ID="ok" OnClick="ok_click" Text="保存修改" runat="server"></asp:Button>
<asp:Button ID="cancel" OnClick="cancel_click" Text="取消修改" runat="server"></asp:Button>
</form>
<%@ import namespace="system.data"%>
<%@ import namespace="system.data.oledb"%>
<script language="vb" runat="server">
dim conn as oledbconnection
dim ds as dataset
sub Page_load(sender as object,e as eventargs)
if not ispostback then
calldb()
else
ds=session("ds")
end if
end sub
sub calldb()
conn = new oledbconnection("provider=Microsoft.jet.oledb.4.0;data source="& server.MapPath("wwwlink.mdb"))
dim sqlstr="select * from link"
conn.open()
dim adp as new oledbdataAdapter(sqlstr,conn)
ds =new dataset()
adp.fill(ds,"link")
mydg.DataSource=ds.tables("link").defaultview
mydg.databind()
conn.close()
session("ds")=ds
end sub
sub btn1_onclick(sender as object, e as eventargs)
dim chk as checkbox
dim id as string
dim datag as datagriditem
conn = new oledbconnection("provider=Microsoft.jet.oledb.4.0;data source="& server.MapPath("wwwlink.mdb"))
dim sqlstr as string
dim cmd as oledbcommand
dim i as integer
'for each datag in mydg.items
for i=0 to mydg.items.count-1
'chk=ctype(datag.findcontrol("checkdel"),checkbox)
'chk=datag.findcontrol("checkdel")
chk=mydg.items(i).cells(0).findcontrol("checkdel")
if chk.checked then
id=cstr(mydg.items(i).cells(1).text)
'id=cstr(mydg.datakeys(datag.itemindex))
conn.open()
sqlstr="delete from link where link_id=" & id
cmd=new oledbcommand(sqlstr,conn)
cmd.executenonquery
'ds.tables("link").rows(i).delete()
conn.close()
end if
next
'session("ds")=ds
'mydg.edititemindex=-1
'mydg.datasource=ds.tables("link").defaultview
'mydg.databind()
calldb()
end sub
sub cancel_click(sender as object, e as eventargs)
calldb()
end sub
sub ok_click(sender as object, e as eventargs)
conn=new oledbconnection("provider=Microsoft.jet.oledb.4.0;data source="&server.MapPath("wwwlink.mdb"))
dim adp as new oledbdataadapter("select * from link",conn)
dim ocb as new oledbcommandbuilder(adp)
adp.updatecommand=ocb.getupdatecommand()
adp.deletecommand=ocb.getdeletecommand()
adp.update(ds,"link")
calldb()
end sub
dim checka as checkbox
sub itemcreate(sender as object, e as datagriditemeventargs)
if (e.item.itemtype=Listitemtype.Header) then
checka=e.item.findcontrol("checkall")
end if
end sub
sub chkall_onchanged(sender as object,e as eventargs)
dim i as integer
if checka.checked=true then
for i=0 to mydg.items.count-1
dim chk as checkbox=mydg.items(i).cells(0).findcontrol("checkdel")
chk.checked=true
next
else
for i=0 to mydg.items.count-1
dim chk as checkbox=mydg.items(i).cells(0).findcontrol("checkdel")
chk.checked=false
next
end if
end sub
</script>
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
更新日志
- 纯音入心系列纯音乐《中央民族乐团-古筝传奇》1CD[MP3][253.1MB]
- 江玲.1989-这样你才爱我,是吗?【新作有声】【WAV+CUE】
- 郭美美.2010-我是郭美美【华纳】【WAV+CUE】
- 黄心懋1991-轻忧郁【滚石】【WAV+CUE】
- 群星.2000-大地金曲世纪回顾2CD【大地】【WAV+CUE】
- 王菲.1996-浮躁(2024环球MQA-UHQCD限量版)【环球】【WAV+CUE】
- 群星.2022-传家电视剧原声带【东阳欢娱】【FLAC分轨】
- 《摇滚教父 伍佰黄金精选 2CD》 [WAV+CUE][1GB]
- 《凤凰传奇 我从草原来》[WAV/分轨][400MB]
- 《叶倩文 真心真意过一生》[WAV+CUE][400MB]
- 潘越云.1985-世间女子(滚石25周年经典复刻版)【滚石】【WAV+CUE】
- 陈柏宇.2009-CANT.BE.HALF【SONY】【WAV+CUE】
- 李明依.1989-小女生【滚石】【WAV+CUE】
- 《李荣浩 新时代创作新人王》[WAV分轨][310MB]
- 《黑鸭子与马头琴 史上最动听草原音乐》[WAV+CUE][320MB]