[求助]关于认证"@"的问题

wang0925

<!--&#35;include file="conn.asp"--> " I( r' }- n% w
<!--&#35;include file="md5.asp"-->
0 B8 Y9 O  F& Q6 ^4 [# \<%name=Replace(Request.form("txtUserName"),"';","';';")
3 l# [' t; h* S. X9 Y( i4 i& bPwd=MD5(Replace(Request.form("txtPwd"),"';","';';"))
( L8 [! n+ M- C/ A/ W$ }2 F" s1 bConfPwd=MD5(Replace(Request.form("txtConfPwd"),"';","';';"))$ ~& d' _2 \- a6 z, K) O. k
TrusName=Replace(Request.form("txtTrusName"),"';","';';")
4 p3 Y' J8 ~. qsex=Replace(Request.form("sex"),"';","';';")
: ?2 B4 M# I! {6 E$ l+ G+ mEmail=Replace(Request.form("txtEmail"),"';","';';")
+ D+ X5 s9 n! `timu=Replace(Request.form("timu"),"';","';';")8 [9 G0 a. c0 o. H5 e" _. V
daan=Replace(Request.form("daan"),"';","';';")
3 i8 ?8 X% H- l% I6 T: p% GQQNumber=Replace(Request.form("txtQQNumber"),"';","';';")
, N' x- p$ n1 ]6 d9 XUserDescription=Replace(Request.form("txtUserDescription"),"';","';';")2 q/ ?( v. N' }  I* `2 Q  m2 t
RegTime=now()
# l# t3 Y; S# Q4 G& a1 P- D% s%>
5 y: a. }% E  }, u<%if name="" or Pwd="" or TrusName=""  or sex="" or Pwd<>ConfPwd or  len(QQNumber)<5 then%>
: f; z! l$ D) t! }4 `' T0 g请<a href="SignUp.asp">后退</a>填写错误！ 2 I! t( b- H) d: n# X( t
<%else%>5 p* W/ q7 ~3 E( k( u0 d3 M
<%dim sqlStr,objRs! T4 y4 K, p( a( Q0 ?$ b$ G$ Y. V, d
Set objRS=Server.Createobject("ADODB.Recordset")0 K9 I1 ^0 n% b
   sqlStr="SELECT * FROM webdb WHERE (UserName=';"&name&"';)"2 H* T- Q# v* }7 A0 \9 D& _) e/ h, F
   objRS.open sqlStr,Conn,1,2  O- \, t  p4 G" a
if not objrs.eof then %>
/ G: z7 I1 s) Q2 B! H0 O用户已存在<a href="index.asp">返回</a>
1 [1 Y# l: F/ ^1 i% w<%end if
1 k1 X, j( U! X8 N  objrs.close5 \6 O8 p3 p6 L3 _
  set objrs=nothing0 y: g9 H8 s: {9 q
%>
$ V) e! g5 ?% ^4 H<%
% A7 g8 Y0 [0 z, u0 n6 g" R: gset rs=server.CreateObject("adodb.recordset")" w2 I; P6 V$ {3 [0 d
sql="insert into webdb(UserName,Pwd,TrusName,Sex,Email,QQNumber,UserDescription,RegTime,timu,daan)values(';"&name&"';,';"&pwd&"';,';"&TrusName&"';,';"&Sex&"';,';"&Email&"';,';"&QQNumber&"';,';"&UserDescription&"';,';"&RegTime&"';,';"&timu&"';,';"&daan&"';)"
6 P# i+ O- C* g& B' Brs.open sql,conn. O& W! o4 x8 H; w
conn.close
% O9 _) @% q# r* B% p# H8 o1 h%>; \* N3 S1 E& d8 ?
注册成功!<a href="index.asp">返回</a>
' h5 E) [0 D, @+ F6 O- i4 F  r<%end if/ n0 m7 P: t/ O: e- \' O$ j( \
set conn=nothing $ r  q1 @# S0 u( c, p' p+ A
%>; ~  j1 F: X! M9 r$ j" o4 B
如何在该页面里添加代码,实现验证email中是不是含有"@"??

wang0925

没有人会吗???
. l1 G; P6 ~" K6 P- F555

ksn520

用正则表达式验证) _0 i5 }. J' W7 q
bool IsValidEmail(string strIn)  r3 q* W. t6 p* H1 d
{
- Y! U' _/ J! a: h' H2 h  N// Return true if strIn is in valid e-mail format.
+ c& F; }, U0 c6 L) V4 P3 Q    return Regex.IsMatch(strIn, @"^([\w-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([\w-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)&#36;");
4 B4 P$ H0 ~' w0 n}

wang0925

看不懂

ksn520

使用方法
  ]" b  [* Y, ?. L, }IsValidEmail("ksn520@qq.com") ';返回真
* ^" P4 s5 a8 l8 R4 s3 V( o/ EIsValidEmail("ksn520qqcom") ';返回假
; V+ g( U( s: ]2 C