|
还是用自动编号(bh),再新增一个识别码(sbm)
以下是我产生识别码的思路,遍历一遍数据库,产生识别码,我是菜鸟,当时是这样解决的,没想到好的方法.
<!--#include file="conn.asp"-->
<% response.write "正在产生识别码,请等待……<br>"
sql="select bh,sbm from sbgl order by grrq"
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open sql,conn,1,3
do while not rs.eof
oldsbm=rs("sbm")
if len(oldsbm)=0 then
sbm="识别码"&right(1000000+rs("bh"),6)
rs("sbm")=sbm
rs.update
end if
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
response.Write "识别码产生完毕!"
%> |
|