请教insert into 语句的问题

minghua100 2008-04-23 01:26:30
	
'自动生成卡号
if addtype = 2 then

function markcard(letter)
Randomize
dim i,n1,n2,rndnum,num1
Do While (Len(rndnum)<12 ) and (rndnum<99999999999999)
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
loop
n1=rndnum
n2=ucase(letter) & n1
markcard=n2
end function

'密码
function markpwd()
dim RndValue,pwd,c
c=1
Randomize
while len(pwd)<=8
RndValue=CStr(Chr((57-48)*rnd+48))
pwd=pwd & RndValue
wend
markpwd=Ucase(md5(pwd))
end function

nums=int(trim(cardcount))
for i=1 to nums
sql="insert into CardNumber([CardNo],[CardPassword],[money]) values('"&markcard(cardbefore)&"','"&markpwd()&"',"&money&")"
Conn.Execute(Sql)
next
response.Redirect("ac_cards_make.asp?money="&money&"&addtype="&addtype&"&a=ok&x="&nums)



end if




用这个我给3个数据表写进了数据 但是我其他数据表还是需要值 不能是空的 该怎么写 还有3个数据表是
rs("ListPrice") = money
rs("StartDate") = now()
rs("Cardstatus") = 0
...全文
54 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
chinastorm 2008-04-23
sql="insert into CardNumber([CardNo],[CardPassword],[money],ListPrice,StartDate,Cardstatus) values('"&markcard(cardbefore)&"','"&markpwd()&"',"&money&","&money&",Now(),0)"
回复
ynyn 2008-04-23
你都会写3个字段了,6个字段还不是一样的吗??
回复
minghua100 2008-04-23
是字段 怎么写呢
回复
ynyn 2008-04-23
3个数据表?你这不是1个表的3个字段么....其他字段接着写呗
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2008-04-23 01:26
社区公告
暂无公告