<%@ Page Language="vb" %>
<%@ Import namespace="System.IO" %>
<script runat="server">
Dim onjsr As System.IO.StreamWriter
Dim objfs As System.IO.FileStream
dim sendp as string
Private Sub Page_load(Sender as Object, E as EventArgs)
Dim MyDateTime As New DateTime
MyDateTime = Now()
sendp = Request("نام متغیر در فلش")
objfs = File.Open("c:\آدرس محل ذخیره\fileneme.txt", FileMode.OpenOrCreate, FileAccess.Write, FileShare.ReadWrite)
onjsr = New StreamWriter(objfs)
onjsr.BaseStream.Seek(0, SeekOrigin.End)
onjsr.WriteLine(sendp+"datatime="+MyDateTime+"&")
onjsr.Flush()
objfs.Close()
Response.Write("&post=پیغام موفقیت در ذخیره سازی برای فلش")
End Sub
</script>