UC知道网页的简单认证程序谁会做啊
来源：百度知道 编辑：UC知道 时间：2024/09/22 21:37:39
if not login.phone.value=" " then
if isnumeric(login.phone.value) then
if len(login.phone.value) < 7 or left(login.phone.value,1)="-" or left(login.phone.value,1)="+" then
msgbox "电话号码输入有误"
login.phone.select
exit sub
end if
else
pos=instr(login.phone.value,"-")
len_phone=len(login.phone.value)
if pos>1 and pos<len_phone then
lef=left(login.phone.value,pos-1)
rig=right(login.phone.value,len_phone-pos)
if not isnumeric(left) or not isnumeric(rig) or len(rig) < 5 then
msgbox "电话号码输入有误"
login.phone.select
exit sub
end if
else
msgbox "电话号码输入有误"
login.phone.select
exit sub
end if
end if
end if
if login.email.value=" " then
msgbox "为了与您方便的联系，请输入E-mail地址"
login.email.select
exit sub
else
if not right(login.email.value,4)=".com" and no
if isnumeric(login.phone.value) then
if len(login.phone.value) < 7 or left(login.phone.value,1)="-" or left(login.phone.value,1)="+" then
msgbox "电话号码输入有误"
login.phone.select
exit sub
end if
else
pos=instr(login.phone.value,"-")
len_phone=len(login.phone.value)
if pos>1 and pos<len_phone then
lef=left(login.phone.value,pos-1)
rig=right(login.phone.value,len_phone-pos)
if not isnumeric(left) or not isnumeric(rig) or len(rig) < 5 then
msgbox "电话号码输入有误"
login.phone.select
exit sub
end if
else
msgbox "电话号码输入有误"
login.phone.select
exit sub
end if
end if
end if
if login.email.value=" " then
msgbox "为了与您方便的联系，请输入E-mail地址"
login.email.select
exit sub
else
if not right(login.email.value,4)=".com" and no
晕,这用的是SCRIPT???咋看,咋像ASP...
以下是程序:我自己瞎编的.
<html>
<head><title>dd</title>
</head>
<body>
<form name="login" action="" method="post">
<p>请输入您的用户名：<input type="text" name="userid">
<p>请输入密码：<input type="password" name="userpw">
<p>请重新输入您的密码：<input type="password" name="userpw">
<p>请输入您的名字：<input type="text" name="name">
<p>请输入您的身份证号码：<input type="text" name="idnumber">
<p>请输入您的年龄：<input type="text" name="age">
<p>请输入您的详细联系地址：<input type="text" name="address">
<p>请输入您的邮政编码：<input type="text" name="zipcode">
<p>请输入您的电话号码：<input type="text" name="phone&q