ÈçºÎÀûÓÃ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(
Ïà¹ØÎĵµ£º
¿Í»§¶Ë½Å±¾£º<script language="scriptlanguage"></script>
·þÎñÆ÷¶Ë½Å±¾£º<% ......%>
VbscriptÊÇvisual basicµÄÒ»¸ö×Ó¼¯£¬ËäÈ»ÏÞÖÆÁË¿ÉÒÔʹÓõÄÄÚÖú¯ÊýµÄÊýÁ¿£¬µ«ÊÇҲʹµÃËû·Ç³£Ð¡ÇÉ£¬´Ó¶øÌá¸ßÁË¿ÉÒÆÖ²ÐÔ
VariantÊÇvbscriptµÄΨһÊý¾ÝÀàÐÍ£¬ÓÐ13ÖÖ×ÓÀàÐÍ£º
Empty,Null,Boolean,Byte,Integer,Curre ......
LBound() º¯Êý: ·µ»ØÖ¸¶¨µÄÊý×éά¿ÉÓõÄ×îСϱꡣ
UBound() º¯Êý: ·µ»ØÖ¸¶¨µÄÊý×éά¿ÉÓõÄ×î´óϱꡣ
InStr([start, ]string1, string2[, compare]) ·µ»Ø×Ö·û»ò×Ö·û´®ÔÚÁíÒ»¸ö×Ö·û´®ÖеÚÒ»´Î³öÏÖµÄλÖÃ
InStrRev()º¯Êý ·µ»ØÄ³×Ö·û´®ÔÚÁíÒ»¸ö×Ö·û´®ÖÐ×îºó³öÏÖµÄλÖÃ
CDate() º¯Êý¿É°ÑÒ»¸öºÏ·¨µÄÈÕÆÚºÍʱ¼ä±í´ïʽת»»Îª ......
ASP±à³ÌÖÐ20¸ö·Ç³£ÓÐÓõÄÀý×Ó
1.ÈçºÎÓÃAspÅжÏÄãµÄÍøÕ¾µÄÐéÄâÎïÀí·¾¶
´ð£ºÊ¹ÓÃMappath·½·¨
<%= Server.MapPath("\")%>
2.ÎÒÈçºÎÖªµÀʹÓÃÕßËùÓõÄä¯ÀÀÆ÷£¿
´ð£ºÊ¹ÓÃthe Request object·½·¨
strBrowser=Request.ServerVariables("HTTP_USER_AGENT")
If Instr(strBrowser,"MSIE") & ......
<%
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( ......
ʲôÊÇPHP
¡¡¡¡PHP´ú±íÁË"³¬Îı¾´¦ÀíÆ÷"£¬ÕâÒâζ×ÅÄã±ØÐëÖªµÀ£¬ËüÊÇÒ»ÖÖ·þÎñÆ÷¶ËµÄ´¦ÀíÓïÑÔ£¬ÇÒÒÔHTMLµÄÐÎʽ³öÏÖ¡£Ëü×î³£Óõĵط½¾ÍÊÇÍøÒ³ÁË£¬Êý¾Ý´Ó¿Í»§»ú·¢Ë͵½Web·þÎñÆ÷£¬ÐÅÏ¢Ôڴ˱»´¦Àí²¢·µ»Ø½á¹û¡£
¡¡¡¡µ«ÕâÖÖͨÓÃÐÔµÄÓïÑÔË¿ºÁ²»¾ÖÏÞÓÚÔÚÍøÒ³·½Ã棬PHPÒ²Äܱ»ÓÃÔÚÃüÁîÐÐshellÖУ¬Ëü¿É×÷Ϊ²Ù×÷ϵͳµÄÒ»¸öÀ©Õ¹£¬ÓÉ´ËÖ´Ð ......