用数据库生成不重复的流水号

导读：
　　'*************************************************
　　'函数名：getMaxOrder
　　'作 用：得到最大序列号
　　'参 数：fieldName ----在序列号表中的字段名
　　' tableName ----序列号所在表名
　　' fieldName ----在表中的字段名
　　'返回值：字段的最大值
　　'调用函数：idAdd：作用见上
　　'*************************************************
　　function getMaxOrder(fieldName,tableName,tableFileName)
　　dim orderNO,orderRS,testRS
　　set testRS=Server.CreateObject("ADODB.recordset")
　　set orderRS=Server.CreateObject("ADODB.recordset")
　　firstNO=year(date)&right(("0"&month(date)),2)
　　orderSQL="select * from fieldMaxValue where fieldName='"&fieldName&"'"
　　orderRS.open orderSQL,conn,3,2
　　if not orderRS.eof then
　　orderRS("fieldMaxValue")=orderRS("fieldMaxValue")
　　orderNO=orderRS("fieldMaxValue")
　　if left(orderNO,6)=firstNO then
　　orderNO=idAdd(orderNO)
　　else
　　orderNO=firstNO&"00001"
　　end if
　　else
　　orderRS.addnew
　　orderRS("fieldName")=fieldName
　　orderNO=firstNO&"00001"
　　end if
　　testRS.open "select max("&tableFileName&") from "&tableName&" where "&tableFileName&" like '"&firstNO&"%'",conn,1,2
　　if (not testRS.eof) and testRS(0).value>orderNO then
　　orderNO=idAdd(testRS(0).value)
　　end if
　　testRS.close
　　set testRS=nothing
　　orderRS("fieldMaxValue")=orderNO
　　orderRS.update
　　orderRS.close
　　set orderRS=nothing
　　getMaxOrder=orderNO
　　end function
　　'*************************************************
　　'函数名：idAdd
　　'作 用：用来增加一：比如idAdd("5")="6",idAdd("L99")="M00"，idAdd("!")="!1"
　　' 如果是数字就到9后进位,如果是小写字母到期z后进位
　　' 如果是大写字母到Z后进位，其它在后面加一个1
　　'参 数：id ----需来增加的数
　　'返回值：增加后的数
　　'调用函数：addOne 一个数增加一 AddOne("5")="6",Add(9)="0",AddOne("a")="b",
　　' AddOne("z")="a",AddOne("A")="B",AddOne("Z")="A"
　　'*************************************************
　　Function AddOne(first)
　　Dim tempfirst
　　AddOne = first
　　intfirst = Asc(first)
　　If (intfirst >= 48 And intfirst = 65 And intfirst = 97 And intfirst 　　AddOne = Chr(intfirst + 1)
　　Exit Function
　　End If
　　If (intfirst = 57) Then
　　AddOne = "0"
　　Exit Function
　　End If
　　If (intfirst = 90) Then
　　AddOne = "A"
　　Exit Function
　　End If
　　If (intfirst = 122) Then
　　AddOne = "a"
　　Exit Function
　　End If
　　End Function
　　Function idAdd(id)
　　Dim fornt, back, strFind, strBackFind, idLen, tempid
　　if id="" or isNull(id) then
　　iddAdd=1
　　exit Function
　　end if
　　tempid = id
　　idLen = Len(id)
　　For i = 1 To idLen
　　fornt = Left(id, idLen - i)
　　back = Right(id, i - 1)
　　strFind = Mid(id, idLen + 1 - i, 1)
　　strBackFind = AddOne(strFind)
　　id = fornt &strBackFind &back
　　If strFind <strbackfind then>　　Exit For <br>　　End If <br>　　If strFind &gt;strBackFind Then <br>　　If i = idLen Then <br>　　id = id &amp;"1" <br>　　Else <br>　　If Mid(id, idLen - i, 1) = AddOne(Mid(id, idLen - i, 1)) Then <br>　　id = fornt &amp;strBackFind &amp;back &amp;"1" <br>　　Exit For <br>　　End If <br>　　End If <br>　　End If <br>　　Next <br>　　If id = tempid Then <br>　　id = id &amp;"1" <br>　　End If <br>　　idAdd = id <br>　　End Function <br>　　'调用示例 <br>　　serviceNO=getMaxOrder("serviceNO","service","serviceNO") <br>　　'其中保存所有字段流水号最大值的表的结构为: <br>　　表名:fieldMaxValue <br>　　字段 <br>　　id fieldName fieldMaxValue <br><br>本文转自 <br><a href="http://study.qqcf.com/web/249/30333.htm">http://study.qqcf.com/web/249/30333.htm</a></strbackfind>

最后

以上就是任性猫咪为你收集整理的用数据库生成不重复的流水号的全部内容，希望文章能够帮你解决用数据库生成不重复的流水号所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。