100分的弱问题，兄弟们进来看看
问题１ 想产生一个订单号．．．8位的系统时间＋5位的序号（如00001－00002）
提供代码看看啊．
问题２ 提供一点调用COM组件的的代码看看．．比如调用时组包发送数据的那些代码．．还有怎么取返回值．．．
先谢谢了．／我会准时结贴
问题点数：100、回复次数：11Top
1 楼dsclub（任搏软）回复于 2004-09-02 23:18:44 得分 5
呵呵，用asp读写数据库用的ADO就是在调用COM呀Top
2 楼zltostem（五湖沸人）回复于 2004-09-02 23:21:28 得分 25
1.<%
Dim m,d
if month(now()) < 10 then
m = "0" & cstr(month(now()))
else
m = cstr(month(now()))
end if
if day(now()) < 10 then
d = "0" & cstr(day(now()))
else
d = cstr(day(now()))
end if
response.write "订单号：" & year((now)) & m & d & "00001"
%>Top
3 楼zltostem（五湖沸人）回复于 2004-09-02 23:22:09 得分 10
year(now())
...Top
4 楼zltostem（五湖沸人）回复于 2004-09-02 23:32:05 得分 15
工程名：work
模块名：proj
函数名：add
Public Function add(ByVal a As String) As String
add = a + "-addin"
End Function
-------------------
asp中调用：
<%
Dim addvel
set addvel = server.createobject("work.proj")
response.write addvel.add('today')
%>
------------------
画面显示内容：
today-addin
Top
5 楼zhgroup（王员外）回复于 2004-09-02 23:36:23 得分 5
年+月+日
月和日不足补0,
然后'-'
然后就是五位序号的生成方法.Top
6 楼zhgroup（王员外）回复于 2004-09-02 23:37:41 得分 10
对于组件，可以去看看JMAIL或LyfUpload这样的组件，很简单。。和ADODB.Reccordset的用法都相同。Top
7 楼hxnet（失业英雄）回复于 2004-09-03 00:07:35 得分 15
第一个问题：完善了一下“zltostem(尘寞)”的语句
<%
Dim m,d
if month(now()) < 10 then
m = "0" & cstr(month(now()))
else
m = cstr(month(now()))
end if
if day(now()) < 10 then
d = "0" & cstr(day(now()))
else
d = cstr(day(now()))
end if
sql="SELECT MAX(code) AS code1,count(*) as code2 FROM 订单表"
if rs("code2")=0 then
code=00001
else
code=rs("code1")+1
end if
订单号=year((now)) & m & d & code
%>
第二个问题：建议自己上网查资料。Top
8 楼butcher2002（我又出来捣乱了）回复于 2004-09-03 01:29:08 得分 5
你怎么打开数据库的~就怎么调用外部组件set .....Top
9 楼wayworm（过路虫）回复于 2004-09-03 01:55:28 得分 5
过路Top
10 楼liuxiaoyi666（MSMVP 小猪妹荣誉马甲之八卦兔子）回复于 2004-09-03 08:33:32 得分 5
server.createObject()Top
11 楼5400（5400）回复于 2004-09-06 22:43:42 得分 0
问题已经解决．．写了一存储过程．．谢谢大家．．Top
