| Вопрос: news ошибка скрипта | Добавлено: 23.11.05 18:37 |
Автор вопроса:  zix
|
|
Есть скрипт
Set NNTP = Server.CreateObject("AspNNTP.Conn") NNTP.Server = "news.may.ua" NNTP.PrepareToPost NNTP.Subject = "Test" NNTP.FromName = "ZIX" NNTP.FromAddress = "zix@may.ua" NNTP.BodyText = "This is only a test. " NNTP.Groups = "admin.post" Set NNTP = nothing Сделал regsvr32 aspnntp.dll Сервер новостей без аунтентификации. Скрипт дает ошибку Line: 1 Char: 3 Error: Object required: 'Server' Code: 800A01A8 Подскажите где ошибка |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 23.11.05 18:59 |
|
Это вы в ASP используете или в клиентском VBScript?
|
||
|
Номер ответа: 2 Автор ответа: zix Вопросов: 1 Ответов: 3 |
Профиль | Цитата | #2 | Добавлено: 24.11.05 10:14 |
|
В клиентском VBScript
*.vbs |
||
|
Номер ответа: 3 Автор ответа:  ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | Цитата | #3 | Добавлено: 24.11.05 10:18 |
|
В клиентском скрипте объекта Server не существует. Для создания объекта воспользуйтесь таким кодом:
Set NNTP = CreateObject("AspNNTP.Conn"
 |
||
|
Номер ответа: 4 Автор ответа: zixВопросов: 1 Ответов: 3 |
Профиль | Цитата | #4 | Добавлено: 24.11.05 11:13 |
|
Ошибок нет, но и в конференции то же нет сообщения
Posting разрешён |
||
|
Номер ответа: 5 Автор ответа: ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | Цитата | #5 | Добавлено: 24.11.05 12:43 |
|
Это уже изучай особенности работы с AspNNTP. Честно говоря, о нем раньше даже не слышал.
Но судя по коду, видно, что он работать и не должен. Инициализация свойств объекта ест, а вот метода отправки сообщения - нету. |
||
|
Номер ответа: 6 Автор ответа: zixВопросов: 1 Ответов: 3 |
Профиль | Цитата | #6 | Добавлено: 24.11.05 13:30 |
|
Set objEmail = CreateObject("CDO.Message"
CRLF = Chr(13)+Chr(10) objEmail.From = "zix1@may.ua" objEmail.To = "zix2@may.ua" objEmail.Subject = "Test" objEmail.Textbody = "test" objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing" = 2
objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver" = "mail.may.ua"
objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport" = 25
objEmail.Configuration.Fields.Update objEmail.Send А вот этот код работает только для почты И в чем сильная разница |
||
|
Номер ответа: 7 Автор ответа: ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | Цитата | #7 | Добавлено: 24.11.05 13:34 |
| Как минимум в том, что почту ты отправляешь (вызов метода Send в последней строчке), а NNTP-сообщение - нет. | ||
Страница: 1 |