电子商务课程设计—购物网站

电子商务课程设计—购物网站内容摘要：

新资料 ) Else (加入会员 ) End If % /h2 hr form method=POST action= target=main table border=0 tr td align=rightb用户名： /b/td td % If blnOK Then % input type=text size=10 disabled value=% = strUserID % input type=hidden name=UserID value=% = strUserID % % Else % input type=text name=UserID size=10 maxlength=10 % End If % /td /tr tr td align=rightb密码： /b/td td input type=password name=Pswd size=8 maxlength=8 % If blnOK Then (value= amp。 _ Chr(34) amp。 strPassword amp。 _ Chr(34)) End If % /td /tr tr td align=rightb确认密码： /b/td td input type=password name=RecPswd size=8 maxlength=8 % If blnOK Then (value= amp。 _ Chr(34) amp。 strPassword amp。 _ Chr(34)) End If % /td /tr tr td align=rightb姓名： /b/td td input type=text size=8 name=name % If blnOK Then (value= amp。 _ Chr(34) amp。 strName amp。 _ Chr(34)) End If % /td /tr tr td align=rightb地址： /b/td td input type=text size=40 maxlength=50 name=address % If blnOK Then (value= amp。 _ Chr(34) amp。 strAddress amp。 _ Chr(34)) End If % /td/tr tr td align=rightEmail： /td td input type=text size=40 name=mail % If blnOK Then (value= amp。 _ Chr(34) amp。 strEmail amp。 _ Chr(34)) End If % /td /tr tr td align=right电话： /td td input type=text size=20 name=tel % If blnOK Then (value= amp。 _ Chr(34) amp。 strTel amp。 _ Chr(34)) End If % /td/tr tr td align=right性别： /td td input type=radio name=sex value=女 % If blnOK Then If strSex = 女 Then (checked) End If End If % 女 input type=radio name=sex value=男 % If blnOK Then If strSex = 男 Then (checked) End If End If % 男 /td /tr tr valign=top td align=right年龄： /td td select name=age option % If blnOK Then If intAge = 19 Then (selected) End If End If % 20 以下 /option option % If blnOK Then If intAge = 20 Then (selected) End If End If % 20 ~ 29/option option % If blnOK Then If intAge = 30 Then (selected) End If End If % 30 ~ 39/option option % If blnOK Then If intAge = 40 Then (selected) End If End If % 40 ~ 49/option option % If blnOK Then If intAge = 50 Then (selected) End If End If % 50 ~ 59/option option % If blnOK Then If intAge = 60 Then (selected) End If End If % 60(含 )以上 /option /select /td /tr tr td align=center input type=submit value= 确定 /td td align=center。