摘要： <%function ccdate(str)'自定义日期类型转换函数if isnull(str) or str="" then ccdate=""elseif isdate(str) then if FormatDateTime(str,vbShortDate)=FormatDateTime("1900-1-1",vbShortDate) then ccdate="" else ccdate=FormatDateTime(str,vbShortDate) end ifend ifend functio 阅读全文