lt.aspx

来自「网络图书管理系统 可以在线查询。预定等」· ASPX 代码 · 共 61 行

ASPX
61
字号
<%@ 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 + =
减小字号Ctrl + -
显示快捷键?