ÖÇÄÜÖ÷Õ¾ - µçÐÅÕ¾ - Íøͨվ - ·±ów - ¼ÓÈëÊÕ²Ø
ÐÂÎÅÖÐÐÄ - ¿Í»§Ö§³Ö - ½»·Ñ·½Ê½ - ÁªÏµÎÒÃÇ
7 ¡Á 24Сʱ·þÎñÈÈÏß
010-52293700

ASP·¢ÓʼþÀý³Ì

·¢²¼Ê±¼ä:2007-03-23 11:29:56   ä¯ÀÀÈËÊý: 419862 ´Î  
  ¹Ø¼ü×Ö: 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±¸1209876542ºÅ
°æȨËùÓÐ ±¾Õ¾³ÌÐò½çÃæ¡¢Ô´´úÂëÊÜÏà¹Ø·¨Âɱ£»¤£¬Î´¾­ÊÚȨ£¬ÑϽûʹÓÃ
Copyright 2000-2006 All rights reserved

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