VB·¢ËÍÓʼþÎÊÌâ - .NET¼¼Êõ / ASP.NET
·¢ËÍÓʼþ²¿·Ö´úÂëÈçÏ£º
Private Sub SendEmail(ByVal ToEmail, ByVal Title, ByVal Content)
Dim smtp As New System.Net.Mail.SmtpClient("smtp.163.com", 25)
smtp.Credentials = New System.Net.NetworkCredential("xxx@163.com", "password")
Dim mail As New System.Net.Mail.MailMessage()
mail.Subject = Title
mail.SubjectEncoding = System.Text.Encoding.GetEncoding("GB2312")
mail.BodyEncoding = System.Text.Encoding.GetEncoding("GB2312")
mail.from = New System.Net.Mail.MailAddress("xxx@163.com")
mail.Priority = System.Net.Mail.MailPriority.Normal
mail.IsBodyHtml = True
mail.Body = Content
mail.To.Add(ToEmail)
smtp.Send(mail)
End Sub
ÔÚ±¾µØXP»·¾³Àï²âÊÔ¿ÉÒÔÕý³£·¢ËÍ£¬·ÅÔÚserver 2003µÄ·þÎñÆ÷ÉÏ·¢ËÍÓʼþ²»ÄÜÕý³£Ö´ÐС£
ÊÇʲôÔÒòÄØ£¿
Server2003ÖÐ SMTP·þÎñÒ²°²×°ÁË
º¹£¬·¢´í°æ¿éÁË£¬SORRY
Ïà¹ØÎÊ´ð£º
function CheckOpwd(){//ÑéÖ¤Óû§Ãû
var pwd=document.all.txtOpwd;
var div1=document.getElementById("divPwd");
if (pwd.value=="")
{
......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......
vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·
¶¥Ï¶¥ÏÂ
ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0
BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......