У меня небольшая проблема, так как я не знаю ASP. Но страницы, созданные для веб -сайта моего дяди, находятся в ASP, и форма тоже. У меня возникли проблемы с привлечением его формы, чтобы работать, и искать ошибки, и я нашел PDF из Fastost, и я пробую этот код, но не понимаю, где я поместил свой адрес электронной почты, чтобы отправить информацию, а также как добавить другую информацию, такую как имя. < /p>
Это код, который я пытаюсь: < /p>
dim oCdoMsg, oCdoConfg, strReferer, strServer,
strClientIP, strServerIP, blnSpam
set oCdoMsg = server.createobject("CDO.Message")
strReferer = request.servervariables("HTTP_REFERER")
strServer = Replace(request.servervariables("SERVER_NAME"), "www.", "")
strClientIP = request.servervariables("REMOTE_ADDR")
strServerIP = request.servervariables("LOCAL_ADDR")
strFrom = "noreply@" & strServer
intComp = inStr(strReferer, strServer)
If intComp > 0 Then
blnSpam = False
Else
' Spam Attempt Block
blnSpam = True
End If
oCdoMsg.to = request.form("email")
oCdoMsg.from = strFrom
oCdoMsg.Subject = "CDO Test Mail"
oCdoMsg.Textbody = "This test mail has been sent from
server "
oCdoMsg.Textbody = oCdoMsg.Textbody &
request.servervariables("LOCAL_ADDR") & " via CDO mail
objects."
strMSSchema =
"http://schemas.microsoft.com/cdo/configuration/"
Set oCdoConfg = Server.CreateObject("CDO.Configuration")
oCdoConfg.Fields.Item(strMSSchema & "sendusing") = 2
oCdoConfg.Fields.Item(strMSSchema & "smtpserver") =
"smtp.fasthosts.co.uk"
oCdoConfg.Fields.Update
Set oCdoMsg.Configuration = oCdoConfg
If NOT blnSpam Then
oCdoMsg.send
strResult = "Mail Sent."
Else
strResult = "Mail Not Sent."
End If
response.write strResult
set oCdoMsg = nothing
set oCdoConfg = nothing
< /code>
Я был бы признателен за любую помощь с этим, код, который находится на веб -сайте сейчас, показывает ошибку 500. Вот почему мне нужно использовать код выше. Мне просто нужна помощь, где добавить мою электронную почту домена и как привлечь другие части формы, такие как имя в код выше. < /P>
Спасибо < /p>
Подробнее здесь: https://stackoverflow.com/questions/837 ... -from-form
Форма ASP Добавить электронную почту, а также добавить другие поля из формы ⇐ Html
Программисты Html
1750378266
Anonymous
У меня небольшая проблема, так как я не знаю ASP. Но страницы, созданные для веб -сайта моего дяди, находятся в ASP, и форма тоже. У меня возникли проблемы с привлечением его формы, чтобы работать, и искать ошибки, и я нашел PDF из Fastost, и я пробую этот код, но не понимаю, где я поместил свой адрес электронной почты, чтобы отправить информацию, а также как добавить другую информацию, такую как имя. < /p>
Это код, который я пытаюсь: < /p>
dim oCdoMsg, oCdoConfg, strReferer, strServer,
strClientIP, strServerIP, blnSpam
set oCdoMsg = server.createobject("CDO.Message")
strReferer = request.servervariables("HTTP_REFERER")
strServer = Replace(request.servervariables("SERVER_NAME"), "www.", "")
strClientIP = request.servervariables("REMOTE_ADDR")
strServerIP = request.servervariables("LOCAL_ADDR")
strFrom = "noreply@" & strServer
intComp = inStr(strReferer, strServer)
If intComp > 0 Then
blnSpam = False
Else
' Spam Attempt Block
blnSpam = True
End If
oCdoMsg.to = request.form("email")
oCdoMsg.from = strFrom
oCdoMsg.Subject = "CDO Test Mail"
oCdoMsg.Textbody = "This test mail has been sent from
server "
oCdoMsg.Textbody = oCdoMsg.Textbody &
request.servervariables("LOCAL_ADDR") & " via CDO mail
objects."
strMSSchema =
"http://schemas.microsoft.com/cdo/configuration/"
Set oCdoConfg = Server.CreateObject("CDO.Configuration")
oCdoConfg.Fields.Item(strMSSchema & "sendusing") = 2
oCdoConfg.Fields.Item(strMSSchema & "smtpserver") =
"smtp.fasthosts.co.uk"
oCdoConfg.Fields.Update
Set oCdoMsg.Configuration = oCdoConfg
If NOT blnSpam Then
oCdoMsg.send
strResult = "Mail Sent."
Else
strResult = "Mail Not Sent."
End If
response.write strResult
set oCdoMsg = nothing
set oCdoConfg = nothing
< /code>
Я был бы признателен за любую помощь с этим, код, который находится на веб -сайте сейчас, показывает ошибку 500. Вот почему мне нужно использовать код выше. Мне просто нужна помощь, где добавить мою электронную почту домена и как привлечь другие части формы, такие как имя в код выше. < /P>
Спасибо < /p>
Подробнее здесь: [url]https://stackoverflow.com/questions/8375473/asp-form-add-email-to-and-also-add-other-fields-from-form[/url]
Ответить
1 сообщение
• Страница 1 из 1
Перейти
- Кемерово-IT
- ↳ Javascript
- ↳ C#
- ↳ JAVA
- ↳ Elasticsearch aggregation
- ↳ Python
- ↳ Php
- ↳ Android
- ↳ Html
- ↳ Jquery
- ↳ C++
- ↳ IOS
- ↳ CSS
- ↳ Excel
- ↳ Linux
- ↳ Apache
- ↳ MySql
- Детский мир
- Для души
- ↳ Музыкальные инструменты даром
- ↳ Печатная продукция даром
- Внешняя красота и здоровье
- ↳ Одежда и обувь для взрослых даром
- ↳ Товары для здоровья
- ↳ Физкультура и спорт
- Техника - даром!
- ↳ Автомобилистам
- ↳ Компьютерная техника
- ↳ Плиты: газовые и электрические
- ↳ Холодильники
- ↳ Стиральные машины
- ↳ Телевизоры
- ↳ Телефоны, смартфоны, плашеты
- ↳ Швейные машинки
- ↳ Прочая электроника и техника
- ↳ Фототехника
- Ремонт и интерьер
- ↳ Стройматериалы, инструмент
- ↳ Мебель и предметы интерьера даром
- ↳ Cантехника
- Другие темы
- ↳ Разное даром
- ↳ Давай меняться!
- ↳ Отдам\возьму за копеечку
- ↳ Работа и подработка в Кемерове
- ↳ Давай с тобой поговорим...
Мобильная версия