Asp代码求助（急）！！！

<%
'lsh(count)中count是想要几位数字，这样更灵活些，我测试过，很好用，主要用到的是application全局变量，没用数据库，这是最简单的也是最适用的方法了
function lsh(count)
application("a")=application("a")+1
'注意count的个数不能超过上限，这一部分可以更改其上限"00000000000000000000000"，多加几个0零就行了
lsh=right("00000000000000000000000"&application("a"),count)
end function
'调用函数返回四位的流水号
response.Write(lsh(4))
'调用函数返回五位的流水号
response.Write(lsh(5))

%>

不连接数据库也得把编到第几单存到文件吧，如果你只要编程的代码，代码如下：假设到a单了
<%
i=cint(a)+1
a=cstr(i)
if len(a)=1 then
a="0000"&a
end if
if len(a)=2 then
a="000"&a
end if
if len(a)=2 then
a="000"&a
end if
if len(a)=3 then
a="00"&a
end if
if len(a)=4 then
a="0"&a
end if
if len(a)>5 then
response.write("出错！")
end if
%>

肯定要连数据库，否则电脑怎么知道现在编到了第几单