<%
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 values('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
%>