Question

用asp把多选选中内容存入到数据库，选项有两个变量，我想都存入到数据库表中的同一行里！具体请看截图！

这是我出来的图，我希望选出来后，第一行的question项和第二行的单选题在同一行。
以下是程序的部分代码！
<%'题目录入

if request("action")="insert" then

dim drs,ssql,que,i
set drs = server.createobject("adodb.recordset")
que=split((request("question")),",")
ssql="select * from teacherselect"
drs.open ssql,conn,1,3
for i=0 to Ubound(que)
drs.AddNew
drs("question")=que(i)
next
drs.update
drs.close
set drs=nothing
%>
<%'题型录入

if request("action")="insert" then

dim adrs,assql,ty,ai
set adrs = server.createobject("adodb.recordset")
ty=split((request("type")),",")
assql="select * from teacherselect"
adrs.open assql,conn,1,3
for ai=0 to Ubound(ty)
adrs.AddNew
adrs("type")=ty(ai)
next
adrs.update
adrs.close
set adrs=nothing
%>
<script language=vbscript>
msgbox "操作成功!新试卷的信息添加成功!"
</script>
<%
end if
end if

'题目选择
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from question"
rs.open sql,conn,1,1
if err.number<>0 then
response.write "数据库操作失败："&err.description
elseif rs.bof and rs.eof then
response.write "<center>对不起,暂时没有任何考试科目。</center>"
rs.close
else
do while not rs.eof
Response.Write( "<input name=question type=checkbox value=" & rs("question") & ">" & rs("question") & "，题型为<input name=type type=checkbox value=" & rs("type") & ">" & rs("type") & "<br>")
rs.movenext
loop
end if
rs.close
set rs=nothing

%>

Answer 1

已经处理好，代码已经发送