default.aspx

来自「對c#初學者參考..為課題asp.net 2.0教材代碼」· ASPX 代码 · 共 47 行

ASPX
47 行
字号 
<%@ Page Language="VB" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.IO.Compression" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<script runat="server">

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim filename As String = Server.MapPath("TextFile.zip")

        Dim infile As FileStream = File.OpenRead(filename)
        Dim deflateStream As New DeflateStream(infile, CompressionMode.Decompress)
        Dim buffer(infile.Length + 100) As Byte

        Dim offset As Integer = 0
        Dim totalCount As Integer = 0
        While True
            Dim bytesRead As Integer = deflateStream.Read(buffer, offset, 100)
            If bytesRead = 0 Then
                Exit While
            End If
            offset += bytesRead
            totalCount += bytesRead
        End While

        Dim outfile As FileStream = _
            File.Create(Path.ChangeExtension(filename, "txt"))
        outfile.Write(buffer, 0, buffer.Length)
        outfile.Close()

    End Sub
</script>

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>Untitled Page</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
    
    </div>
    </form>
</body>
</html>

default.aspx - 源码说明

本页面展示了「對c#初學者參考..為課題asp.net 2.0教材代碼」中的 default.aspx 源码文件，采用 ASPX 编程语言编写，共 47 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?