如何批量增加500个礼券卡号吗？
谁能本我看看如何批量一次性生成500个不同的卡号
<%
'批量生成礼券卡号
if request("action")="save" and request("action") <> empty then
arrName=500
For i = 0 to Ubound(arrName)
password=request.form("password")
set rs=server.createobject("adodb.recordset")
sql="select * from test"
rs.open sql,conn,1,3
rs.addnew
shuzi=cstr(Int((9999 - 1000 + 1) * Rnd() + 1000))
'Conn.execute("insert into product(prname) values('"&Trim(arrName(i))&"')")
rs("username")="&shuzi$i&"
'rs("grade")=request.form("grade")
Next
rs.update
response.write"<Script Language=Javascript>window.alert('成功生成！');location.href='index.asp';</Script>"
response.end
rs.close
set rs=nothing
end if%>
这个是我随便写的。但是不正确
[解决办法]
