用SubString()来取吧。
分割字符串啊
dim numnum="身份证编号子"if len(num)=18 thennum=mid(num,7,8)y=left(num,4)m=mid(num,5,2)d=right(num,2)elsenum=mid(num,7,6)y="19" & left(num,2)m=mid(num,3,2)d=right(num,2)end if
response.write y & "年" & m & "月" & d & "日"刚刚用asp写的..
挺简单的一个小程序