| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2277 人关注过本帖
标题:請教!ASP怎么写流水号?
只看楼主 加入收藏
conn
Rank: 2
等 级:新手上路
威 望:5
帖 子:420
专家分:0
注 册:2005-11-27
收藏
得分:0 
HOHO,楼上的大大真认真啊。学习。嘿嘿~

我是新手,但我很虚心,对我发的问题请不要取笑,谢谢
2005-12-27 14:17
ldzlh
Rank: 1
等 级:新手上路
帖 子:82
专家分:0
注 册:2005-12-26
收藏
得分:0 
10樓的兄弟,你能不能把你方法說詳細一點,謝謝!

2005-12-27 14:23
dpxdpx
Rank: 1
等 级:新手上路
帖 子:230
专家分:0
注 册:2005-11-22
收藏
得分:0 
果然好方法,比定义两个变量来说要方便多了。收藏

从不懂到懂点点到有点懂到懂点了到想搞懂更多到问题更多了到不懂的更多了到编程论坛请教大家来了!
2005-12-27 15:34
阳光白雪
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:39
帖 子:2220
专家分:0
注 册:2005-11-18
收藏
得分:0 

兄弟,我已经说的很清楚了,除非我把程序写好帖上了,兄弟,你还是自己研究吧,我没有那么多的水~~~~~~~`

[此贴子已经被作者于2005-12-27 23:31:12编辑过]


专注于WEB前端交互平台开发:[url=http://blog./]blog.[/url](富客户端技术(RIA)交流平台)
2005-12-27 23:09
szeee
Rank: 1
等 级:新手上路
帖 子:123
专家分:0
注 册:2005-5-13
收藏
得分:0 
Up

我在bbs.渐渐成长了。。。
2005-12-27 23:28
ldzlh
Rank: 1
等 级:新手上路
帖 子:82
专家分:0
注 册:2005-12-26
收藏
得分:0 

程序已經寫好,但為什么祂不前面補0呢?
我在數據庫里添加了 WX 05 12 001 -003
但在前如添加的時候 流水號自動生成為 WX 05 12 4 應該要為 WX 05 12 004
請大家看看是哪里出錯了!

<%
stra="WX"&right(year(now()),2)&month(now)

connstr = "DBQ="+server.mappath("../party.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
Set Conn = Server.CreateObject("ADODB.Connection")
set rs=server.createobject("adodb.recordset")
conn.open connstr
rs.Open "select * from weix where left(dj,6)='"&stra&"' order by dj desc",conn,1,3
if rs.recordcount=0 then
intstr="001"
else
intstr=right(rs("dj"),3)
intstr=cint(intstr)+1
end if
IDNO=stra&intstr
%>

[此贴子已经被作者于2005-12-28 8:22:02编辑过]


2005-12-28 08:15
ldzlh
Rank: 1
等 级:新手上路
帖 子:82
专家分:0
注 册:2005-12-26
收藏
得分:0 

呵呵,我用一個蠢辦法解決了,在

intstr=right(rs("dj"),5) (3改成了5)
intstr=cint(intstr)+1
下加一行
intstr=right(intstr,3)


[此贴子已经被作者于2005-12-28 8:46:38编辑过]


2005-12-28 08:33
阳光白雪
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:39
帖 子:2220
专家分:0
注 册:2005-11-18
收藏
得分:0 
intstr=cint(intstr)+1
end if

if length(intstr)<3 then
restr=""
fro i=1 to 3-length(intstr)
restr=restr&"0"
next
end if
intstr=restr&intstr

IDNO=stra&intstr
加上红色部分

专注于WEB前端交互平台开发:[url=http://blog./]blog.[/url](富客户端技术(RIA)交流平台)
2005-12-28 11:00
nic
Rank: 2
等 级:新手上路
威 望:4
帖 子:175
专家分:0
注 册:2005-11-1
收藏
得分:0 
以下是引用ldzlh在2005-12-28 8:15:00的发言:

程序已經寫好,但為什么祂不前面補0呢?
我在數據庫里添加了 WX 05 12 001 -003
但在前如添加的時候 流水號自動生成為 WX 05 12 4 應該要為 WX 05 12 004
請大家看看是哪里出錯了!

<%
stra="WX"&right(year(now()),2)&month(now)

connstr = "DBQ="+server.mappath("../party.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
Set Conn = Server.CreateObject("ADODB.Connection")
set rs=server.createobject("adodb.recordset")
conn.open connstr
rs.Open "select * from weix where left(dj,6)='"&stra&"' order by dj desc",conn,1,3
if rs.recordcount=0 then
intstr="001"
else
intstr=right(rs("dj"),3)
intstr=cint(intstr)+1

end if
IDNO=stra&intstr
%>


INSTR是STRING数据类型,当转换成INT数据类型的时候,前面的‘0’就被忽略了。
改为这样:
else
intstr="1" & right(rs("dj"),3)
intstr=right(cstr(cint(intstr)+1),3)


2005-12-28 16:05
快速回复:請教!ASP怎么写流水号?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.042044 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved