引用内容

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 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
%>