问题：网上找的代码,改了一下,但不太正常,望高手指点!从另一页面提交数据,以下是处理页,提交一两条记录的时候,还可以,多一点,就错误,显示对象关闭时不允许操作<％xm=Request.Form(xm)值为aaa,bbb,ccc,下面的也是一样. yw=Request.Form(yw)sx=Request.Form(sx)en=Request.Form(en)wl=Request.Form(wl)zz=Request.Form(zz)ls=Request.Form(ls)zf=Request.Form(zf)pq=Request.Form(pq)xm=SPLIT(xm,,)从,处分割为aaa bbb ccc for i=0 to ubound(xm)xm(i)=xm(i)nextyw=SPLIT(yw,,) for i=0 to ubound(yw)yw(i)=yw(i)nextsx=SPLIT(sx,,) for i=0 to ubound(sx)sx(i)=sx(i)nexten=SPLIT(en,,)从,处分割为aaa bbb ccc for i=0 to ubound(en)en(i)=en(i)nextwl=SPLIT(wl,,) for i=0 to ubound(wl)wl(i)=wl(i)nextzz=SPLIT(zz,,) for i=0 to ubound(zz)zz(i)=zz(i)nextls=SPLIT(ls,,)从,处分割为aaa bbb ccc for i=0 to ubound(ls)ls(i)=ls(i)nextzf=SPLIT(zf,,) for i=0 to ubound(zf)zf(i)=zf(i)nextpq=SPLIT(pq,,) for i=0 to ubound(pq)pq(i)=pq(i)next for i=0 to ubound(xm) if yw(i)<> or xm(i)<> thendim rs dim sql set rs = server.createobject(adodb.recordset)sql = select * from tabletemp where [name]=&trim(xm(i))&rs.open sql,conn,1,3if not rs.recordcount=0 then response.write i&&trim(xm(i))&此号码已存在，请重新输入&<br>elseset rs = server.createobject(adodb.recordset)sql=insert into tabletemp (name,Chinese,Math,English,wuli,zhengzi,lishi,zong,ping) values (&trim(xm(i))&,&trim(yw(i))&,&trim(sx(i))&,&trim(en(i))&,&trim(wl(i))&,&trim(zz(i))&,&trim(ls(i))&,&trim(zf(i))&,&trim(pq(i))&)此处可这样加入一个SQL语句进行数据库录入处理conn.execute sqlrs.Open sql,conn,1,3 rs.update％><％end ifend ifnext％><％ rs.close set rs=nothingconn.closeset conn=nothing ％>
xm=SPLIT(xm,",")'从","处分割为aaa bbb ccc 是已经给xm数组赋值，后面三句可以去掉，后面也一样
for i=0 to ubound(xm)
xm(i)=xm(i)
next
<%
xm=Request.Form("xm")'值为"aaa,bbb,ccc",下面的也是一样.
yw=Request.Form("yw")
sx=Request.Form("sx")
en=Request.Form("en")
wl=Request.Form("wl")
zz=Request.Form("zz")
ls=Request.Form("ls")
zf=Request.Form("zf")
pq=Request.Form("pq")
xm=SPLIT(xm,", ")'从","处分割为aaa bbb ccc 注：如果在","的逗号后加一个空格，后面用到xm(i)时也可以不用trim（），不过用也可以，更安全，因为你从former得到的数据实际上是aaa, bbb, ccc,逗号后有一个空格
yw=SPLIT(yw,",")
sx=SPLIT(sx,",")
en=SPLIT(en,",")'从","处分割为aaa bbb ccc
wl=SPLIT(wl,",")
zz=SPLIT(zz,",")
ls=SPLIT(ls,",")'从","处分割为aaa bbb ccc
zf=SPLIT(zf,",")
pq=SPLIT(pq,",")
for i=0 to ubound(xm)
if yw(i)<>"" or xm(i)<>"" then
dim rs
dim sql
set rs = server.createobject("adodb.recordset")
sql = "select * from tabletemp where [name]='"&trim(xm(i))&"'"
rs.open sql,conn,1,3
if rs.recordcount<>0 then
response.write i&"'"&trim(xm(i))&"'此号码已存在，请重新输入"&"<br>"
else
'把这句去掉，rs被重复的定义，这里没有必要set rs = server.createobject("adodb.recordset")
sql2="insert into tabletemp (name,Chinese,Math,English,wuli,zhengzi,lishi,zong,ping) values ('"&trim(xm(i))&"',"&trim(yw(i))&","&trim(sx(i))&","&trim(en(i))&","&trim(wl(i))&","&trim(zz(i))&","&trim(ls(i))&","&trim(zf(i))&","&trim(pq(i))&")"
'此处可这样加入一个SQL语句进行数据库录入处理
conn.execute sql2
'把这句去掉rs.Open sql,conn,1,3
'把这句去掉rs.update
end if
rs.close
end if
next
set rs=nothing
conn.close
set conn=nothing
%>
如果你对网上找的代码,改了一下,但不太正常,望高手指点!从另一页面提交数据,以下是处理页,提交一两条记录的时候,还可以,多一点,就错误,显示对象关闭时不允许操作<％xm=Request.Form(xm)值为aaa,bbb,ccc,下面的也是一样. yw=Request.Form(yw)sx=Request.Form(sx)en=Request.Form(en)wl=Request.Form(wl)zz=Request.Form(zz)ls=Request.Form(ls)zf=Request.Form(zf)pq=Request.Form(pq)xm=SPLIT(xm,,)从,处分割为aaa bbb ccc for i=0 to ubound(xm)xm(i)=xm(i)nextyw=SPLIT(yw,,) for i=0 to ubound(yw)yw(i)=yw(i)nextsx=SPLIT(sx,,) for i=0 to ubound(sx)sx(i)=sx(i)nexten=SPLIT(en,,)从,处分割为aaa bbb ccc for i=0 to ubound(en)en(i)=en(i)nextwl=SPLIT(wl,,) for i=0 to ubound(wl)wl(i)=wl(i)nextzz=SPLIT(zz,,) for i=0 to ubound(zz)zz(i)=zz(i)nextls=SPLIT(ls,,)从,处分割为aaa bbb ccc for i=0 to ubound(ls)ls(i)=ls(i)nextzf=SPLIT(zf,,) for i=0 to ubound(zf)zf(i)=zf(i)nextpq=SPLIT(pq,,) for i=0 to ubound(pq)pq(i)=pq(i)next for i=0 to ubound(xm) if yw(i)<> or xm(i)<> thendim rs dim sql set rs = server.createobject(adodb.recordset)sql = select * from tabletemp where [name]=&trim(xm(i))&rs.open sql,conn,1,3if not rs.recordcount=0 then response.write i&&trim(xm(i))&此号码已存在，请重新输入&<br>elseset rs = server.createobject(adodb.recordset)sql=insert into tabletemp (name,Chinese,Math,English,wuli,zhengzi,lishi,zong,ping) values (&trim(xm(i))&,&trim(yw(i))&,&trim(sx(i))&,&trim(en(i))&,&trim(wl(i))&,&trim(zz(i))&,&trim(ls(i))&,&trim(zf(i))&,&trim(pq(i))&)此处可这样加入一个SQL语句进行数据库录入处理conn.execute sqlrs.Open sql,conn,1,3 rs.update％><％end ifend ifnext％><％ rs.close set rs=nothingconn.closeset conn=nothing ％>这个问题有好的意见或
建议，请留言
|
您当前的位置：
百科371 → 电脑/网络 → 其他编程 → 电脑/网络内容
退出登录 
减小字体
增大字体