<%
Function WebCounter()
Dim Counter
Application.Lock
Application("Counter") = Application("Counter")+1
Counter = Application("Counter") Mod 999
WebCounter = Right("00" & Counter,3)
Application.UnLock
End Function
Function TodayString()
Yea=year(date())
Moth=Month(date())
Da=day(date())
TodayString =Yea & Moth & DA & WebCounter
End Function
%>
<body>
<%=TodayString%>
</body>
把<%=TodayString%>放入你所需要的電子欄位中即可