帮个忙啊!!!
看看为什么不能实现啊!!!!第一个页面是:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<form name="form1" method="post" action="ggalf.asp">
<table width="75%" border="1">
<tr>
<td width="29%">请输入身份证号:</td>
<td width="35%"><input name="a" type="text" id="a">
</td>
<td width="36%">查询年月日与性别</td>
</tr>
<tr>
<td colspan="3">
<input type="submit" name="Submit" value="提交"></td>
</tr>
</table>
</form>
</body>
</html>
第二个页面是:
<%
dim the_num,the_year,the_month,the_day,the_sex
the_num=request("a")
the_sex=right(the_num,1)
the_sss=mid(the_num,17,1)
if isnumeric(the_num) then
select case len(the_num)
case 15
the_year=mid(the_num,7,2)
the_month=mid(the_num,9,2)
the_day=mid(the_num,11,2)
response.write"出生日期为:"
case 18
the_year=mid(the_num,7,4)
the_month=mid(the_num,11,2)
the_day=mid(the_num,13,2)
response.write"出生日期为:"
case else
response.write "<script>window.alert('请输入中国人的身份证号码!谢谢合作!!!')</script>"
response.write "<script>window.location.href='default.asp'</script>"
end select
response.write the_year&"年"&the_month&"月"&the_day&"日" &"<br>"
if the_sex mod 2=1 then
response.write"性别为:男"
else
response.write"性别为:女"
end if
else
select case len(the_num)
case 15
the_year=mid(the_num,7,2)
the_month=mid(the_num,9,2)
the_day=mid(the_num,11,2)
response.write"出生日期为:"
case 18
the_year=mid(the_num,7,4)
the_month=mid(the_num,11,2)
the_day=mid(the_num,13,2)
response.write"出生日期为:"
case else
response.write "<script>window.alert('请输入中国人的身份证号码!谢谢合作!!!')</script>"
response.write "<script>window.location.href='default.asp'</script>"
end select
response.write the_year&"年"&the_month&"月"&the_day&"日" &"<br>"
if the_sss mod 2=1 then
response.write"性别为:男"
else
response.write"性别为:女"
end if
end if
%>
<p> </p>
<p> </p>
<p><font color="#0000FF" size="5"><a href="default.asp">返回首页!!!</a></font> </p>
我都愁死了!!!!为什么啊!!!! 是不是我的机子有问题啊!!1 你们看看有没有用啊!!谢谢!!