1Imports System
 2Imports System.IO
 3Imports System.ComponentModel
 4Imports System.Web
 5Imports System.Web.SessionState
 6Imports System.Web.UI
 7Imports System.Web.UI.WebControls
 8Imports System.Configuration
 9
10Public Class cssClass css
11    Inherits System.Web.UI.Page
12    Protected WithEvents Button1 As System.Web.UI.WebControls.Button
13    Protected WithEvents TB As System.Web.UI.WebControls.TextBox
14
15Web 窗体设计器生成的代码#Region " Web 窗体设计器生成的代码 "
16
17    '该调用是 Web 窗体设计器所必需的。
18    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent()
19
20    End Sub
21
22    Private Sub Page_Init()Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
23        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
24        '不要使用代码编辑器修改它。
25        InitializeComponent()
26    End Sub
27
28#End Region
29
30    Private Sub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
31        If Session("name") <> ConfigurationSettings.AppSettings("站长") Then Response.Redirect("default.aspx")
32        If Not IsPostBack Then
33            Dim sr As StreamReader
34            sr = New StreamReader(File.OpenRead(Server.MapPath("styles.css")))
35            TB.Text = sr.ReadToEnd
36            sr.Close()
37        End If
38
39    End Sub
40
41    Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
42        Dim sr As StreamWriter
43        sr = New StreamWriter(File.Create(Server.MapPath("styles.css")))
44        sr.Write(TB.Text)
45        sr.Close()
46        Response.Redirect("default.aspx")
47    End Sub
48End Class
49