如何创建一个新的文本文件与asp

我想写一个程序，创建一个新的文本文件与asp。它给微软VBScript运行时错误'800a0035'。但是，当我为

行更改文件时

Set f=fs.GetFile("c:vie4.txt")

到一个已经存在的文件，它不会给出这个错误。

你好!
欢迎来到我的网站!
Microsoft VBScript运行时错误'800a0035'
文件未找到
/simple2.asp第33行

<!DOCTYPE html>
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title></title>
</head>
<body>
    <form id="form1"  method ="post" action = "simple2.asp"  runat="server"  >
    <div>
        <input id="Text1" type="text"  value =  "fname"   />
        <input id="Text2" type="text"  value ="lname" />
    </div>
    </form>
    <%
response.write(request.querystring("fname"))
response.write(" " & request.querystring("lname"))
        fname = request.querystring("fname")
        lname =  request.querystring("lname")
response.write("<p>Hello " & fname & " " & lname & "!</p>")
response.write("<p>Welcome to my Web site!</p>")
Dim fs,f
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.GetFile("c:vie4.txt")
Response.Write("File created: " & f.DateCreated)
set f=nothing
set fs=nothing
%>
</body>
</html>

如果有疑问，请阅读文档。GetFile不创建文件。使用CreateTextFile:

...
filename = "c:vie4.txt"
If Not fs.FileExists(filename) Then fs.CreateTextFile filename
Set f = fs.GetFile(filename)
...

   Table1.Rows.Clear();
            List<Knjiga> knjige = new List<Knjiga>();
            XmlDocument doc = new XmlDocument();
            doc.Load(Server.MapPath("biblioteka.xml"));
            foreach (XmlElement el in doc.GetElementsByTagName("knjiga"))
            {
                knjige.Add(new Knjiga()
                {
                    ISBN = el.GetAttribute("ISBN"),
                    Naslov = el.GetAttribute("naslov"),
                    Stanje = Int32.Parse(el.GetAttribute("stanje")),
                    Citano = Int32.Parse(el.GetAttribute("citano"))
                });
            }
            knjige = knjige.OrderByDescending(d => d.Citano).ToList();
            foreach (var knjiga in knjige)
            {
                TableRow tr = new TableRow();
                // Cells
                TableCell isbn = new TableCell();
                TableCell naslov = new TableCell();
                TableCell stanje = new TableCell();
                TableCell citano = new TableCell();
                isbn.Text = knjiga.ISBN;
                naslov.Text = knjiga.Naslov;
                stanje.Text = knjiga.Stanje.ToString();
                citano.Text = knjiga.Citano.ToString();
                tr.Cells.AddRange(new TableCell[]{ isbn, naslov, stanje, citano});
                Table1.Rows.Add(tr);
            }

相关内容

最新更新

热门标签：