3个回答
展开全部
Sub WriteData()
Dim recCnt,i
Dim UserID,UserName,Score
Dim SqlStr
//用于动态取得需要录入多少条记录
recCnt=cint(request.form("recCnt"))
//批量录入数据
for i=1 to recCnt
UserID=trim(request.form("UserID")(i))
UserName=trim(request.form("UserName")(i))
score=trim(request.form("score")(i))
sqlStr="insert into Users(UserID,UserName,score)value(
'"sqlStr=sqlStr&UserID&"',
'"sqlStr=sqlStr&UserName&"',
'"sqlStr=sqlStr&UserName&"')"
Response.Write sqlStr
conn.execute(sqlStr)
next
conn.close
response.write"数据成功录入"
End SUB
Dim recCnt,i
Dim UserID,UserName,Score
Dim SqlStr
//用于动态取得需要录入多少条记录
recCnt=cint(request.form("recCnt"))
//批量录入数据
for i=1 to recCnt
UserID=trim(request.form("UserID")(i))
UserName=trim(request.form("UserName")(i))
score=trim(request.form("score")(i))
sqlStr="insert into Users(UserID,UserName,score)value(
'"sqlStr=sqlStr&UserID&"',
'"sqlStr=sqlStr&UserName&"',
'"sqlStr=sqlStr&UserName&"')"
Response.Write sqlStr
conn.execute(sqlStr)
next
conn.close
response.write"数据成功录入"
End SUB
展开全部
rs("a")=aa
rs("b")=bb
rs("c")=cc
rs("d")=dd
rs.update
rs("b")=bb
rs("c")=cc
rs("d")=dd
rs.update
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
多条记录?多个insert语句么?用循环啦
比如:
dim i
i=0
do while i<10
conn.execute("insert into ......")
i=i+1
loop
比如:
dim i
i=0
do while i<10
conn.execute("insert into ......")
i=i+1
loop
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询