.txt вставить в .asp файл - PullRequest
Новая
       0

.txt вставить в .asp файл

0 голосов
/ 09 марта 2012

Я новичок в ASP и у меня возникли небольшие проблемы.

CMS помещает данные в файлы .txt.У меня нет возможности изменить то, что выводит CMS, поэтому они должны быть .txt-файлами.

текстовый файл с именем textfile.txt выглядит так: 

widetxt=<P align='left'><B>Hello world!</B></P>&done=1

Мне нужнодля отображения переменной "widetxt" на странице .asp.

Структура каталогов выглядит следующим образом:

ASP-файл находится в корне папки, textfile.txt находится в папкес именем «txt» вне корневой папки. 

index.asp
[txt]
  |----textfile.txt

Я попробовал приведенный ниже код в файле asp, но получаю ошибку 500: «500 - Внутренняя ошибка сервера. Возникла проблема с ресурсомвы ищете, и он не может быть отображен. "

<%
Set fs = CreateObject("Scripting.FileSystemObject")

Set wfile = fs.OpenTextFile(Server.MapPath("txt/textfile.txt"),1,true))
filecontent = wfile.ReadAll

wfile.close
Set wfile=nothing
Set fs=nothing

response.write(filecontent)
%>

Я точно знаю, что оба файла находятся на сервере и находятся там, где они должны быть.

Если я удалюприведенный выше код, и просто положить: 

<%
response.write("Hello World!")
%>

файл asp работает.Итак, что-то в коде OpenTextFile неверно, но у меня нет опыта, чтобы узнать, что это такое.

Любая помощь будет признательна.

1 Ответ

1 голос
/ 09 марта 2012 
Set wfile = fs.OpenTextFile(Server.MapPath("txt/textfile.txt"),1,true))

У вас есть слишком много ) в конце этого утверждения. Каждый ( должен иметь соответствующий ). 

Set wfile = fs.OpenTextFile(Server.MapPath("txt/AttachmentFix.txt"),1,true)

Кроме того, я не вижу остатка вашего кода, но после вашего response.write(filecontent) обязательно установите filecontent как Nothing. 

Set filecontent = Nothing

Кроме того, когда вы разрабатываете в Classic ASP, @jsobo прав: у вас должны быть отключены сообщения Friendly Error, поскольку вы можете видеть, какие ошибки выдает скрипт.

...