生成一个单号，稽查数据库是否有重复

生成一个单号，检查数据库是否有重复！
生成一个单号，检查数据库是否有重复！如果有重复就在原单号基础上加1

一下是我现在的代码 当检查数据库没有WX0120120800001时增加 如果有了就加1 但是当出现WX0120120800002
时就不能加了

VBScript code

<%dim aa,abaa="WX01"bb=year(now)&right("0" & month(now),2)&"00009"Set rs=Server.CreateObject("ADODB.RecordSet")strSQL="select * from work_pz_gz where work_no='"&aa&bb&"' "rs.open strSQL,Conn,1,3if rs.eof then '如果数据库中没有这个生成的单号set rs=conn.execute("INSERT INTO work_pz_gz (work_no,xche_cz,GongSiNo) VALUES ('"&aa&bb&"','管理员','01')")elsestrSQL="SELECT top 1  * FROM work_pz_gz WHERE GongSiNo='01' ORDER BY work_no DESC"ab=rs(work_no)+1set rs=conn.execute("INSERT INTO work_pz_gz (work_no,xche_cz,GongSiNo) VALUES ('"&aa&ab&"','管理员','01')")end if %>

[解决办法]
<%
dim aa,ab
aa="WX01"
bb=year(now)&right("0" & month(now),2)
cc=aa&bb&"00009"
Set rs=Server.CreateObject("ADODB.RecordSet")
strSQL="select * from work_pz_gz where work_no='"&cc&"' "
rs.open strSQL,Conn,1,1
if rs.eof and rs.bof then '如果数据库中没有这个生成的单号
conn.execute("INSERT INTO work_pz_gz (work_no,xche_cz,GongSiNo) VALUES ('"&cc&"','管理员','01')")
else
set ra=conn.execute("SELECT top 1 * FROM work_pz_gz WHERE GongSiNo='01' ORDER BY work_no DESC")
ab=right(ra("work_no"),5)*1+1
conn.execute("INSERT INTO work_pz_gz (work_no,xche_cz,GongSiNo) VALUES ('"&aa&bb&right("00000"&ab,5)&"','管理员','01')")
end if 
%>

查看更多 下一篇