Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ÈçºÎÀûÓÃ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(


Ïà¹ØÎĵµ£º

ASPµÄÄÇЩ¶«Î÷£¨Ò»£©

¿Í»§¶Ë½Å±¾£º<script language="scriptlanguage"></script>
·þÎñÆ÷¶Ë½Å±¾£º<% ......%>
VbscriptÊÇvisual basicµÄÒ»¸ö×Ó¼¯£¬ËäÈ»ÏÞÖÆÁË¿ÉÒÔʹÓõÄÄÚÖú¯ÊýµÄÊýÁ¿£¬µ«ÊÇҲʹµÃËû·Ç³£Ð¡ÇÉ£¬´Ó¶øÌá¸ßÁË¿ÉÒÆÖ²ÐÔ
VariantÊÇvbscriptµÄΨһÊý¾ÝÀàÐÍ£¬ÓÐ13ÖÖ×ÓÀàÐÍ£º
Empty,Null,Boolean,Byte,Integer,Curre ......

ÓÃASPËæ»ú²úÉúËæ»úÊý

<%
Function gen_key(digits)
'Create and define array
dim char_array(50)
char_array(0) = "0"
char_array(1) = "1"
char_array(2) = "2"
char_array(3) = "3"
char_array(4) = "4"
char_array(5) = "5"
char_array(6) = "6"
char_array(7) = "7"
char_array(8) = "8"
char_array(9) = "9"
char_array( ......

ASP²ÉÓÃODBCÊý¾ÝÔ´Á¬½ÓMSSQLÊý¾Ý¿âÏêϸ˵Ã÷¡¾ÊµÓá¿

ODBCÊý¾ÝÔ´¿É·ÖΪ“ϵͳÐÍ”ºÍ“ÎļþÐÍ”£¬ËûÃǵÄÇø±ðÔÚÓړϵͳÐÍ”ÊÇÁ¬½ÓÊý¾Ý¿âµÄÐÅÏ¢½¨Á¢Ôړϵͳע²á±í”À“ÎļþÐÍ”ÔòÊÇÒÔdsnÎļþÐÎʽ´æ´¢ÔÚODBCÔ´µÄĿ¼ÏÂÃæ
Ò»¡¢½¨Á¢ODBCÊý¾ÝÔ´µÄ·½·¨£º
¿ØÖÆÃæ°å - ¹ÜÀí¹¤¾ß - Êý¾ÝÔ´£¨ODBC£©
´ò¿ªODBCÊý¾ÝÔ´¹ÜÀíÆ÷£¬È»ºóÒ ......

ASPÁ¬½ÓÊý¾Ý¿âµÄÈ«ÄÜ´úÂë

aspÁ¬½ÓaccessºÍmssqlµÄÍòÄÜ´úÂ룺
'½â¾öÁËACCESSÊý¾Ý¿â·¾¶µÄÎÊÌ⣡
'²ÉÓÃDBType=0»òDBType=1À´Çø·ÖAC¿â»¹ÊÇMSSQL¿â
'¾ßÌå²ÉÓÃAC¿âʱӦעÒâµÄÊÂÏÇë¿´³ÌÐò˵Ã÷
-----------------------------------------------
Dim DBType,Conn,StrConn
DBType=0 '0ΪAccessÊý¾Ý¿â£¬1ΪMSSQLÊý¾Ý¿â
If(DBType=0) Then
......

¼èÄѵľñÔñ£ºPHPÓëASPµÄ×ۺϱȽÏ

ʲôÊÇPHP
¡¡¡¡PHP´ú±íÁË"³¬Îı¾´¦ÀíÆ÷"£¬ÕâÒâζ×ÅÄã±ØÐëÖªµÀ£¬ËüÊÇÒ»ÖÖ·þÎñÆ÷¶ËµÄ´¦ÀíÓïÑÔ£¬ÇÒÒÔHTMLµÄÐÎʽ³öÏÖ¡£Ëü×î³£Óõĵط½¾ÍÊÇÍøÒ³ÁË£¬Êý¾Ý´Ó¿Í»§»ú·¢Ë͵½Web·þÎñÆ÷£¬ÐÅÏ¢Ôڴ˱»´¦Àí²¢·µ»Ø½á¹û¡£
¡¡¡¡µ«ÕâÖÖͨÓÃÐÔµÄÓïÑÔË¿ºÁ²»¾ÖÏÞÓÚÔÚÍøÒ³·½Ã棬PHPÒ²Äܱ»ÓÃÔÚÃüÁîÐÐshellÖУ¬Ëü¿É×÷Ϊ²Ù×÷ϵͳµÄÒ»¸öÀ©Õ¹£¬ÓÉ´ËÖ´Ð ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ