用户注册

用户帐号：

购书密码：

电子邮件：

VBScript 代码（P144）

<Script Language="VBScript">

Function check

If Len(form1.login.value)=0 Then

Msgbox"您没有填写帐号！"

Elseif Len(form1.passwd.value)=0 Then

Msgbox"您没有输入密码！"

Elseif Len(form1.email.value)=0 Then

Msgbox"您没有填写Email！"

End If

For i=1 to Len(form1.email.value)

If Mid(form1.email.value,i,1)="@" Then

flag=1

End If

Next

If flag<>1 Then

Msgbox"您所填写的email地址不是一个合法地址"

End If

End Function

</script>

<link href="../../Assets/yjwd.css" rel="stylesheet" type="text/css">

</head>

<body>

<p>用户注册</p>

<p>&nbsp;</p>

<form action="clzc1.asp" method="post" name="form1" 

onsubmit="javaScript: return check();">

<p>帐号：<input type=text name=login>

<p>密码：<input type=password name=passwd>

<p>E-mail：<input type=text name=Email>

<p><input type="submit" value="用户注册" name="submit">

<p><input name="reset" type=reset value=重新填写>

</form>