这段代码怎么写不进数据库？
<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>
