Óû§×¢²á | Óû§µÇ½ | ¿Í»§Ö§³Ö | ½»·Ñ·½Ê½ | ÁªÏµÎÒÃÇ
ÁªÏµµç»°£º0791-3169009
  ·µ»ØÊ×Ò³ | ÓòÃû×¢²á | ÐéÄâÖ÷»ú | ħ·½Ö÷»ú | ÃÀ¹úÖ÷»ú | ÆóÒµÓÊ¾Ö | ½¨Õ¾±¦ºÐ | 400µç»° | ÓÅ»ÝÌ×²Í  

ASP·¢ÓʼþÀý³Ì

·¢²¼Ê±¼ä:2007-03-23 11:29:56   ä¯ÀÀÈËÊý: 450414 ´Î  
  ¹Ø¼ü×Ö: ASP·¢Óʼþ - ±¾Õ¾ËÑË÷ - GoogleËÑË÷ - BaiduËÑË÷ - YahooËÑË÷ - sougoËÑË÷
  ¹Ø¼ü×Ö: ASP·¢ÓʼþÀý³Ì - ±¾Õ¾ËÑË÷ - GoogleËÑË÷ - BaiduËÑË÷ - YahooËÑË÷ - sougoËÑË÷
  ¹Ø¼ü×Ö: ·¢ÓʼþÀý³Ì - ±¾Õ¾ËÑË÷ - GoogleËÑË÷ - BaiduËÑË÷ - YahooËÑË÷ - sougoËÑË÷




































ÊÕ¼þÈ˵ØÖ·:



<% = ErrMsgInputMailTo %>


·¢¼þÈ˵ØÖ·:



<% = ErrMsgInputMailFrom %>


ÓʼþÖ÷Ìâ:



<% = ErrMsgInputMailSubject %>


ÓʼþÄÚÈÝ:



<% = ErrMsgTextBoxMailBody %>








<% = MsgSendResult %>










<%
Function ValidateEmail(Expression)
Dim objRegExp
Set objRegExp = New RegExp
objRegExp.Pattern = "^[w.-]+@[w.-]+.[a-zA-Z]+$"
ValidateEmail = objRegExp.Test(Expression)
End Function
%>


ÉÏһƪ£ºÈçºÎÓÉÎÒ˾´ú°ì±¸°¸
ÏÂһƪ£ºÈçºÎÀûÓÃASP³ÌÐòÀ´Ê¹ÓÃJMail·¢Óʼþ
±¸°¸ºÅ£º¸ÓICP±¸09000786ºÅ
Copyright @ 2009-2012 Ö¾³ÉÈí¼þ(0792ZC) All Right Reserved

ÒÔÏÂjsΪ²âÊÔÐÅÏ¢