% sub addzero1(mydate1) Yval1 = Year(mydate1) Mval1 = Month(mydate1) Dval1 = Day(mydate1) ' 月份補零 if Mval1 <= 9 then Mval1 = "0" & Mval1 End if '日期補零 if Dval1 <= 9 then Dval1 = "0" & Dval1 End if Response.Write( Mval1 & "/" & Dval1 ) end sub %>
辽ICP备10010581号
技术支持 卓速建站