Как открыть файл в ASP - PullRequest
Новая
       8

Как открыть файл в ASP

1 голос
/ 10 октября 2011

Я не знаю, как открыть файл в ASP. Вот мой код, который не работает. 

<%
    Dim vid_file
    vid_file = Request.ServerVariables("APPL_PHYSICAL_PATH")& "cannon\pay\vid.dat"
    Dim vkey_file
    vkey_file = Request.ServerVariables("APPL_PHYSICAL_PATH")& "cannon\pay\vkey.dat"

    dim fp1,f
    set fp1 = Server.CreateObject("Scripting.FileSystemObject")
    set f=fp1.OpenTextFile(Server.MapPath("vid_file"),8,true)
    f.WriteLine("This text will be added to the end of file")
    f.Close

    set f=Nothing
    set fp1=Nothing

    'Single Variable Declarations
    dim fp2,f2
    set fp2 = Server.CreateObject("Scripting.FileSystemObject")

    'fExists=FileSysObj.FileExists(vid_file)
    set f2=fp2.OpenTextFile(Server.MapPath("vkey_file"),8,true)
    'set TextStreamObj = fp2.OpenTextFile(vkey_file,1,true) 
    'TextStreamObj.WriteLine("This text will be added to the end of file")
    f2.WriteLine("This text will be added to the end of file")
    f2.Close

    set f2=Nothing
    set fp2=Nothing
%>

1 Ответ

1 голос
/ 10 октября 2011 
<%
    Dim vid_file
    vid_file = Request.ServerVariables("APPL_PHYSICAL_PATH")& "cannon\pay\vid.dat"
    Dim vkey_file
    vkey_file = Request.ServerVariables("APPL_PHYSICAL_PATH")& "cannon\pay\vkey.dat"

    dim fp1,f
    set fp1 = Server.CreateObject("Scripting.FileSystemObject")
     set f=fp1.OpenTextFile(vid_file,8,true)
    f.WriteLine("This text will be added to the end of file")
    f.Close
    set f=Nothing
    set fp1=Nothing
    'Single Variable Declarations
    dim fp2,f2
    set fp2 = Server.CreateObject("Scripting.FileSystemObject")
    'fExists=FileSysObj.FileExists(vid_file)
    set f2=fp2.OpenTextFile(vkey_file,8,true)
    'set TextStreamObj = fp2.OpenTextFile(vkey_file,1,true) 
    'TextStreamObj.WriteLine("This text will be added to the end of file")
    f2.WriteLine("This text will be added to the end of file")
    f2.Close
    set f2=Nothing
    set fp2=Nothing
    %>
...