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
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£
ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......
´úÂëÈçÏ Çë¸ßÊÖ Ö¸µãÏ лл
ajax_http.js
-------------
function getXMLHTTP() {
var xmlhttp;
if (window.ActiveXObject) {
//IE
try {
......