Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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(


Ïà¹ØÎĵµ£º

4¡¢´¿ASP´úÂëÉú³Éͼ±íº¯Êý——±ýͼ

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³£Óú¯ÊýÏê½â

Array()
¡¡¡¡FUNCTION: ·µ»ØÒ»¸öÊý×é
¡¡¡¡SYNTAX: Array(list)
¡¡¡¡ARGUMENTS: ×Ö·û£¬Êý×Ö¾ù¿É
¡¡¡¡EXAMPLE: <%
¡¡¡¡Dim myArray()
¡¡¡¡For i = 1 to 7
¡¡¡¡Redim Preserve myArray(i)
¡¡¡¡myArray(i) = WeekdayName(i)
¡¡¡¡Next
¡¡¡¡%[/IMG]
¡¡¡¡RESULT: ½¨Á¢ÁËÒ»¸ö°üº¬7¸öÔªËØµÄÊý×émyArray
¡ ......

ASPÍøÒ³¼ÆÊýÆ÷Ô´´úÂë

1¡¢ÔÚÍøÕ¾Ä¿Â¼ÏÂн¨Ò»¸öÎı¾£ºtxtcounter.txt ÔÚÎı¾Ìîд1»òÆäËûʶ×Ö
2¡¢Ð½¨Ò»aspÎļþ£ºcount.asp£¬¼ÓÈëÒÔÏ´úÂ룺
<% 
CountFile=Server.MapPath("txtcounter.txt") 
Set FileObject=Server.CreateObject("Scripting.FileSystemObject") 
Set Out=FileObject.OpenTextFile(CountF ......

ÓÃ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ÀàµÄ¶¨Òå

ASPÀà
£½£½£½£½£½£½£½£½£½
ʹÓÃVBSµÄASPÒ²Äܶ¨ÒåÀàµÄ£¡±¾ÎĽ«½éÉܶ¨Ò塢ʹÓÃÀàµÄ»ù±¾·½·¨¡£
ÔÚASP£¨ÌØÖ¸Ê¹ÓÃVBSµÄASP£¬ÏÂͬ£©ÀʹÓÃClassÓï¾äÀ´ÉùÃ÷Ò»¸öÀà¡£Óï·¨ÈçÏ£º
Class ˈ̞
End Class
ÀàµÄ¶¨Òå¡¢±äÁ¿¡¢ÊôÐԺͷ½·¨µÈ¶¼°üº¬ÔÚClass...End Class¿éÖС£
ÏÂÃæ¾Í¿ÉÒÔ¶¨ÒåÀàµÄÊôÐԺͷ½·¨ÁË¡£Õýʽ½²ÊôÐÔ¡¢·½·¨µ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ