注：這篇文章寫給有一定asp編程基礎的初學者！
5.1長假和網友小愛（一個夢想成為程序員的PLMM ^_^）交流asp編程技術，她問起日期格式設定的問題，例如：2005-1-1想變成2005-01-01或者20050101
這個問題以前也有網友問過我，總覺得不是什么重要問題，從沒當回事（總覺得意義不大）， DW編程中對于日期格式的設定中還真沒有這個格式，要想實現這樣的格式，只能是手寫asp代碼實現。
偷個懶上網搜一搜交差了事，也不知道是沒有還是......居然沒找到！
不管了，又不是什么了不得的技術，可在網上閑逛了一會，仔細想來，覺得雖然問題簡單，可很多人卻無從下手這是為什么呢？而這樣的問題又是高手的盲區（太簡單了），事總得有人做么

首先分析一下日期數據是由年月日時分秒組成的，也就是說需要先得到年、月、日各自的數據，再怎么組合就容易了么，這里就需要用到日期函數。那么程序就可以直接寫成如下：
yy=year(rs("字段名")
mm=mouth(rs("字段名")
dd=day(rs("字段名")
Response.Write(yy&mm&dd)

這樣2005-1-1就變成200511了，但這里有個問題，就是月日遇到小于10的數之前沒有0，這樣日期就不是8位一組，不整齊。那么如何實現<10的月份、日期在前邊自動添加“0”呢？

了解編程語言的朋友一定知道在程序中控制程序流程的語句主要可以分為條件語句和循環語句，在VBScript中可使用以下條件語句：

   If...Then...Else 語 句
   Select Case 語 句

   If...Then...Else語句用于計算條件是否為True或False，并且根據計算結果指定要運行的語句。通常，條件是使用比較運算符對值或變量進行比較的表達式，If...Then...Else語句可以按照需要進行嵌套。
這里我直接將程序寫成如下：
 程序代碼
<% =year((rsxiaoai.Fields.Item("字段名").Value))%> 

<% If month((rsxiaoai.Fields.Item("字段名").Value))<9 Then %> 
-0<%=month((rsxiaoai.Fields.Item("字段名").Value))%> 
<% Else %> 
<%=month((rsxiaoai.Fields.Item("字段名").Value))%> 
<% End If %> 

<% If day((rsxiaoai.Fields.Item("字段名").Value))<9 Then %> 
-0<%=day((rsxiaoai.Fields.Item("字段名").Value))%> 
<% Else %> 
-<%=day((rsxiaoai.Fields.Item("字段名").Value))%> 
<% End If %> 
這樣2005-1-1就變成2005-01-01了 

這時問小愛，她告訴我是她這樣實現的 
<% 
if len(month(rsa("字段名")))>1 then 
s=month(rsa("字段名")) 
else 
s="0"&month(rsa("字段名")) 
end if 

if len(day(rsa("字段名")))>1 then 
s2=day(rsa("字段名")) 
else 
s2="0"&day(rsa("字段名")) 
end if  

Response.Write(year(rsa("字段名"))&"-"&s&"-"&s2) 
%>

編寫類似程序實現方法有很多，比如Select Case更應該簡潔
本著學習及應用方便我編了一個函數，初學者可直接調用，程序如下：

 程序代碼
<% 
Function DateFormat(strDate) 
’**************************************** 
’函數名：Date8Format 
’作  用：輸出2Digit位左邊帶0整數 
’參  數：無 
’返回值：如Date8Format()，即輸出20050101，為2005年01月01日 
’關聯函數：無 
’程序開發： 沉默等待回答（QQ：88372960）感謝支持：小愛(QQ：174015566） 
’開發日期：2005-5-6 
’**************************************** 

yy=year(strDate) 

if len(month(strDate))>1 then 
mm=month(strDate) 
else 
mm="0"&month(strDate) 
end if 

if len(day(strDate))>1 then 
dd=day(strDate) 
else 
dd="0"&day(strDate) 
end if  

if len(hour(strDate))>1 then 
hh=hour(strDate) 
else 
hh="0"&hour(strDate) 
end if  

if len(minute(strDate))>1 then 
mi=minute(strDate) 
else 
mi="0"&minute(strDate) 
end if  

if len(second(strDate))>1 then 
se=second(strDate) 
else 
se="0"&second(strDate) 
end if  

’輸出年月日格式 
’Response.Write(yy&"-"&mm&"-"&dd) 

’輸出年月日時分秒格式 
Response.Write(yy&"-"&mm&"-"&dd&" "&hh&":"&mi&":"&se) 

’輸出帶日期格式的4為隨機數 
’ randomize 
’ ranNum=int((9000*rnd)+1000) 
’ Response.Write(yy&mm&dd&hh&mi&se&ranNum)  

End Function 
%>