|
<% sub insertdata randomize k = int(5*rnd)+3 c = "" for j = 1 to k : c = c + chr(int(26*rnd)+65) : next r = int(10000*rnd) sql="insert into tempfile(tmpch,tmpnum,tmpdate)values('"&c&"',"&r&",'"&Now&"')" connect.execute(sql) end sub dim connect, sql, c, r, k set connect = server.createobject("ADODB.Connection") connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &_ Server.MapPath("\perlphpasp\db\tempdb.mdb")) for i = 1 to 6 : insertdata : next connect.close set connect = nothing response.write("Insert 6 records : ok") %> |