返回   CHF站长论坛 > 综合讨论区 > 网站开发与设计

网站开发与设计 网页设计、网站开发、网站维护与调试交流区。

双至强仅二千,企商在线,最早租用商 传世私服 魔域私服 亿恩1元帮您升级服务器! 天龙八部私服 传奇世界私服
传奇私服 仙境私服 天龙八部私服 传奇私服 传世私服 完美世界私服 魔域私服 传奇私服
发表新主题 回复
 
主题工具 主题评分 显示模式
旧 2006-04-30, 11:12   #16 (页面定位)
小狼
 
小狼 的头像
 
注册日期: 2006-03-15
住址: 天狼星的第一大狼窝
帖子: 163
小狼 是普普通通的会员
默认

请大家帮忙写写看,
小狼 当前离线   回复时引用此帖
旧 2006-04-30, 11:16   #17 (页面定位)
Tameway
 
Tameway 的头像
 
注册日期: 2005-09-06
住址: 湛江/西安/深圳
帖子: 1193
Tameway 是一个将要出名的人Tameway 是一个将要出名的人Tameway 是一个将要出名的人Tameway 是一个将要出名的人Tameway 是一个将要出名的人Tameway 是一个将要出名的人Tameway 是一个将要出名的人Tameway 是一个将要出名的人Tameway 是一个将要出名的人
默认

那样的话应该在insert into前面确定这个编号的值

然后将这个值随着insert一起添加到数据库里

log_value = fun("b") '调用

函数框架如下:

funtion fun(first_char)

set Rs = Server.CreateObject("ADODB.Recordset")
sql="select * from per_client where num like '%" & first_char & "%' order by log_time DESC;" '查找同类编号
rs.open sql,conn,3,3

if rs.eof then
num1 = first_char & "000000" '没有同类编号则从000000开始
return num1 '返回编号
else
temp_num = right(rs("num"),6) + 1 '有的话取得数值部分并加1
for i =1 to (6 - len(num))
insect_num = "0" & temp_num '给整数前补0
next
return (first_char & insect_num) '返回编号
end if

end function


江南派 | Tameway
Tameway 当前离线   回复时引用此帖
旧 2006-04-30, 13:56   #18 (页面定位)
小狼
 
小狼 的头像
 
注册日期: 2006-03-15
住址: 天狼星的第一大狼窝
帖子: 163
小狼 是普普通通的会员
默认

老大,有问题啊`~
调试的结果是,return未定义
小狼 当前离线   回复时引用此帖
回复

书签

标签

主题工具
显示模式 对此主题评分
对此主题评分:



所有时间均为北京时间。现在的时间是 22:29