(完整版)网上购物系统设计与实现毕业设计

hw_oldcash(i)=rs(\ hw_content(i)=rs(\ hw_pic(i)=rs(\ hw_date(i)=rs(\ rs.movenext loop end if rs.close %> (二)用户注册

当用户填写了注册资料后,通过REGSAVE.ASP来验证,当验证不通过时(如有的资料没填写等),输出出错提醒,当验证通过时输出通过消息,并将资料写入数据库中的USER表里。

（1） 资料验证的代码实现 <%

function IsValidEmail(user_mail) dim names, name, i, c

'Check for valid syntax in an email address. IsValidEmail = true

names = Split(user_mail, \

if UBound(names) <> 1 then IsValidEmail = false exit function end if

for each name in names if Len(name) <= 0 then IsValidEmail = false exit function end if

for i = 1 to Len(name) c = Lcase(Mid(name, i, 1))

if InStr(\c) <= 0 and not IsNumeric(c) then

IsValidEmail = false exit function end if next

if Left(name, 1) = \ IsValidEmail = false exit function

end if next

if InStr(names(1), \ IsValidEmail = false exit function end if

i = Len(names(1)) - InStrRev(names(1), \if i <> 2 and i <> 3 then IsValidEmail = false exit function end if

if InStr(email, \ IsValidEmail = false end if end function dim

user_name,user_pass,user_pass2,user_mail,user_adds,user_tel,uesr_postcode if trim(request(\

errmsg=errmsg+\用户名不能为空\ founderr=true

else

user_name=trim(request(\end if

if trim(request(\ errmsg=errmsg+\密码或确认不能为空\ founderr=true else

user_pass=trim(request(\ user_pass2=trim(request(\end if

if user_pass <> user_pass2 then

errmsg=errmsg+\两次密码不同\ founder=true end if

if request(\

errmsg=errmsg+\地址不能为空\ founderr=true else

user_adds=request(\end if