Question

我有Checkbox表单，我正在尝试将循环值保存到变量中。

这就是我循环的方式：

For i = 1 to Request.Form("packages").count
Set packnamn = ObjConn.Execute ("Select * from services_package where id='"&
Request.Form("packages")(i) &"'")

panamn = packnamn("name") & "-"
Response.write panamn
Next

这将输出

Greece-English-Spanish-

现在我试图在MySQL中保存整个输出。但我只得到循环的最后一个值（西班牙语 - ），这是我的插入代码。

Dim sql1
sql1= "insert into tariff_plan(package)"
sql1=sql1 & " VALUES "
sql1=sql1 & "('" & panamn &"')"

on error resume next
ObjConn.Execute sql1,recaffected
if err<>0 then
    Response.Write(err.description)
else
    response.write "Saved"
End if

Answer 1

您必须将值添加到您正在执行response.write的变量中，并在循环后执行插入。

panamn = ""
For i = 1 to Request.Form("packages").count
  Set packnamn = ObjConn.Execute ("Select * from services_package where id='"&
  Request.Form("packages")(i) &"'")

  panamn = panamn & packnamn("name") & "-"

Next
Response.write panamn

'Do the insert here

将循环变量插入一个表列

1 个答案: