asp的一个日期格式化函数


            如何把日期２００７－０３－０２格式化成［０３．０２］?假设２００７－０３－０２放在一个叫datestring的变量中.
 
<!-- 
 Dim datestring 
 datestring="2007-03-02" 
 msgbox changedt(datestring) 

 function changedt(datestring) 
 Dim m,d 

 if month(datestring)<10 then 
  m="0" & month(datestring)  
 else 
  m=month(datestring)  
 End if 

 if day(datestring)<10 then 
  d="0" & day(datestring)  
 else 
  d=day(datestring)  
 End if 

 changedt="[" & m & "." & d & "]" 
 End function 
--> 

  [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]