📄 lt.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 st as string=""
sub page_load(obj as object,e as eventargs)
if session("pass")="no" then
response.redirect("login.aspx")
end if
dim str1 as string="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("lt.mdb")
dim str2 as string="select id,title from zt"
dim ad as oledbdataadapter
ad=new oledbdataadapter(str2,str1)
ad.fill(ds,"zt")
dim dv as dataview=ds.tables("zt").defaultview
g2.datasource=dv
g2.databind()
end sub
sub page_ch(obj as object,e as datagridpagechangedeventargs)
dim dv1 as dataview=ds.tables("zt").defaultview
dv1.sort=st
g2.datasource=dv1
g2.currentpageindex=e.newpageindex
g2.databind()
end sub
Sub ItemsGrid_Edit(obj as object,e As DataGridCommandEventArgs)
response.write("fff")
end sub
</script>
<form id="f1" runat="server">
<asp:panel id="p1" runat="server" horizontalalign="center">
<asp:datagrid id="g2" runat="server" width="400"
allowpaging="true"
pagesize=5
pagestyle-mode="nextprev"
AutoGenerateColumns="false"
onpageindexchanged="page_ch"
headerstyle-backcolor="silver"
>
<Columns>
<asp:HyperLinkColumn
HeaderText="进入讨论主题"
DataNavigateUrlField="id"
DataNavigateUrlFormatString="list.aspx?id={0}"
DataTextField="title"
Target="_blank"/>
</Columns>
</asp:datagrid>
</asp:panel>
</form>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -