fun.inc

虎门热线交友程序 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
%>