使用ASP写入文本文件

Question

我对ASP完全陌生，因此不胜感激。我有一个html页面，该页面具有供用户保留其详细信息的表单，当他们提交表单时，它会转到一个文本文件中，但是我想要的是一旦他们提交了它，我想发出一个警告，说“评论已保存”并保留在原始页面上显示，这样他们可以选择提交其他页面，但是在用户提交时转到空白页面。我的表格是

<form method="post" action="comments.asp">
<br><br>
Age <input type="text" name="age" />
Name<textarea rows="1" cols="70" <input type="text" name="name" /></textarea> 
<input type="submit" value="Send Comment">
</form>

我的comments.asp文件代码是

<form method="post" action="comments.asp">
<br><br>
Age <input type="text" name="age" />
Name<textarea rows="1" cols="70" <input type="text" name="name" /></textarea> 
<input type="submit" value="Send Comment">
</form>

Answer 1

<%
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
'Open the file for writing
Set f = fso.CreateTextFile(s_path & "/" & s_file_being_created, True)
f.Write(m)
f.Close
Set f = Nothing
Set fso = Nothing
%>

Answer 2

\r\n

\r\n

namespace A6\r\n{\r\n    public partial class imanik : System.Web.UI.Page\r\n    {\r\n        public class RedTabele {\r\n            public string sifra { get; set; }\r\n            public string ime { get; set; }\r\n            public string prezime { get; set; }\r\n            public string adresa { get; set; }\r\n            public string mesto { get; set; }\r\n            public string broj { get; set; }\r\n            public string mail { get; set; }\r\n        }\r\n\r\n        protected void Page_Load(object sender, EventArgs e)\r\n        {\r\n            if (!this.IsPostBack)\r\n            {\r\n                // Lista za mesta\r\n                List<string> mesta = new List<string>();\r\n\r\n                using (StreamReader sr = new StreamReader(Server.MapPath("imenik.txt")))\r\n                {\r\n                    string line;\r\n                    while ((line = sr.ReadLine()) != null)\r\n                    {\r\n                        /* line = \xd0\xa8\xd0\xb8\xd1\x84\xd1\x80\xd0\xb0 \xd0\xba\xd0\xbe\xd1\x80\xd0\xb8\xd1\x81\xd0\xbd\xd0\xb8\xd0\xba\xd0\xb0 | \xd0\x98\xd0\xbc\xd0\xb5 | \xd0\x9f\xd1\x80\xd0\xb5\xd0\xb7\xd0\xb8\xd0\xbc\xd0\xb5 | \xd0\x90\xd0\xb4\xd1\x80\xd0\xb5\xd1\x81\xd0\xb0 | \xd0\x9c\xd0\xb5\xd1\x81\xd1\x82\xd0\xbe | \xd0\x91\xd1\x80\xd0\xbe\xd1\x98 \xd1\x82\xd0\xb5\xd0\xbb\xd0\xb5\xd1\x84\xd0\xbe\xd0\xbd\xd0\xb0 | e-mail  */\r\n                        string[] podeljeno = line.Split(\'|\');\r\n\r\n                        string mesto = podeljeno[4];\r\n\r\n                        mesto = mesto.Trim();\r\n\r\n                        mesta.Add(mesto);\r\n\r\n\r\n\r\n                    }\r\n                }\r\n\r\n                List<string> bezDuplikata = mesta.Distinct().ToList();\r\n                for (int i = 0; i < bezDuplikata.Count; i++)\r\n                {\r\n                    ListaMesto.Items.Add(bezDuplikata[i]);\r\n                }\r\n            }\r\n\r\n        }\r\n\r\n        protected void Button1_Click(object sender, EventArgs e)\r\n        {\r\n            // sakri i ocisti table \r\n            Table1.Rows.Clear();\r\n            Table1.Visible = false;\r\n\r\n            // uzimanje podataka iz txtboxova\r\n            string ime = txtIme.Text;\r\n            string prezime = txtPrezime.Text;\r\n            string adresa = txtAdresa.Text;\r\n            string mesto = ListaMesto.Text;\r\n            string br = txtTel.Text;\r\n\r\n            // lista rezultata\r\n            // Gore smo napravili klasu za ovo\r\n            List<RedTabele> rezultati = new List<RedTabele>();\r\n\r\n            using (StreamReader sr = new StreamReader(Server.MapPath("imenik.txt")))\r\n            {\r\n                string line;\r\n                while ((line = sr.ReadLine()) != null)\r\n                {\r\n                    /* line = \xd0\xa8\xd0\xb8\xd1\x84\xd1\x80\xd0\xb0 \xd0\xba\xd0\xbe\xd1\x80\xd0\xb8\xd1\x81\xd0\xbd\xd0\xb8\xd0\xba\xd0\xb0 | \xd0\x98\xd0\xbc\xd0\xb5 | \xd0\x9f\xd1\x80\xd0\xb5\xd0\xb7\xd0\xb8\xd0\xbc\xd0\xb5 | \xd0\x90\xd0\xb4\xd1\x80\xd0\xb5\xd1\x81\xd0\xb0 | \xd0\x9c\xd0\xb5\xd1\x81\xd1\x82\xd0\xbe | \xd0\x91\xd1\x80\xd0\xbe\xd1\x98 \xd1\x82\xd0\xb5\xd0\xbb\xd0\xb5\xd1\x84\xd0\xbe\xd0\xbd\xd0\xb0 | e-mail  */\r\n                    string[] podeljeno = line.Split(\'|\');\r\n\r\n                    string sifraTXT = podeljeno[0];\r\n                    string imeTXT = podeljeno[1];\r\n                    string prezimeTXT = podeljeno[2];\r\n                    string adresaTXT = podeljeno[3];\r\n                    string mestoTXT = podeljeno[4];\r\n                    string brTXT = podeljeno[5];\r\n                    string mailTXT = podeljeno[6];\r\n\r\n                    sifraTXT = sifraTXT.Trim();\r\n                    imeTXT = imeTXT.Trim();\r\n                    prezimeTXT = prezimeTXT.Trim();\r\n                    adresaTXT = adresaTXT.Trim();\r\n                    mestoTXT = mestoTXT.Trim();\r\n                    brTXT = brTXT.Trim();\r\n                    mailTXT = mailTXT.Trim();\r\n\r\n\r\n                    bool ImeOk = true;\r\n                    bool PrezimeOk = true;\r\n                    bool AdresaOk = true;\r\n                    bool MestoOk = true;\r\n                    bool BrOk = true;\r\n\r\n                    if (ime != "") {\r\n                        ImeOk = imeTXT.StartsWith(ime);\r\n                    }\r\n\r\n                    if (prezime != "")\r\n                    {\r\n                        PrezimeOk = prezimeTXT.StartsWith(prezime);\r\n                    }\r\n\r\n                    if (adresa != "")\r\n                    {\r\n                        AdresaOk = adresaTXT.StartsWith(adresa);\r\n                    }\r\n\r\n                    if (br != "")\r\n                    {\r\n                        BrOk = brTXT.StartsWith(br);\r\n                    }\r\n\r\n                    if (mesto != mestoTXT)\r\n                        MestoOk = false;\r\n\r\n\r\n\r\n                    if (ImeOk && PrezimeOk && AdresaOk && MestoOk && BrOk)\r\n                    {\r\n                        rezultati.Add(new RedTabele { \r\n                            sifra = sifraTXT,\r\n                            ime = imeTXT,\r\n                            prezime = prezimeTXT,\r\n                            adresa = adresaTXT,\r\n                            mesto = mestoTXT,\r\n                            broj = brTXT,\r\n                            mail = mailTXT\r\n                        });\r\n                    }\r\n\r\n\r\n                }\r\n\r\n                // Create Table\r\n                TableRow naslovna = new TableRow();\r\n                Table1.Rows.Add(naslovna);\r\n\r\n                TableCell tdSifra = new TableCell();\r\n                tdSifra.Text = "Sifra";\r\n\r\n                TableCell tdIme = new TableCell();\r\n                tdIme.Text = "Ime";\r\n\r\n                TableCell tdPrezime = new TableCell();\r\n                tdPrezime.Text = "Prezime";\r\n\r\n                TableCell tdAdresa = new TableCell();\r\n                tdAdresa.Text = "Adresa";\r\n\r\n                TableCell tdMesto = new TableCell();\r\n                tdMesto.Text = "Mesto";\r\n\r\n                TableCell tdBroj = new TableCell();\r\n                tdBroj.Text = "Broj";\r\n\r\n                TableCell tdMail = new TableCell();\r\n                tdMail.Text = "Mail";\r\n\r\n                naslovna.Cells.Add(tdSifra);\r\n                naslovna.Cells.Add(tdIme);\r\n                naslovna.Cells.Add(tdPrezime);\r\n                naslovna.Cells.Add(tdAdresa);\r\n                naslovna.Cells.Add(tdMesto);\r\n                naslovna.Cells.Add(tdBroj);\r\n                naslovna.Cells.Add(tdMail);\r\n            \r\n\r\n               \r\n\r\n                \r\n                for (int i = 0; i < rezultati.Count; i++) {\r\n                    TableRow red = new TableRow();\r\n\r\n                    TableCell sifraKol = new TableCell();\r\n                    TableCell imeKol = new TableCell();\r\n                    TableCell prezimeKol = new TableCell();\r\n                    TableCell adresaKol = new TableCell();\r\n                    TableCell mestoKol = new TableCell();\r\n                    TableCell brojKol = new TableCell();\r\n                    TableCell mailKol = new TableCell();\r\n\r\n                    sifraKol.Text = rezultati[i].sifra;\r\n                    imeKol.Text = rezultati[i].ime;\r\n                    prezimeKol.Text = rezultati[i].prezime;\r\n                    adresaKol.Text = rezultati[i].adresa;\r\n                    mestoKol.Text = rezultati[i].mesto;\r\n                    brojKol.Text = rezultati[i].broj;\r\n                    mailKol.Text = rezultati[i].mail;\r\n\r\n                    red.Controls.Add(sifraKol);\r\n                    red.Controls.Add(imeKol);\r\n                    red.Controls.Add(prezimeKol);\r\n                    red.Controls.Add(adresaKol);\r\n                    red.Controls.Add(mestoKol);\r\n                    red.Controls.Add(brojKol);\r\n                    red.Controls.Add(mailKol);\r\n\r\n                    Table1.Rows.Add(red);\r\n                }\r\n               \r\n\r\n                Table1.Visible = true;\r\n\r\n\r\n\r\n            }\r\n        }\r\n    }\r\n}

\r\n

\r\n

\r\n

\n\n

using System;\nusing System.Collections.Generic;\nusing System.Linq;\nusing System.Web;\nusing System.Web.UI;\nusing System.Web.UI.WebControls;\n// Za tekstualne fajlove\nusing System.IO;\n\nnamespace A6\n{\n    public partial class imanik : System.Web.UI.Page\n    {\n        public class RedTabele\n        {\n            public string sifra { get; set; }\n\n        }\n\n        protected void Page_Load(object sender, EventArgs e)\n        {\n            if (!this.IsPostBack)\n            {\n\n                List<string> mesta = new List<string>();\n\n                using (StreamReader sr = new StreamReader(Server.MapPath("imenik.txt")))\n                {\n                    string line;\n                    while ((line = sr.ReadLine()) != null)\n                    {\n\n                        string[] podeljeno = line.Split(\'|\');\n\n                        string mesto = podeljeno[4];\n\n                        mesto = mesto.Trim();\n\n                        mesta.Add(mesto);\n\n\n\n                    }\n                }\n\n                List<string> bezDuplikata = mesta.Distinct().ToList();\n                for (int i = 0; i < bezDuplikata.Count; i++)\n                {\n                    ListaMesto.Items.Add(bezDuplikata[i]);\n                }\n            }\n\n        }\n\n        protected void Button1_Click(object sender, EventArgs e)\n        {\n\n            Table1.Rows.Clear();\n            Table1.Visible = false;\n\n\n            string ime = txtIme.Text;\n            string prezime = txtPrezime.Text;\n            string adresa = txtAdresa.Text;\n            string mesto = ListaMesto.Text;\n            string br = txtTel.Text;\n\n\n            List<RedTabele> rezultati = new List<RedTabele>();\n\n            using (StreamReader sr = new StreamReader(Server.MapPath("imenik.txt")))\n            {\n                string line;\n                while ((line = sr.ReadLine()) != null)\n                {\n\n                    string[] podeljeno = line.Split(\'|\');\n\n                    string sifraTXT = podeljeno[0];\n\n\n                    sifraTXT = sifraTXT.Trim();\n\n\n\n                    bool ImeOk = true;\n                    bool PrezimeOk = true;\n                    bool AdresaOk = true;\n                    bool MestoOk = true;\n                    bool BrOk = true;\n\n                    if (ime != "")\n                    {\n                        ImeOk = imeTXT.StartsWith(ime);\n                    }\n\n\n\n\n\n                    if (ImeOk && PrezimeOk && AdresaOk && MestoOk && BrOk)\n                    {\n                        rezultati.Add(new RedTabele\n                        {\n                            sifra = sifraTXT,\n\n                        });\n                    }\n\n\n                }\n\n                // Create Table\n                TableRow naslovna = new TableRow();\n                Table1.Rows.Add(naslovna);\n\n                TableCell tdSifra = new TableCell();\n                tdSifra.Text = "Sifra";\n\n\n\n                naslovna.Cells.Add(tdSifra);\n\n\n\n\n\n\n                for (int i = 0; i < rezultati.Count; i++)\n                {\n                    TableRow red = new TableRow();\n\n                    TableCell sifraKol = new TableCell();\n\n\n                    sifraKol.Text = rezultati[i].sifra;\n\n\n                    red.Controls.Add(sifraKol);\n\n\n                    Table1.Rows.Add(red);\n                }\n\n\n                Table1.Visible = true;\n\n\n\n            }\n        }\n    }\n}\n

\n