📄 listing1407.aspx
字号:
<%@Page Language="VB" %>
<%@Import Namespace="System.Data" %>
<%@Import Namespace="System.Data.OleDb" %>
<%@Import Namespace="System.IO" %>
<script language="VB" runat="server">
sub Page_Load(obj as Object,e as EventArgs)
if not Page.IsPostBack then
CreateData()
end if
end sub
sub CreateData
dim source as DataView
dim objFs as FileStream
dim objReader as StreamReader
dim ds as new DataSet()
source =Cache("DataView")
if source is nothing then
objFs =New FileStream(Server.MapPath _
("../day11/books.xml"),FileMode.Open, _
FileAccess.Read)
objReader =New StreamReader(objFs)
ds.ReadXml(objReader)
objFs.Close()
dim objDepend as new _
CacheDependency(Server.MapPath("../day11/books.xml"))
source =new DataView(ds.Tables(0))
Cache.Insert("DataView",source,objDepend, DateTime.Now.AddMinutes(1),TimeSpan.Zero)
lblMessage.Text ="Data set created explicitly"
else
lblMessage.Text ="Data set retrieved from cache"
end if
dgData.DataSource =source
dgData.DataBind()
end sub
</script>
<html><body>
<form runat="server">
<asp:Label id="lblMessage" runat="server"
maintainState=false/><p>
<asp:DataGrid id="dgData" runat="server"
BorderColor="black"
GridLines="Vertical"
cellpadding="4"
cellspacing="0"
width="450"
Font-Name="Arial"
Font-Size="8pt"
HeaderStyle-BackColor="#cccc99"
ItemStyle-BackColor="#ffffff"
AlternatingItemStyle-Backcolor="#cccccc" />
</form>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -