<%@ Page Language="VB" AutoEventWireup="True" Debug="true"%>
<%@ Import Namespace="System.IO" %>
<Script runat="server">
Dim FILE_NAME as String = "/db/MyFile.txt"

Sub btnReadFile_Click(sender as object, e as System.EventArgs)

  If File.Exists(Server.MapPath(".")+FILE_NAME) then
     Dim sr as StreamReader =File.OpenText(Server.MapPath(".")+FILE_NAME)
     txtRead.Text=sr.ReadToEnd()
     sr.Close()
  Else
    Response.Write("<script for=window event=onload>window.alert('The file do not exists. Please create it first !');</" & "script>")
  End if
End Sub

Sub btnWriteFile_Click(sender as object, e as System.EventArgs)
    Dim sw as StreamWriter = File.AppendText(Server.MapPath(".")+FILE_NAME)
    If File.Exists(Server.MapPath(".")+FILE_NAME) then
       sw.WriteLine(txtRead.Text)
       sw.Close()
    Else
       Dim sr as StreamWriter = File.CreateText(Server.MapPath(".")+FILE_NAME)
       sw.WriteLine(txtRead.Text)
       sr.Close()
       sw.Close()
    End If
End Sub

Sub btnClear_Click(sender as object, e as System.EventArgs)
    txtRead.Text = ""
End Sub
</Script>
<Form runat="server">
<asp:TextBox runat="server" id="txtRead" TextMode="MultiLine" Rows="10" Width="300"/><P>
<asp:Button id="btnReadFile" Text="¶Á³öÎı¾Îļþ" Runat="server" OnClick="btnReadFile_Click"/><P>
<asp:Button id="btnWriteFile" Text="дÈëÎı¾Îļþ" Runat="server" OnClick="btnWriteFile_Click"/><P>
<asp:Button id="btnClear" Text="Çå¿ÕÎı¾Îļþ" Runat="server" OnClick="btnClear_Click"/><P>
</Form>