Create TABLE admin(username text,age integer);

<%
Response.Buffer = False '不加此句可能出现"超过响应缓冲区限制"错误
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
conn.open "DRIVER={SQLite3 ODBC Driver};Database=F:\mzwucom\bbs\db1.db"
conn.execute("insert into admin s('usera',20)")
'conn.execute("update admin set username='kk' where username='usera'")
'conn.execute("delete from admin where age=20")
rs.open "select * from admin",conn,1,1
Do while Not rs.Eof
    Response.Write(rs("username") & "," & rs("age") & "<br/>")
    rs.movenext
Loop
rs.close
Set rs = Nothing
conn.close
Set conn = Nothing
%>