主题：运用Split将多条记录写入数据库

<%
dim a,b
a=request.form("checked")
b=Split(a,",")
For i=0 To ubound(b)
conn.execute ("insert into 保险管理 (uid,险种) values ('"&b(i)&"','"&request.form("select")&"'")
next
%>

Split()

函数将一个字符串分割并返回分割结果

表达式 Split (S[，d])

实例：<%V= Split("A,B,C",",")
For I = 0 To Ubound(V)
Response.Write V(I)
Next
%>

返回结果: A B C