ÕýÔò±í´ïʽÑéÖ¤-ASP½Ì³Ì,ÕýÔò±í´ïʽ

££££££££££££££££££££££££££££££££££££££££££££££
££×÷ÕߣºÓêÀË¡¡°æȨËùÓУ¬·­°æ˵һÏ¡¡¡¡¡¡¡¡¡¡££
£££Ñ£Ñ£º£²£·£°£´£¹£¹£´£µ£¸¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡££
££££££££££££££££££££££££££££££££££££££££££££££

½ü¶ÎÈÕ×Ó¼¸¸ö¸ÕѧÁËÕýÔò±í´ïʽµÄÅóÓÑÎÊÎÒÔÚaspÖÐÔõôÓ㮺Ǻǣ®ËäÈ»¼òµ¥£¬»¹ÊÇд³öÀ´°É£¬ÕýÔò±í´ïʽµÄ»ù±¾ÖªÊ¶ÎҾͲ»ËµÁË£®ÆäʵÒѾ­ÓкܶàÕâÑùµÄÎÄÕÂÁË£®£º£¨

££££££££££º¯Êý´úÂ룣££££££££££££££
¼ÙÉèΪmyfunc.asp

<%
'ÕýÔò±í±í´ïʽÑéÖ¤º¯Êý patrn-ÕýÔò±í´ïʽ¡¡strng-ÐèÒªÑéÖ¤µÄ×Ö·û´®
Function RegExpTest(patrn, strng)
Dim regEx, retVal ' ½¨Á¢±äÁ¿¡£
Set regEx = New RegExp ' ½¨Á¢ÕýÔò±í´ïʽ¡£
regEx.Pattern = patrn ' ÉèÖÃģʽ¡£
regEx.IgnoreCase = False ' ÉèÖÃÊÇ·ñÇø·Ö´óСд¡£
retVal = regEx.Test(strng) ' Ö´ÐÐËÑË÷²âÊÔ¡£
RegExpTest = retVal '·µ»Ø²»¶ûÖµ£¬²»·ûºÏ¾Í·µ»Øfalse£¬·ûºÏΪtrue
End Function
%>

££££££££££Ìá½»Ò³Ãæ´úÂ룣££££££££££
¼ÙÉèΪmypage.asp

<form method="post" action="check.asp">
ÇëÊäÈëE-mailµØÖ·:<input type=text name=email>
<br>
ÇëÊäÈëµç»°ºÅÂë:<input type=text name=tel>
<input type=submit value="È·¶¨">
</form>

££££££££££ÑéÖ¤Ò³Ã棣££££££££££££££
¼ÙÉèΪcheck.asp

<!--#include file="myfunc.asp"-->
<%
tel=request.form("tel")
email=request.form("email")
dim founderr : founderr=false '½¨Á¢±äÁ¿,ÕýÈ·»òÕßʧ°Ü±ê¼Ç
'´ó¼Ò×¢ÒâŶ,˳±ãÎÒÔÚÕâÀï¹±Ï×Ò»¸öÕýÔò±í´ïʽ,ͬʱÑéÖ¤µç»°ºÅÂëºÍÊÖ»úºÅÂëµÄ!
if RegExpTest("(^[0-9]{3,4}\-[0-9]{3,8}$)|(^[0-9]{3,8}$)|(^\([0-9]{3,4}\)[0-9]{3,8}$)|(^0{0,1}13[0-9]{9}$)", tel)=false then
founderr=true
regshow=regshow&"<li>ÄúÊäÈëµÄµç»°ºÅÂë¸ñʽ²»ÕýÈ·"
end if
if RegExpTest("^[\w-]+(\.[\w-]+)*@[\w-]+(\.[\w-]+)+$", email)=false then
founderr=true
regshow=regshow&"<li>ÄúÊäÈëµÄµç×ÓÓÊÏä¸ñʽ²»ÕýÈ·"
end if
if founderr=false then regshow="<li>ÄúÊäÈëµÄ¸ñʽ¶¼ÊÇÕýÈ·µÄŶ"
%>
<br><br>
<%=regshow%>