controldate.inc

来自「SQL2000跟课件学习的源代码 分享共同学习」· INC 代码 · 共 9 行

<%
function CreateDate(ByVal SYear, ByVal SMonth, ByVal SDay)
  SMonth=CInt(SMonth)
  if SMonth<10 then SMonth="0"&SMonth
  SDay=CInt(SDay)
  if SDay<10 then SDay="0"&SDay
  CreateDate = CStr(SYear)&"/"&SMonth&"/"&SDay
End Function
%>