ÈçºÎÀûÓÃASP³ÌÐòÀ´Ê¹ÓÃJMail·¢ÓʼþµÄÀý×Ó
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
if Request("MailtoAddress") <> "" then
¡¡¡¡¡¡¡¡msg = SendMail
(Request("SMTPServer"),Request("SMTPServerUserName"),Request("SMTPServerPassword"),
Request("MailDomain"),Request("MailtoAddress"),Request("MailtoName"),Request("Subject"),
Request("MailBody"),Request("fromName"),Request("Mailfrom"),Request("Priority"))
¡¡¡¡¡¡¡¡if msg then Response.Write("·¢Ëͳɹ¦") else Response.Write("·¢ËͲ»³É¹¦")
¡¡¡¡¡¡¡¡Response.End()
end if
function
SendMail(SMTPServer,SMTPServerUserName,SMTPServerPassword,MailDomain,MailtoAddress,MailtoName,
Subject,MailBody,fromName,Mailfrom,Priority)
¡¡¡¡¡¡¡¡dim JMail, msg
¡¡¡¡¡¡¡¡set JMail=Server.CreateObject("JMail.Message")
¡¡¡¡¡¡¡¡JMail.Charset="gb2312" '±àÂë
¡¡¡¡¡¡¡¡JMail.silent=true 'ÉèÖÃΪtrue,JMail²»»áÅ׳öÀýÍâ´íÎó.
¡¡¡¡¡¡¡¡JMail.ContentType = "text/plain" 'ÓʼþÕýÎĸñʽ
¡¡¡¡¡¡¡¡'JMail.ServerAddress = SMTPServer 'ÓÃÀ´·¢ËÍÓʼþµÄSMTP·þÎñÆ÷(ÎÞЧ)
¡¡¡¡¡¡¡¡'Ö¸¶¨Óʼþ·þÎñÆ÷µÄµØÖ·¡£¿ÉÒÔÖ¸¶¨¶à¸ö·þÎñÆ÷£¬Ó÷ֺŵ㿪¡£¿ÉÒÔÖ¸¶¨¶Ë¿ÚºÅ¡£
¡¡¡¡¡¡¡¡'Èç¹ûserverAddress±£³Ö¿Õ°×£¬JMail»á³¢ÊÔ½â¾öÔ¶³ÌÓʼþ·þÎñÆ÷£¬È»ºóÖ±½Ó·¢Ë͵½·þÎñÆ÷ÉÏÈ¥¡£???
¡¡¡¡¡¡¡¡'È磺JMail.ServerAddress = &tquo;mail.mydom.net; mail2.mydom.net:2500"
¡¡¡¡¡¡¡¡JMail.MailServerUserName = SMTPServerUserName ' µÇ¼Óû§Ãû
¡¡¡¡¡¡¡¡JMail.MailServerPassWord = SMTPServerPassword ' µÇ¼ÃÜÂë
¡¡¡¡¡¡¡¡JMail.MailDomain = MailDomain 'ÓòÃû£¨Èç¹ûÓà “name@domain.com”ÕâÑùµÄÓû§ÃûµÇ¼ʱ£¬ÇëÖ¸Ã÷domain.com
¡¡¡¡¡¡¡¡JMail.AddRecipient MailtoAddress,MailtoName 'ÊÕÐÅÈË
¡¡¡¡¡¡¡¡JMail.Subject = Subject 'Ö÷Ìâ
¡¡¡¡¡¡¡¡JMail.Body = MailBody 'ÓʼþÕýÎÄ£¨´¿Îı¾¸ñʽ£©
¡¡¡¡¡¡¡¡JMail.fromName = fromName '·¢ÐÅÈËÐÕÃû
¡¡¡¡¡¡¡¡JMail.from = Mailfrom '·¢ÐÅÈËEmail
¡¡¡¡¡¡¡¡JMail.Priority = Priority 'ÓʼþµÈ¼¶12345
¡¡¡¡¡¡¡¡msg = JMail.Send(
Ïà¹ØÎĵµ£º
LBound() º¯Êý: ·µ»ØÖ¸¶¨µÄÊý×éά¿ÉÓõÄ×îСϱꡣ
UBound() º¯Êý: ·µ»ØÖ¸¶¨µÄÊý×éά¿ÉÓõÄ×î´óϱꡣ
InStr([start, ]string1, string2[, compare]) ·µ»Ø×Ö·û»ò×Ö·û´®ÔÚÁíÒ»¸ö×Ö·û´®ÖеÚÒ»´Î³öÏÖµÄλÖÃ
InStrRev()º¯Êý ·µ»Øij×Ö·û´®ÔÚÁíÒ»¸ö×Ö·û´®ÖÐ×îºó³öÏÖµÄλÖÃ
CDate() º¯Êý¿É°ÑÒ»¸öºÏ·¨µÄÈÕÆÚºÍʱ¼ä±í´ïʽת»»Îª ......
´ó¼ÒÓÐÅöµ½¹ýÒªÏëÈ¡Ò»×Ö·û´®ÀïµÄijЩֵ¶øÎÞ´ÓÏÂÊÖ£¿ÓÐûÓоõµÃ¿´Êé»ò½Ì²Ä¶ÔsplitµÄд·¨ºýÀïºýÍ¿……Èç¹ûÓдËÒÉÎʵĻ°£¬Çë¿´ÏÂÃæÎÒ¶ÔÀý×ӵĽâÊÍ£¬ÏàÐÅÄú»á¶ÔÕâ¸öÓÐÒ»¶¨µÄÁ˽⡣
ÎÒÏȽéÉÜÒ»ÏÂSplitº¯ÊýµÄÓ÷¨:
·µ»ØÖµÊý×é = Split("×Ö·û´®","·Ö¸î·û")
¼ÙÉè±äÁ¿strURL±£´æ×ÅURLÖµ£¬ÈçstrURL = "ftp://username ......
ASPÀà
£½£½£½£½£½£½£½£½£½
ʹÓÃVBSµÄASPÒ²Äܶ¨ÒåÀàµÄ£¡±¾ÎĽ«½éÉܶ¨Ò塢ʹÓÃÀàµÄ»ù±¾·½·¨¡£
ÔÚASP£¨ÌØָʹÓÃVBSµÄASP£¬ÏÂͬ£©ÀʹÓÃClassÓï¾äÀ´ÉùÃ÷Ò»¸öÀà¡£Óï·¨ÈçÏ£º
Class ˈ̞
End Class
ÀàµÄ¶¨Òå¡¢±äÁ¿¡¢ÊôÐԺͷ½·¨µÈ¶¼°üº¬ÔÚClass...End Class¿éÖС£
ÏÂÃæ¾Í¿ÉÒÔ¶¨ÒåÀàµÄÊôÐԺͷ½·¨ÁË¡£Õýʽ½²ÊôÐÔ¡¢·½·¨µ ......
ASPÀà
£½£½£½£½£½£½£½£½£½
ʹÓÃVBSµÄASPÒ²Äܶ¨ÒåÀàµÄ£¡±¾ÎĽ«½éÉܶ¨Ò塢ʹÓÃÀàµÄ»ù±¾·½·¨¡£
ÔÚASP£¨ÌØָʹÓÃVBSµÄASP£¬ÏÂͬ£©ÀʹÓÃClassÓï¾äÀ´ÉùÃ÷Ò»¸öÀà¡£Óï·¨ÈçÏ£º
Class ˈ̞
End Class
ÀàµÄ¶¨Òå¡¢±äÁ¿¡¢ÊôÐԺͷ½·¨µÈ¶¼°üº¬ÔÚClass...End Class¿éÖС£
ÏÂÃæ¾Í¿ÉÒÔ¶¨ÒåÀàµÄÊôÐԺͷ½·¨ÁË¡£Õýʽ½²ÊôÐÔ¡¢·½·¨µ ......