listing1407.aspx

来自「asp入门到精通的源代码」· ASPX 代码 · 共 62 行

ASPX

62 行

<%@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>

listing1407.aspx - 源码说明

本页面展示了「asp入门到精通的源代码」中的 listing1407.aspx 源码文件，采用 ASPX 编程语言编写，共 62 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与asp相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?