0
我有从阵列的数据来像以下:ASP经典插入数据到SQL DATABSE
(AuthName1,AuthAddr1,AuthEmail1〜AuthName2,AuthAddr2,AuthEmail2〜)
,所以我把它分解使用下面的代码:
<%
dim authinfo
dim arr1
arr1 = Split(authinfo,"~")
for each item in arr1
response.write item
response.write ("<br>")
next
%>
它给出的结果:
AuthName1,AuthAddr1,AuthEmail1 AuthName2,AuthAddr2,AuthEmail2
然后我如下分裂每个部分更新上述代码:
<%
dim authinfo
dim arr1
arr1 = Split(authinfo,"~")
for each item in arr1
arr2 = split(item,",")
for each item2 in arr2
response.Write item2
response.Write ("<br>")
response.write ("<br>")
next
%>
我想是在(ARR2)的每个项目插入到使用SQL数据库表,那表 是(ID,AUTHORNAME,AuthorAddress,AUTHOREMAIL)
我做了以下: '<% 暗淡AUTHINFO 暗淡ARR1 暗淡ARR2 AUTHINFO = REQUEST.FORM( “authorsvalues”) ARR1 =分段(AUTHINFO, “〜”) 用于ARR1 每个项目ARR2 =分裂(项目, “”) 集合RS1 =的Server.CreateObject( “adodb.recordset”) SQL1 =“插入到作者(AUTHORNAME,AuthorAddress,AUTHOREMAIL)值( ' ”&ARR2(0)&“' ,''&arr2(1)&“''”&arr2(2)&“')” next %> ' 但是给出这个错误: 'Micro软VBScript运行时错误'800a0009' 下标超出范围:'[number:0]' /icepit/test.asp,第15行' @Zam –
第15行包含sql语句 –
您可以进行测试和写入:响应.Write arr2(1)&“
”&arr2(2) 会显示什么? – Zam