Question

vb.net 转asp.net

<script language="vb" runat="server">
sub page_load(){
dim b;
dim c;
dim d;
dim winuser = server.CreateObject("easymail.Users");
winuser.GetUserByName("admin", b, c, d);

response.write(c);

winuser.AddUser("one", "one", "system.mail", "add this user by asp.net!");
end sub
</script>
高手们帮帮忙，把这段代码改成asp.net的，要发源码哦，小弟在此谢过了

Answer 1

已经几乎是asp.net代码了。
winuser.？？在asp.net应用里面无效。
似乎你想发邮件，在asp.net里面发送邮件，请使用system.net.mail命名空间下的功能。
给你一个我自己写的代码，以供参考：

Imports Microsoft.VisualBasic
Imports System.Net.Mail
Imports System.Net.Mime

Public Class LiteMail
''' <summary>
''' 发送一个文本邮件到指定的电子邮箱。
''' </summary>
''' <param name="MailTo">收件人电子邮件地址</param>
''' <param name="Subject">邮件标题</param>
''' <param name="Body">邮件正文</param>
''' <remarks></remarks>
Public Shared Sub SendMail(ByVal MailTo As String, ByVal Subject As String, ByVal Body As String)
Dim m1 As MailMessage = New MailMessage
m1.BodyEncoding = System.Text.Encoding.UTF8
m1.IsBodyHtml = True
m1.From = New MailAddress("youmail@domain.com") '发件人邮箱
m1.To.Add(New MailAddress(MailTo))
Dim c As SmtpClient = New SmtpClient("mail.domain.com") 'smtp服务器地址
m1.Subject = Subject
m1.Body = Body
c.UseDefaultCredentials = False
c.Credentials = New System.Net.NetworkCredential("youname@domain.com", "password") ’邮箱地址，密码
c.DeliveryMethod = SmtpDeliveryMethod.Network
Try
c.Send(m1)
Finally
End Try
End Sub
End Class