css.aspx.vb

来自「毕业设计时做的,一个管理关于污染管理的, 源代码,呵呵 想想当时还真厉害,可以」· VB 代码 · 共 49 行

Imports System
Imports System.IO
Imports System.ComponentModel
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Configuration

Public Class css
    Inherits System.Web.UI.Page
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button
    Protected WithEvents TB As System.Web.UI.WebControls.TextBox

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    	If Session("name") <> ConfigurationSettings.AppSettings("站长") Then Response.Redirect("default.aspx")
        If Not IsPostBack Then
            Dim sr As StreamReader
            sr = New StreamReader(File.OpenRead(Server.MapPath("styles.css")))
            TB.Text = sr.ReadToEnd
            sr.Close()
        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sr As StreamWriter
        sr = New StreamWriter(File.Create(Server.MapPath("styles.css")))
        sr.Write(TB.Text)
        sr.Close()
        Response.Redirect("default.aspx")
    End Sub
End Class