ÈçºÎÀûÓÃ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(
Ïà¹ØÎĵµ£º
4¡¢´¿ASP´úÂëÉú³Éͼ±íº¯Êý——±ýͼ
<%dim total(7,1)
total(1,0)="Öйú¾Óª±¨"
total(2,0)="ÕÐÆ¸Íø"
total(3,0)="51Job"
total(4,0)="ÐÂÃñÍí±¨"
total(5,0)="ÐÂÎÅÍí±¨"
total(6,0)="ÄÏ·½ÖÜÄ©"
total(7,0)="Ñò³ÇÍí±¨"
total(1,1)=200
total(2,1)=1200
total(3,1)=900
total(4,1)=600
total(5,1)=1 ......
ASPÓëJSPµÄ±È½Ï
´Ó΢ÈíÍÆ³öÁËASP(ActiveServerPage)ºó£¬ËüÒÔÆäÇ¿´óµÄ¹¦ÄÜ£¬¼òµ¥Ò×ѧµÄÌØµã¶øÊܵ½¹ã´óWEB¿ª·¢ÈËÔ±µÄϲ»¶¡£µ«ÊÇËüÈ´ÓÐ΢Èí²úÆ·µÄͨ²¡,Ö»ÄÜÔÚWindowsƽ̨ÏÂʹÓã¬ËäÈ»Ëü¿ÉÒÔͨ¹ýÔö¼Ó¿Ø¼þ¶øÔÚLINUXÏÂʹÓ㬵«ÊÇÆä¹¦ÄÜ×îÇ¿´óµÄDCOM¿Ø¼þÈ´²»ÄÜʹÓ᣶øSUN¹«Ë¾ÔÚJAVAµÄ»ù´¡Ï¿ª·¢³öµÄJSP(Java ServerPages)ʵÏÖÁ˶ ......
ÔÚ´óÐ͵ÄASPÏîÄ¿ÖУ¬ºÜ¶àµÄÒ³Ãæ¶¼Éæ¼°µ½·Ò³¹¦ÄÜ¡£Èç¹ûÿ¸öÒ³Ãæ¶¼Ð´Ò»¸ö·Ò³µÄ³ÌÐòµÄ»°£¬ÕâÑùµÄ¹¤×÷¼´½µµÍÁ˹¤×÷Ч
ÂÊ£¬Ò²²»ÀûÓÚ¹¤³ÌµÄÄ£¿é»¯£¬²»ÄÜʹ´úÂëÖØÓá£Òò´Ë£¬°Ñ·Ò³ÕâÑùµÄ¹¦ÄÜÄ£¿é»¯ÊǺÜÓбØÒªµÄ¡£
¡¡¡¡Éè¼Æ·½·¨£º
¡¡¡¡1¡¢µ÷ÓøÃÄ£¿éʱ£¬Ö»ÐèÒª´«µÝ¼Ç¼¼¯ºÍÿҳÏÔʾµÄ¼Ç¼µÄÌõÊý£»
¡¡¡¡2¡¢¿ÉÒÔµã»÷Á´½Ó½øÐз ......
ASPÈçºÎÁ¬½ÓÊý¾ÝÔ´£¿(ϵͳDSN)Öн¨Á¢µÄÊý¾ÝÔ´£¿
ASPÔõô½¨Á¢Á¬½Ó£¬²»ÊÇOLEDB·½Ê½£¬ÓÃODBCÖеēÓû§DSN”½¨Á¢µÄÊý¾ÝÔ´½øÐÐÁ¬½Ó£¿ÈçºÎ²Ù×÷£¿
ÎÊÌâ²¹³ä£ºÎÒµÄÊÇODBCÖеēÓû§DSN”²»ÊǓϵͳDSN”£¬“Óû§DSN”ÔõôÁ¬½Ó£¿¶øÇÒÎÒµÄÊý¾Ý¿âÓÐÃÜÂë¡£
ÌáÎÊÕߣºÄäÃû
×î¼Ñ´ð°¸
Set co ......
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
......