新微赢技术网

标题: 帮个忙啊！！！ [打印本页]

作者: o.筎茈菰箪き 时间: 2010-1-13 06:15
标题: 帮个忙啊！！！
看看为什么不能实现啊！！！！第一个页面是：
<!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 你们看看有没有用啊！！谢谢！！

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)