设为首页收藏本站

开启辅助访问切换到宽版

新微赢技术网»论坛 › 学习网知识堂 › WEB开发 › ASP › ASP自动生成编号的方法

发新帖

查看: 215|回复: 1

上一主题

下一主题

ASP自动生成编号的方法

电梯直达

跳转到指定楼层

1^#

发表于 2010-2-5 10:57:43 | 只看该作者回帖奖励

回帖奖励

|倒序浏览 |阅读模式

ASP自动生成编号的方法

用过许多序号的方法,indentity 或 new id() ,都不好用,自己写了一个,这个序号的特点是:每次取相应表中的系统当天最大序号,如果当天无记录,则自动生成一个当天序号。
　　1.建种子表,这个表用来保存各个表目前已使用到的最大序号
　　--种子表
　　create table SEED (
　　BM varchar(20) not null, --表名
　　BH varchar(12) not null, --种子编号
　　constraint PK_SEED primary key(BM)
　　)
　　go
　　
　　2.当我们建一个新表时,同时把这个表名记录到种子表中,如:
　　--向种子中表添加记录
　　　insert into SEED (BM,BH) values('tablename','200211070000')
　　go
　　3.在数据库建一存储过程,自动生成新编号,此编号取当天时间,所以许多时候查询某些天的记录时,这个序号非常有用。
　　--为参数传递来的某个表自动生成编号
　　if exists (select * from sysobjects where name='proc_getbh')
　　drop procedure proc_getbh
　　go
　　create procedure proc_getbh @BM varchar(20)
　　as
　　declare @BH char(12)
　　declare @TODAY char(8)
　　begin
　　select @TODAY=convert(char(8),getdate(),112)
　　select @BH=BH from SEED where [email=BM=@BM]BM=@BM[/email]
　　if @BH is null or left(@BH,8)<>@TODAY
　　begin
　　select @BH=@TODAY+'0000'
　　end
　　select @BH=left(@BH,8)+ right('0000' + ltrim(convert(char(4),convert(int,right(@BH,4)))+1),4)
　　update SEED set [email=BH=@BH]BH=@BH[/email] where [email=BM=@BM]BM=@BM[/email]
　　select @BH AS BH
　　end
　　4.实例如下:
　　'对表xxx自动生成新编号
　　set rs=conn.execute("proc_getbh @BM='xxx'")
　　这样,rs("BH")就是你得到的新编号。

商务虚拟主机：免费试用申请详情点击进入

回复

使用道具举报

发新帖

申请友链|小黑屋|最新主题|手机版|新微赢技术网 ( 苏ICP备08020429号 )

GMT+8, 2024-11-20 13:31 , Processed in 0.068689 second(s), 9 queries , Gzip On, Memcache On.

Powered by xuexi

© 2001-2013 HaiAn.Com.Cn Inc. 寰耽

快速回复 返回顶部 返回列表