Отправка e-male

@AOTE · Регистрация: 29.07.2007

Студворк — интернет-сервис помощи студентам

Есть какая-нибудь прибулда позволяющая из винды отправлять мыло, через Telnet, по заранее описанному сценарию? Telnet даже не обязателен, главное, что бы не нужно было устанавливать всякие Апачи, ИИС, и почтовые клиенты.
Притом реализовать это надо либо batником, либо vbs.

@bazile · 12.04.2012, 12:11

Попробовал этот пример. У меня ошибок не возникает. Надо попробовать понять что точно скрывается за ошибкой с номером 0x80040211. Для этого возьми приложеный файл 500-100.asp.txt, переименуй его в asp. Выложи его на свой сайт. Затем подключи его в настройках IIS для этого сайта как обработчик ошибки 500;100. Запусти скрипт и посмотри что какую ошибку он тебе выдаст.

Еще пара комментариев по твоему коду:
1. Вместо условия If request("Content_Length")<>0 then лучше писать If "POST"=Request.ServerVariables("HTTP_MET HOD") Then. То есть мы явно проверяем что используется метод POST. Это более наглядно по моему.

2. Раз ты используешь метод POST, то для получения данных формы пользуйся коллекцией Request.Form, а не Request. Дело в том что если параметр был передан в строке запроса и в формой (POST), то ты получишь параметр из строки запроса. Это потенциальая дырка в твоем сайте.
Поэтому пишем
.From = Request.Form("femail")
.To = Request.Form("semail")
.Subject = Request.Form("subj")

3. При отправке формы на саму себя удобно использовать такую форму записи
<form action="<%=Request.ServerVariables("SCRI PT_NAME")%>" method="post
Здесь имя файла подставляется автоматически так, что если ты переименуешь файл с формой, тебе не придется вносить изменений в код. Очень удобно.

@MasterDzen · 12.04.2012, 12:57

Сообщение от bazile

Еще пара комментариев по твоему коду:
...

от веть..
применил "комментарии" к файлику и все заработало..
может и правда дело в том, что запрос брался с формы нехорошо
[underline]Спасибо![/underline] пойду покорять просторы интернета ))

зыж а вложенный файлик можно применять для детального отображения тока данной ситуации или впринципе всегда?

@bazile · 12.04.2012, 13:05

Сообщение от MasterDzen

зыж а вложенный файлик можно применять для детального отображения тока данной ситуации или впринципе всегда?

Всегда. Это универсальный обработчик ошибок. Только не надо применять его на рабочем сервере по той простой причине что нельзя показывать всем посетителям своего сайта настоящий текст ошибки. Это подарок хакерам. Модифицируй этот файл так чтобы он отправлял сообщение о ошибке по почте или скидывал в лог, а посетителю показывай текст типа "Извините, на сервере произошла внутренняя ошибка".

@MasterDzen · 12.04.2012, 16:39

Сообщение от bazile

3. При отправке формы на саму себя удобно использовать такую форму записи
<form action="<%=Request.ServerVariables("SCRI PT_NAME")%>" method="post
Здесь имя файла подставляется автоматически так, что если ты переименуешь файл с формой, тебе не придется вносить изменений в код. Очень удобно.

удобно )
а как можно получить путь к дирректории где находится документ?
или может есть список всех ServerVariables'ов?

@bazile · 12.04.2012, 18:19

Сообщение от MasterDzen

или может есть список всех ServerVariables'ов?

Наверняка где-то есть, но я всегда их просто распечатывал

Code
1
2
3
4
5
6
7
<table border=1 cellpadding=1 cellspacing=0>
<%
For Each HttpVar In Request.ServerVariables
    Response.Write("<tr><td>" & HttpVar & "</td><td> " & Request.ServerVariables(HttpVar) & "</td></tr>" & vbCrlf)
Next
%>
</table>

Сообщение от MasterDzen

а как можно получить путь к дирректории где находится документ?

Сткроковыми функциями можно его выделить (получив позицию последнего ) или методом GetParentFolderName объекта Scripting.FileSystemObject.

@MasterDzen · 15.04.2012, 12:10

эхх..
пробовал найти тему, где говорят про запись файлов, поиск почему то обрывается
ничего не нашлось, потому пишу суда )

можно ли при использовании:

fname = Server.MapPath("/oFice/test") + "file.xml"
Set fs = Server.CreateObject("Scripting.FileSyste mObject")
set out = fs.CreateTextFile(fname, TRUE, FALSE)
out.WriteLine(sReg1)
out.close

записывать текст в файл определенной кодировкой?
он пишется в DOS, а надо UTF-8..

@bazile · 15.04.2012, 12:23

Scripting.FileSystemObject может работать только с Unicode (UTF-16), третий аргумент CreateTextFile как раз и указывает использовать кодировку Unicode или ASCII.

Если нужна именно кодировка utf-8, то пользуйся объектом ADODB.Stream
Set adoStream = CreateObject("ADODB.Stream")
adoStream.Charset = "utf-8"
adoStream.Mode = 3 ' adModeReadWrite
adoStream.Type = 2 ' adTypeText
adoStream.Open
adoStream.WriteText("Привет! Hello")
Call adoStream.SaveToFile("test.txt", 2)
adoStream.Close

И пожалуйста, MasterDzen, в будущем для новых вопросов создавай отдельную тему.

Новые блоги и статьи Все статьи Все блоги /
Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .
Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .	Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .	Жизня: рисунок укладки багажа, сделанный клодом anaschu 21.08.2026 Сделал 15 снимков, он по снимкам сделал схему.	Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .

@AOTE 0 / 0 / 0 Регистрация: 29.07.2007 Сообщений: 166

	Отправка e-male 22.11.2011, 15:58. Показов 5552. Ответов 26 Метки нет (Все метки) Есть какая-нибудь прибулда позволяющая из винды отправлять мыло, через Telnet, по заранее описанному сценарию? Telnet даже не обязателен, главное, что бы не нужно было устанавливать всякие Апачи, ИИС, и почтовые клиенты. Притом реализовать это надо либо batником, либо vbs. 0

@bazile 86 / 62 / 69 Регистрация: 15.03.2007 Сообщений: 6,903
	12.04.2012, 12:11
	Попробовал этот пример. У меня ошибок не возникает. Надо попробовать понять что точно скрывается за ошибкой с номером 0x80040211. Для этого возьми приложеный файл 500-100.asp.txt, переименуй его в asp. Выложи его на свой сайт. Затем подключи его в настройках IIS для этого сайта как обработчик ошибки 500;100. Запусти скрипт и посмотри что какую ошибку он тебе выдаст. Еще пара комментариев по твоему коду: 1. Вместо условия If request("Content_Length")<>0 then лучше писать If "POST"=Request.ServerVariables("HTTP_MET HOD") Then. То есть мы явно проверяем что используется метод POST. Это более наглядно по моему. 2. Раз ты используешь метод POST, то для получения данных формы пользуйся коллекцией Request.Form, а не Request. Дело в том что если параметр был передан в строке запроса и в формой (POST), то ты получишь параметр из строки запроса. Это потенциальая дырка в твоем сайте. Поэтому пишем .From = Request.Form("femail") .To = Request.Form("semail") .Subject = Request.Form("subj") 3. При отправке формы на саму себя удобно использовать такую форму записи <form action="<%=Request.ServerVariables("SCRI PT_NAME")%>" method="post Здесь имя файла подставляется автоматически так, что если ты переименуешь файл с формой, тебе не придется вносить изменений в код. Очень удобно. 0

@MasterDzen 0 / 0 / 0 Регистрация: 10.04.2012 Сообщений: 47
	15.04.2012, 12:10
	эхх.. пробовал найти тему, где говорят про запись файлов, поиск почему то обрывается ничего не нашлось, потому пишу суда ) можно ли при использовании: fname = Server.MapPath("/oFice/test") + "file.xml" Set fs = Server.CreateObject("Scripting.FileSyste mObject") set out = fs.CreateTextFile(fname, TRUE, FALSE) out.WriteLine(sReg1) out.close записывать текст в файл определенной кодировкой? он пишется в DOS, а надо UTF-8.. 0

@bazile 86 / 62 / 69 Регистрация: 15.03.2007 Сообщений: 6,903
	15.04.2012, 12:23
	Scripting.FileSystemObject может работать только с Unicode (UTF-16), третий аргумент CreateTextFile как раз и указывает использовать кодировку Unicode или ASCII. Если нужна именно кодировка utf-8, то пользуйся объектом ADODB.Stream Set adoStream = CreateObject("ADODB.Stream") adoStream.Charset = "utf-8" adoStream.Mode = 3 ' adModeReadWrite adoStream.Type = 2 ' adTypeText adoStream.Open adoStream.WriteText("Привет! Hello") Call adoStream.SaveToFile("test.txt", 2) adoStream.Close И пожалуйста, MasterDzen, в будущем для новых вопросов создавай отдельную тему. 0