?? super.aspx
字號:
<%@ import namespace="system.data" %>
<%@ import namespace="system.data.oledb" %>
<html>
<script language="vb" runat="server">
public ds as dataset=new dataset()
public shared i as integer=1
public shared str1 as string
sub page_load(obj as object,e as eventargs)
if session("pass")<>"ok" then
response.redirect("login.aspx")
end if
str1="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("..\bo_store.mdb")
dim str2 as string="select userid as 用戶編號,username as 用戶名稱 from user1 where userdj<>'0'"
dim ad as oledbdataadapter
ad=new oledbdataadapter(str2,str1)
ad.fill(ds,"user")
dim dv as dataview=ds.tables("user").defaultview
g2.datasource=dv
g2.databind()
end sub
sub sort1(obj as object,e as datagridsortcommandeventargs)
dim dv1 as dataview=ds.tables("user").defaultview
if i=1 then
dv1.sort=e.sortexpression+" desc "
else
dv1.sort=e.sortexpression
end if
i=-i
g2.datasource=dv1
g2.databind()
end sub
sub dele(obj as object,e as datagridcommandeventargs)
dim userno as string
dim str2 as string
userno=ds.tables("user").rows(e.item.itemindex).item("用戶編號")
str2="delete from user1 where userid='"&userno.tostring()&"'"
dim ad as oledbdataadapter
ad=new oledbdataadapter(str2,str1)
ad.fill(ds,"user")
ds.clear()
str2="select userid as 用戶編號,username as 用戶名稱 from user1 where userdj<>'0'"
ad=new oledbdataadapter(str2,str1)
ad.fill(ds,"user")
dim dv as dataview=ds.tables("user").defaultview
g2.datasource=dv
g2.databind()
end sub
</script>
<form id="f1" runat="server">
<asp:panel id="p1" runat="server" horizontalalign="center">
<asp:hyperlink id="go" runat="server" navigateurl="news.aspx" text="不管他們了，我要去看網(wǎng)頁了！"/><br><br>
<asp:datagrid id="g2" runat="server" width="400"
allowsorting="true"
ondeletecommand="dele"
onsortcommand="sort1"
allowpaging="false" >
<Headerstyle backcolor="silver" Horizontalalign="center"/>
<Itemstyle backcolor="#ccffff" Horizontalalign="center"/>
<Alternatingitemstyle backcolor="#ffffff"/>
<Footerstyle backcolor="#009999" />
<headerstyle backcolor="silver" horizontalalign="center"/>
<columns>
<asp:buttoncolumn headertext="刪除" text="刪除" buttontype="linkbutton" commandname="delete" />
</columns>
</asp:datagrid>
</asp:panel>
</form>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -