ASP与数据库应用（给初学者）（2）

四、选择数据库里的记录

　　1.选择所有记录的字段（按记录倒序排序）：sql = "select * from data order by ID desc"
　　2.选择所有记录的姓名和E-mail字段（不排序）：sql = "select username,usermail from data"
　　3.选择姓名为“风云突变”的所有记录：sql = "select * from data where username='"风云突变"'"
　　4.选择使用 163 信箱的所有记录（按查看次数排序）：sql = "select * from data where usermail like '％"@163.com"％' order by view desc"
　　5.选择最新的10个记录：sql = "select top 10 * from data order by ID desc"

　　SQL 语句已经知道了，不过在Web应用时，还得创建一个 RecordSet 对象得到记录集，才能把从数据库里取出的值应用在网页上，如果现在将所有的记录显示在网页上就这样：
　　

Set conn = Server.CreateObject("ADODB.Connection")
　　conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")

　　sql = "select * from data"
　　Set rs = Server.CreateObject("ADODB.RecordSet")
　　rs.Open sql,conn,1,1

　　Do While Not rs.Eof
　　　　Response.Write " 

姓名："& rs("username") &"　E-mail："& rs("usermail") &"　查看："& rs("view") &"次　"& rs("indate") &"加入

"
　　　　rs.MoveNext
　　Loop 

　　rs.Close
　　Set rs = Nothing
　　conn.Close
　　Set conn = Nothing

说明：建立数据库连接；创建 rs 得到记录集；循环显示记录，rs.Eof 表示记录末，rs.MoveNext 表示移到下一个记录；最后关闭。

五、修改（更新）数据库记录

　　修改记录的E-mail：　

　Set conn = Server.CreateObject("ADODB.Connection")
　　conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")

　　ID = 1
　　usermail = "fytb@163.com"

　　sql = "update data set usermail='"&usermail&"' where ID="&CInt(ID)
　　conn.Execute(sql)

　　conn.Close
　　Set conn = Nothing

说明：建立数据库连接；获取记录ID、新 E-mail 字符串；使用 update 语句修改记录；conn.Execute 来执行；最后关闭。
　　如果使记录的查看值加1，则：sql = "update data set view=view+1 where ID="&CInt(ID)

六、删除数据库记录

　　删除某一条记录：

Set conn = Server.CreateObject("ADODB.Connection")
　　conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")

　　ID = 1

　　sql = "delete from data where ID="&CInt(ID)
　　conn.Execute(sql)

　　conn.Close
　　Set conn = Nothing

说明：建立数据库连接；获取记录ID；使用 delete 语句删除记录；conn.Execute 来执行；最后关闭。
　　删除多条记录为：sql = "delete from data where ID in (ID1,ID2,ID3)"
　　删除所有记录为：sql = "delete from data"

总结：

　　以上教程是针对ASP的初学者而写的，只是介绍了一些基本的用法，在了解之后可以自己去试试，重要的在于能举一反三、综合运用。更多的语法和参数请参阅 Microsoft Access 帮助中的 Microsoft Jet SQL 参考，由于本人才疏学浅、能力有限，如有表达不明确有地方还望指出，如果在应用当中遇到什么问题，也希望能够提出。谢谢。