UC知道下面的代码有什么错误呢?
来源：百度知道 编辑：UC知道 时间：2024/05/21 14:02:29
下面的代码有什么错误呢?怎么我调试的时候它老提示 错误的 'Next'?
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from musiclist",conn,2,3
dim a(),b(),c(),r,s
for r=0 to 3
a(r)=trim(request.form("songname"& r))
b(r)=trim(request.form("singer"& r))
c(r)=trim(request.form("special"& r))
if a(r)<>"" and b(r)<>"" and c(r)<>"" then
next r
else
response.write "<script language='javascript'>"
response.write "alert('填写不完全，单击“确定”返回！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
end if
for s=0 to 3
rs.addnew
rs("songname")=a(s)
rs("singer")=b(s)
rs("special")=c(s)
rs("adddate")=now()
rs.update
next s
rs.clo
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from musiclist",conn,2,3
dim a(),b(),c(),r,s
for r=0 to 3
a(r)=trim(request.form("songname"& r))
b(r)=trim(request.form("singer"& r))
c(r)=trim(request.form("special"& r))
if a(r)<>"" and b(r)<>"" and c(r)<>"" then
next r
else
response.write "<script language='javascript'>"
response.write "alert('填写不完全，单击“确定”返回！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
end if
for s=0 to 3
rs.addnew
rs("songname")=a(s)
rs("singer")=b(s)
rs("special")=c(s)
rs("adddate")=now()
rs.update
next s
rs.clo
用正则表达式判断
正则表达式限制输入框只能输入数字 代码如下：
<input type="text" onkeyup="this.value=this.value.replace(/[^\d]/g,'') " onafterpaste="this.value=this.value.replace(/[^\d]/g,'') " name="f_order" value="1"/>
其中，onafterpaste防止用户从其它地方copy内容粘贴到输入框
next r 应该在end if 的后面,修改：
dim a(),b(),c(),r,s
for r=0 to 3
a(r)=trim(request.form("songname"& r))
b(r)=trim(request.form("singer"& r))
c(r)=trim(request.form("special"& r))
next r
if not a(r)="" and not b(r)="" and not c(r)="" then
for s=0 to 3
rs.addnew
rs("songname")=a(s)
rs("singer")=b(s)
rs("special")=c(s)
rs("adddate")=now()
rs.update
next s
else
response.write "<script language='javascript'>"
response.wr