UC知道谁会ASP函数封装啊
来源：百度知道 编辑：UC知道 时间：2024/05/09 09:05:45
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
dim sfz,datestr,xbstr,weekstr
sfz="444444198801014445"
if len(sfz)=18 then
datestr=mid(sfz,7,8)
xbstr=mid(sfz,17,1)
elseif len(sfz)=15 then
datestr="19"&mid(sfz,7,6)
xbsbr=right(sfz,1)
else datestr=date
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
dim sfz,datestr,xbstr,weekstr
sfz="444444198801014445"
if len(sfz)=18 then
datestr=mid(sfz,7,8)
xbstr=mid(sfz,17,1)
elseif len(sfz)=15 then
datestr="19"&mid(sfz,7,6)
xbsbr=right(sfz,1)
else datestr=date
<%
Sub SfzInfo(sfz)
dim datestr,xbstr,weekstr
if len(sfz)=18 then
datestr=mid(sfz,7,8)
xbstr=mid(sfz,17,1)
elseif len(sfz)=15 then
datestr="19"&mid(sfz,7,6)
xbsbr=right(sfz,1)
else datestr=date
xbstr="0"
end if
datestr=left(datestr,4)&"-"&mid(datestr,5,2)&"-"&right(datestr,2)
datestr=cdate(datestr)
dim tmp
tmp=array("日","一","二","三","四","五","六")
weekstr="星期"&tmp(weekday(datestr))
xbstr=cint(xbstr)
if xbstr mod 2=0 then
xbstr="女"
else
xbstr="男"
end if
response.write("身份证号码是："&sfz)
response.write("<br/>")
response.write("出生日期是："&datestr)
response.write("<br/>")
response.write("对应星期是："&weekstr)