asp編程中常用的時間轉數字，時間轉字符串的方法

在ASP編程開發中經常遇到一些與時間有關的操作：如：將2011-8-10 16：16：15轉換成20110810161615格式的方法，並不是2011810161615格式，因為要處理時間中數字小於10時，前面加個0。
vIEw source print? 01 <% 02 　　str=now() 03 　　str=datetostr(str) 04 　　response.write str 05 　 06 　　'*************************************************** 07 　　'函 數 名:datetostr 08 　　'作    用:根據給定的日期和時間型數據將其轉換為yyyymmddhhIISs字符串格式 09 　　'參    數:d時間字符串 10 　　'返 回 值:轉換後的字符串 11 　　'*************************************************** 12 　　Function datetostr(d) 13 　　yyyy=Year(d) 14 　　mm=Month(d) 15 　　dd=Day(d) 16 　　hh=Hour(d) 17 　　ii=Minute(d) 18 　　ss=Second(d) 19 　　If Len(yyyy) =2 then 20 　　  yyyy="20" & yyyy 21 　　End If 22 　　If Len(mm)=1 then 23 　　  mm="0" & mm 24 　　End If 25 　　If Len(dd)=1 then 26 　　  dd="0" & dd 27 　　End If 28 　　If Len(hh)=1 then 29 　　  hh="0" & hh 30 　　End If 31 　　If Len(ii)=1 then 32 　　  ii="0" & ii 33 　　End If 34 　　If Len(ss)=1 then 35 　　  ss="0" & ss 36 　　End If 37 　　datetostr=yyyy & mm & dd & hh & ii & ss 38 　　End Function 39 %>