|
<% dim connect, sql, c, r randomize r = int(100*rnd)+200 c = request.querystring("gtmpch") set connect = server.createobject("ADODB.Connection") connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &_ Server.MapPath("\perlphpasp\db\tempdb.mdb")) sql="insert into tempfile(tmpch,tmpnum,tmpdate)values('"&c&"',"&r&",'"&Now&"')" connect.execute(sql) connect.close set connect = nothing response.write("Insert : ok") %> |