虎门热线交友程序 2005版 全套的交友网站。释放到服务器

								function InsertZero(M)
				if len(M)=1 then
				   InsertZero="0"&M
				else
				   InsertZero=M
				end if
				end function     
				
				function GetDate(D)
				GetDate=DatePart("m",D)&"月"&InsertZero(DatePart("d",D))&"日"
				end function
				%>