Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Открытие текстового файла из ASP.... Добавлено: 13.02.03 12:16  

Автор вопроса:  STEAM | ICQ: 276847102 

Ну что я здесь делаю не так...???... не открывается *.txt и всё тут

.... а главное и не ругается ни на что.... просто пустой экран.

<%@ LANGUAGE=VBScript %>
<%


Const ForReading = 1, ForWriting = 2, ForAppending = 3
 
  Dim fs, f , retstring

  Set fs = CreateObject("Scripting.FileSystemObject")

  Set f = fs.OpenTextFile("c:\tx.txt", ForReading , False)
 
do while not (f.atEndOfStream)

retstring = f.ReadLine

  loop

  f.Close
%>

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 Павел



Администратор

ICQ: 326066673 

Вопросов: 368
Ответов: 5968
  Web-сайт: www.vbnet.ru
 Профиль | | #1 		Добавлено: 13.02.03 14:58

А почему он должен что-то выводить? Выводит ь надо методом Write объекта Response.

<%@ LANGUAGE=VBScript %>
<%


Const ForReading = 1, ForWriting = 2, ForAppending = 3
 
  Dim fs, f , retstring

  Set fs = CreateObject("Scripting.FileSystemObject")

  Set f = fs.OpenTextFile("c:\tx.txt", ForReading , False)
 
do while not (f.atEndOfStream)

Response.Write f.ReadLine & vbCrLf

  loop

  f.Close
%>

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам