<textarea name="textarea" cols="80" rows="25"><%
            kk=request.form("n")
            dq=request.form("dq")
            yy=request.form("yy")
            bb=request.form("bb")
            for i = 1 to kk
        keynum=gen_key(10)

[bold]    Response.Write    i&"　 "&dq&""&yy&""&bb&""&keynum&"" & vbcrlf  
 
    sqlx = "insert into [www](ww,www)values('"&i&"',' "&dq&""&yy&""&bb&""&  keynum  &"')"
    conn.Execute(sqlx)[/bold]--////想把表但传递的值和产生的随机码放进一个字段内写进数据库。。。执行后没反应
Next
            
            
Function gen_key(digits)

'Create and define array
dim char_array(50)
char_array(0) = "0"
char_array(1) = "1"
char_array(2) = "2"
char_array(3) = "3"
char_array(4) = "4"
char_array(5) = "5"
char_array(6) = "6"
char_array(7) = "7"
char_array(8) = "8"
char_array(9) = "9"
char_array(10) = "A"
char_array(11) = "B"
char_array(12) = "C"
char_array(13) = "D"
char_array(14) = "E"
char_array(15) = "F"
char_array(16) = "G"
char_array(17) = "H"
char_array(18) = "I"
char_array(19) = "J"
char_array(20) = "K"
char_array(21) = "L"
char_array(22) = "M"
char_array(23) = "N"
char_array(24) = "O"
char_array(25) = "P"
char_array(26) = "Q"
char_array(27) = "R"
char_array(28) = "S"
char_array(29) = "T"
char_array(30) = "U"
char_array(31) = "V"
char_array(32) = "W"
char_array(33) = "X"
char_array(34) = "Y"
char_array(35) = "Z"
'Initiate randomize method for default seeding
randomize

'Loop through and create the output based on the the variable passed to
'the function for the length of the key.

do while len(output) < digits
num = char_array(Int((35 - 0 + 1) * Rnd + 0))
output = output + num
loop
'Set return

gen_key = output

End Function

'Write the results to the browser, currently setting a 13 digit key

'response.write "" & gen_key(14) & "" & vbcrlf
'response.write "" & gen_key(14) & "" & vbcrlf
'response.write "" & gen_key(14) & "" & vbcrlf
'response.write "" & gen_key(14) & "" & vbcrlf

%></textarea>

sqlx = "insert into [www](ww,www) values('"&i&"',' "&dq&""&yy&""&bb&""&  keynum  &"')"

这句SQL我第一眼看到就是 values前面没有空格,其他的没认真看,你检查一下

我还想问，insert 和add有什么区别，好像insert 比较简洁。。。。。。。就像
 sqlx = "insert into [www](ww,www) values('"&i&"',' "&dq&""&yy&""&bb&""&  keynum  &"')"
    conn.Execute(sqlx)
这样就可以了，而add是怎样的阿有什么不同？

set rs=server.createobject("adodb.recordset")
sql="select * from ["&table&"]"
rs.open sql,conn,1,3
rs.addnew
rs("adduser")=adduser
rs("lytype")=lylb
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing


rs.open sql,conn：如果sql是delete,update,insert则会返回一个关闭的记录集，在使用过程中不要来个rs.close在文件最后再写rs.close
中间可以来多个记录集rs1.open sql1,conn，最后一块关闭记录集:rs.close rs1.close

conn.execute(sql) 如果sql是delete,update,insert则会返回一个关闭的记录集，在使用过程中不要来个rs.close在文件最后再写rs.close
中间可以来多个记录集rs1.open sql1,conn，最后一块关闭记录集:rs.close rs1.close.
如果sql是update,insert,delete则应该使用conn.execute(sql)也可以不要括号conn.execute sql
如果sql是select语句则应该使用set rs=conn.execute(sql)括号一定要，不能省略:这是因为vbscript的特性,带返回值
的调用必须加括号，不带返回值的调用可以不要括号。


注意：不管是rs.open sql,conn还是conn.execute(sql) [这里的SQL是delete,update,insert]执行以后都会返回一个关闭的记录集
也就是说如果sql是插入，更新，删除语句,那么set rs=conn.execute(sql)中的RS就没什么意义。



1.conn.execute
sql="select * from admin where username='xiaozhu'"
set rs=conn.execute(sql)
执行完以后自动关闭记录集
最后只需要关闭连接就可以了
conn.close
set conn=nothing


2.rs.open
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='xiaozhu'"
rs.open sql,conn,1,1
可以自己设定一些参数，即锁定和游标的移动方式
最后要关闭记录集和连接
rs.close
set rs=nothing
conn.close
set conn=nothing

好的谢谢