Question

ASP中数组写入数据库的问题

我做了一个网页，左侧是很多“复选框”组成的树形列表，右侧是一个“文本区域”和一个提交按钮。
比如用户在左侧6个“复选框”上打上对勾，并在右侧“文本区域”中写入内容，单击提交按钮就可写入数据库。
下面是写入数据库的ASP文件

<!--#include file="Include/Config.asp" -->

<%

Dim Conn
Set Conn = Server.CreateObject("Adodb.Connection")
Conn.Open ConnStr

Dim Rs
Dim Sql
Dim Id,ShortContent,AdminID,aryChecks
Dim i

Id=Request("Id")
ShortContent=Replace(Trim(Request("ShortContent")),"'","''")
adminID=Replace(Request("adminID")," ","")
aryChecks = split(adminID,",")

Sql="Select * From DXContent"
Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.Open Sql,Conn,1,3

for i=0 to uBound(aryChecks)
Rs.AddNew

Rs("ShortContent")= ShortContent

Rs("adminID")=adminID

Rs("upTime")= Now

Rs.Update
next
Rs.Close
Set Rs=Nothing

%>

这时问题出现了。通过上面的代码写入的效果是这样的(注解：下面“写入的内容”是一样)

ID ShortContent AdminID UpTime

1 写入的内容 7,9,11,12,23,25 2007-6-20
2 写入的内容 7,9,11,12,23,25 2007-6-20
3 写入的内容 7,9,11,12,23,25 2007-6-20
4 写入的内容 7,9,11,12,23,25 2007-6-20
5 写入的内容 7,9,11,12,23,25 2007-6-20
6 写入的内容 7,9,11,12,23,25 2007-6-20

请问各位大侠，要想得到以下的效果，该怎么改上面的代码？

ID ShortContent AdminID UpTime

1 写入的内容 7 2007-6-20
2 写入的内容 9 2007-6-20
3 写入的内容 11 2007-6-20
4 写入的内容 12 2007-6-20
5 写入的内容 23 2007-6-20
6 写入的内容 25 2007-6-20
百度不支持连续空格，写入数据库部分可能看的不是很直观。
ShortContent“写入的内容”我本来就要一样的，不用管他。
主要是怎么将AdminID的一个个数分解出来。像这样

ID__________ShortContent____________AdminID________________UpTime

1____________写入的内容_______________7____________________2007-6-20
2____________写入的内容_______________9____________________2007-6-20
3____________写入的内容_______________11___________________2007-6-20
4____________写入的内容_______________12___________________2007-6-20
5____________写入的内容_______________23___________________2007-6-20
6____________写入的内容_______________25___________________2007-6-20

Answer 1

哈哈 这个容易了。
你把 Rs("adminID")=adminID
改成 Rs("adminID")=aryChecks(i)
就可以了。

Answer 2

你的ShortContent ，adminID 都没变化，当然是一样撒，