用datepart作的时间转换
function yl_addnow(addnow)
dim yl_yearr,yl_mmm,yl_ddd,yl_hhh,yl_nnn,yl_sss
yl_yearr=datepart("yyyy",addnow)
yl_mmm=datepart("m",addnow)
yl_ddd=datepart("d",addnow)
yl_hhh=datepart("h",addnow)
yl_nnn=datepart("n",addnow)
yl_sss=datepart("s",addnow)
yl_addnow=""&yl_yearr&"年"&yl_mmm&"月"&yl_ddd&"日 "&yl_hhh&"时"&yl_nnn&"分"&yl_sss&"秒"
end function
转换时间函数//年月日时分秒（单位数用0在前面补位）
function yl_addnow(addnow)
dim yl_year,yl_month,yl_day,yl_hour,yl_minute,yl_ss
yl_year=year(addnow)
if len(yl_year)=2 then yl_year="20"&yl_year
yl_month=month(addnow)
if yl_month<10 then yl_month="0"&yl_month
yl_day=day(addnow)
if yl_day<10 then yl_day="0"&yl_day
yl_hour=hour(addnow)
if yl_hour<10 then yl_hour="0"&yl_hour
yl_minute=minute(addnow)
if yl_minute<10 then yl_minute="0"&yl_minute
yl_ss=second(addnow)
if yl_ss<10 then yl_ss="0"&yl_ss
yl_addnow=""&yl_year&"年"&yl_month&"月"&yl_day&"日 "&yl_hour&"时"&yl_minute&"分"&yl_ss&"秒"
end function
转换日期时间函数（生成静态页时转换时间作为文件名）
function yl_now(nowtime)
dim yl_year,yl_month,yl_day,yl_hour,yl_minute,yl_ss
yl_year=year(nowtime)
if len(yl_year)=2 then yl_year="20"&yl_year
yl_month=month(nowtime)
if yl_month<10 then yl_month="0"&yl_month
yl_day=day(nowtime)
if yl_day<10 then yl_day="0"&yl_day
yl_hour=hour(nowtime)
if yl_hour<10 then yl_hour="0"&yl_hour
yl_minute=minute(nowtime)
if yl_minute<10 then yl_minute="0"&yl_minute
yl_ss=second(nowtime)
if yl_ss<10 then yl_ss="0"&yl_ss
yl_now=""&yl_year&""&yl_month&""&yl_day&""&yl_hour&""&yl_minute&""&yl_ss&""
end function
转换日期函数（转换年月日，单位数用0在前面补位）
function yl_date(nowdate)
yl_date=""&year(nowdate)&"-"&month(nowdate)&"-"&day(nowdate)&""
dim yl_year,yl_month,yl_day,yl_hour,yl_minute,yl_ss
yl_year=year(nowdate)
if len(yl_year)=2 then yl_year="20"&yl_year
yl_month=month(nowdate)
if yl_month<10 then yl_month="0"&yl_month
yl_day=day(nowdate)
if yl_day<10 then yl_day="0"&yl_day
yl_date = ""&yl_year&"-"&yl_month&"-"&yl_day&""
end function
