Хелп по ASP.NET

[Ivan Korneychuk]

Люди хелпните!
как организовать такую чачу?
есть некая страница с вопросами и с полями для ответов т.е. анкета! и резты анкеты надо скинуть на некое мыло! как это можно сделать? подскажите плиз!

[Akrom Obidov]

Привет!

Так, добавляеш в референсесах проекта ссылку на System.Web, далее в юсингах добавляеш using System.Web.Mail; а дальше приведен код ниже:

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using System.Web.Mail;

namespace MailTest
{
* * public partial class Form1 : Form
* * {
* * * * public Form1()
* * * * {
* * * * * * InitializeComponent();
* * * * }

* * * * private void button1_Click(object sender, EventArgs e)
* * * * {
* * * * * * MailMessage mailmsg = new MailMessage();* * * * * * * * * * * * * * * * * * * * * * * * * * * * * // Создается объект класса MailMessage 
* * * * * * mailmsg.To = "oakrom@cppmp.uz";* * * * * * * * * * * * * * * * * * * * * * *// Инициализия свойства То, это адрес кому направляется письмо
* * * * * * mailmsg.From = "oakrom@gmail.com";* * * * * * * * * * * * * * * * * *// Инициализия свойства From, это адрес от кого отправляется письмо* * * * * * 
* * * * * * mailmsg.Body = "Это тело письма";* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* * * * * * mailmsg.Subject = "Тема письма";* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* * * * * * mailmsg.BodyFormat = System.Web.Mail.MailFormat.Text;* * * * * * * * * * * * * * * * * * * * * * * * * *//Формат редактирования содержания письма (Стиль)
* * * * * * 
* * * * * * System.Web.Mail.SmtpMail.SmtpServer = "Айпи адрес сервера или имя сервера";
* * * * * * try
* * * * * * {
* * * * * * * * System.Web.Mail.SmtpMail.Send(mailmsg);* * * * * * * * * * * * * * * * * * * * * * * *// Здесь и происходит отправление письма
* * * * * * }
* * * * * * catch(Exception ex)
* * * * * * {
* * * * * * * * MessageBox.Show(ex.Message);* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //Отлавливаем ошибку (Если она конечно возникнет)
* * * * * * }
* * * * }
* * }
}

Есть еще один ньюанс, если у тя стоит проксятник с маил сервером этим кодом ты на МИР (в смысле в Интернет) письмо не отправиш, потому что он это поймет как спам (скорее всего, я так предполагаю) и перекроет твое письмо, для этого есть один способ код приведен ниже:

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using System.Web.Mail;

namespace MailTest
{
* * public partial class Form1 : Form
* * {
* * * * public Form1()
* * * * {
* * * * * * InitializeComponent();
* * * * }

* * * * private void button1_Click(object sender, EventArgs e)
* * * * {
* * * * * * MailMessage mailmsg = new MailMessage();* * * * * * * * * * * * * * * * * * * * * * * * * * * * * // Создается объект класса MailMessage 
* * * * * * mailmsg.To = "oakrom@cppmp.uz";* * * * * * * * * * * * * * * * * * * * * * *// Инициализия свойства То, это адрес кому направляется письмо
* * * * * * mailmsg.From = "oakrom@gmail.com";* * * * * * * * * * * * * * * * * *// Инициализия свойства From, это адрес от кого отправляется письмо* * * * * * 
* * * * * * mailmsg.Body = "Это тело письма";* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* * * * * * mailmsg.Subject = "Тема письма";* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* * * * * * mailmsg.BodyFormat = System.Web.Mail.MailFormat.Text;* * * * * * * * * * * * * * * * * * * * * * * * * *//Формат редактирования содержания письма (Стиль)

* * * * * * mailmsg.Fields.Add("http://schemas.microsoft.com/cdo/con...pauthenticate", 1);* * * * * * * *
* * * * * * mailmsg.Fields.Add("http://schemas.microsoft.com/cdo/con.../sendusername", "Имя пользователя");
* * * * * * mailmsg.Fields.Add("http://schemas.microsoft.com/cdo/con.../sendpassword", "Пароль пользователя");

* * * * * * System.Web.Mail.SmtpMail.SmtpServer = "Айпи адрес сервера или имя сервера";
* * * * * * try
* * * * * * {
* * * * * * * * System.Web.Mail.SmtpMail.Send(mailmsg);* * * * * * * * * * * * * * * * * * * * * * * *// Здесь и происходит отправление письма
* * * * * * }
* * * * * * catch(Exception ex)
* * * * * * {
* * * * * * * * MessageBox.Show(ex.Message);* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //Отлавливаем ошибку (Если она конечно возникнет)
* * * * * * }
* * * * }
* * }
}

Если что то не понятно или туманно ждемс вопросов....

[Atham Mirazizov]

Прикладываю ексельный файл с макросом. Писал его год назад так что не уверен насчёт валидности сайта, а так было очень интересно "сдёргивать" информацию с сайта в ексель.
ЗЫ. Это не АСП а ВБ скрипт, так что может не по теме топика но как вариант решения.

[Atham Mirazizov]

Блин ексельный файл невозможно отправить, так что отправлю код формы:

Private Sub CommandButton1_Click()
Dim nn As New WinHttp.WinHttpRequest
'Dim fso As New Scripting.FileSystemObject
Dim strText As String
Dim allText As String
Dim tmpStr As TextStream
Dim i As Long
For i = 1 To 1000

'nn.SetProxy , "192.168.90.3:8080"


nn.Open "GET", "http://www.rightmove.co.uk/action/ShowBranch?ag_u=" & CStr(i)

nn.Send
nn.WaitForResponse
strText = nn.ResponseText
strText = Extract(strText)
If strText <> "" Then
strText = strText & vbCrLf
allText = allText & strText
End If
Next i
Dim fso As New Scripting.FileSystemObject
Set tmpStr = fso.CreateTextFile("C:\Part1.csv", False)
tmpStr.Write allText
tmpStr.Close
Set fso = Nothing


Set nn = Nothing
Label1.Caption = "IT IS DONE"
End Sub

Private Sub CommandButton2_Click()
Dim fso As New Scripting.FileSystemObject
Dim txtStrim As TextStream
Dim strText As String

strText = fso.OpenTextFile("c:\01.txt").ReadAll
strText = Extract(strText)
MsgBox strText
Set fso = Nothing
End Sub
Private Function Extract(strIn As String) As String
If InStr(1, strIn, "We are sorry", vbTextCompare) > 0 Then Exit Function
strIn = Mid(strIn, InStrRev(strIn, "<li><strong>", -1, vbTextCompare), 400)


strIn = Left$(strIn, InStr(1, strIn, "</ul>", vbTextCompare) - 1)
strIn = Replace(strIn, " ", "")
strIn = Replace(strIn, "<li><strong>", "")
strIn = Replace(strIn, "<br/>", ";")
strIn = Replace(strIn, "</strong></li>", "")
strIn = Replace(strIn, "<li>", ";")
strIn = Replace(strIn, "</li>", "")
'strIn = Replace(strIn, vbCrLf, "")
'strIn = Replace(strIn, vbCr, "")
strIn = Replace(strIn, "<strong>", "")
strIn = Replace(strIn, "Tel:", "")
strIn = Replace(strIn, "Fax:", "")
strIn = Replace(strIn, ",;", "")
strIn = Replace(strIn, Chr(13), "")
strIn = Replace(strIn, Chr(10), "")
Extract = strIn
'MsgBox strIn
End Function

[Ivan Korneychuk]

Большое спасибо за помощ! есть еще вопрос :
как сделать выплывающее меню с сылками! только на html (Можно с применением Java Script);
Я откапал один вариант ( AddMenu.Item(......)) но он мне не подходит т.к создает свой контрол ввиде меню с выплывающими окнами! а мне нужно одно выплывающее окно из любого места!

[Akrom Obidov]

Если можно подробнее и с примерами

[Ivan Korneychuk]

__________________
|Любой пикчурс или |
| кнопка. | при навелении на него должно появляться менюшка и исчезать при неиспользовании с
-------------------------------- интервалом несколько сек
\--------------------\
| Ссылка 1 |
| Ссылка 2 |
| Ссылка 3 |
| Ссылка 4 |
\---------------------\

[Aleksandr Vishinskiy]

Сообщение от <font color=#993300>Агроном</font>

* * * * * * * * * * * * * * * * * * * * * * * * *//Формат редактирования содержания письма (Стиль)

* * * * * * mailmsg.Fields.Add("http://schemas.microsoft.com/cdo/con...pauthenticate", 1);* * * * * * * *
* * * * * * mailmsg.Fields.Add("http://schemas.microsoft.com/cdo/con.../sendusername", "Имя пользователя");
* * * * * * mailmsg.Fields.Add("http://schemas.microsoft.com/cdo/con.../sendpassword", "Пароль пользователя");

* * * * * *
Если что то не понятно или туманно ждемс вопросов....

mailmsg.Fields.Add("http://schemas.microsoft.com/cdo/con...pauthenticate", 1) - 1 это что порт для прокси и "Имя пользователя" и Пароль пользователя тоже для прокси

[Akrom Obidov]

1 это типа "ДА", значит что с смтп аутентификацией, 0 это значит "НЕТ", значит что без смтп аутентификацией!
"Имя пользователя" и Пароль пользователя для прокси.

В принципе все, если что то не понятно тоды ждемс....

[hvostik]

Добрый день. ничего не понимаю в Asp - достался по наследству такой вод код менюшки. в опере и мозиле меню все развернутым показывает
если не трудно, подскажите как его поправить :cry:

Function rubricator(id_rub,id_rub_start,otstup)

Dim Sql ' SQL - çàïðîñ
Dim per_katalog(3) 'Ïåðåìåííûå êàòàëîãà

per_katalog(0)="id"
per_katalog(1)="goods_rubricator"
per_katalog(2)="Rub_Div"

if id_rub_start="" or id_rub_start="0" then id_rub_start=0
id_rub=id_rub+0
if id_rub="0" then id_rub=0
pr_mo=""
If otstup>0 Then pr_mo="-mo"
Text_Rub1="<table cellspacing=0 cellpadding=0 border=0><tr valign=top><td><img src='pics/blank.gif' width=#OTSTUP_WIDTH# height=3 border=0></td><td align=left width=13><a href="""&ActASP_Goods&"?id_basket=#ID_BASKET#&id=# ID#""><img src=pics/leftnav-2.gif width=13 height=15 border=0></a></td><td width='100%'><a class=leftgreen#CLASS_SELECT# href="""&ActASP_Goods&"?id_basket=#ID_BASKET#&id=# ID#"">#NAME_RUB#<font class=leftcifra>#NUM_GOODS#</font></a></td></tr></table>"
Text_Rub2="<table cellspacing=0 cellpadding=0 border=0><tr valign=top><td><img src='pics/blank.gif' width=#OTSTUP_WIDTH# height=3 border=0></td><td align=left width=13><a href=""#"" onclick=colp_change("""& per_katalog(2) &"_#ID#"")><img src=pics/leftnav-1.gif width=13 height=15 border=0></a></td><td width='100%'><a class=leftgreen#CLASS_SELECT# href=""#"" onclick=colp_change("""& per_katalog(2) &"_#ID#"")>#NAME_RUB#<font class=leftcifra>#NUM_GOODS#</font></a></td></tr><tr><td colspan=3><div#COLLAPSED# id="& per_katalog(2) &"_#ID#>#RUB_POZTEXT#</div></td></tr></table>"





ClassCollapsed=" class=collapsed"

Sql="SELECT id_rubric, rubric_name,id_rubric_parent, rubric_num_goods FROM goods_rubricator WHERE id_rubric_parent=" & id_rub_start & " ORDER BY ord, rubric_name;"
Set BD_Rub=BD.execute(Sql)

ALL_Text=""

Do While Not BD_Rub.EOF
Sql="SELECT id_rubric FROM "& per_katalog(1) &" WHERE id_rubric_parent=" & BD_Rub("id_rubric") & ";"
Set BD_Ch=BD.execute(Sql)
If BD_Ch.EOF Then
Text_TMP=Text_Rub1
Else
Text_TMP=Text_Rub2
Text_TMP=replace(Text_TMP,"#RUB_POZTEXT#",rubricat or(id_rub,BD_Rub("id_rubric"),otstup+1))
If InStr(Text_TMP,ClassSelect)>1 Then
Text_TMP=replace(Text_TMP,"#COLLAPSED#","")
End If
End If
BD_Ch.Close

'All_otstup=""
'For ii=1 to otstup
' All_otstup=All_otstup & Rub_otstup
'Next
Text_TMP=replace(Text_TMP,"#OTSTUP_WIDTH#",(otstup *13+11))
If BD_Rub("id_rubric")=id_rub Then
Text_TMP=replace(Text_TMP,"#CLASS_SELECT#",ClassSe lect)
Else
Text_TMP=replace(Text_TMP,"#CLASS_SELECT#","")
End If
Text_TMP=replace(Text_TMP,"#COLLAPSED#",ClassColla psed)
Text_TMP=replace(Text_TMP,"#ID#",BD_Rub("id_rubric "))
Text_TMP=replace(Text_TMP,"#NAME_RUB#",BD_Rub("rub ric_name")&"")
Text_TMP=replace(Text_TMP,"#NUM_GOODS#",BD_Rub("ru bric_num_goods"))
Text_TMP=replace(Text_TMP,"#ID_BASKET#",id_basket)
BD_Rub.MoveNext
ALL_Text=ALL_Text & Text_TMP
Loop
rubricator=ALL_Text
BD_Rub.Close
End function