ASP实现每天从0开始递增

来源：百度知道 编辑：UC知道 时间：2024/09/28 14:33:55
要求在定义一个函数AutoID,这个数每天从0开始递增,一直到999为止,请教一下如何书写,
1、必须要每天都从0开始，到999结束
2、以Function开头,end Function结束
刚忘记个功能
还要能实现如果不足位数的话，前面要加0，即1为001

嗯，一楼二楼都没有把新一天的要求写上去，我加写个完整测试通过的

<%
function autoid()
'新的一天重新计算
If cdate(application("day"))<date() then
application.lock()

application("day")=date()
application("i") = 1
autoid=1
application.UnLock()
else

if isempty(application("i")) then
autoid = 1
application.Lock()
application("i") =1
application.UnLock()
elseif application("i") = 999 then
autoid = 999
else
autoid = application("i") + 1
application.Lock()
application("i") = autoid
application.UnLock()
end if
end if
'补0
autoid=right("000"&autoid,3)
end function

response.write autoid

%>

写得比较仓促，写完就睡觉，没再去看，现在给出完整代码：
<%
response.write autoid '输出函数
'以下是你要的函数
Function AutoID()
If IsEmpty(Application(&