首先连接数据库，方法：http://www.xefan.cn/archives/66045.html。以下语句为示例语句，请根据实际情况修改
查询数据：
Set RS = conn.Execute(”SELECT * FROM user”)
While Not RS.EOF ‘while…wend循环，用于读取所有的信息
Response.Write RS.Fields(”username”) & “, ” & RS.Fields(”password”) & “<br>”
RS.MoveNext ‘记录集指针下移
Wend
插入数据：
Set rs = Conn.Execute(”insert into user (nm,pw) values (test’,'test’)”)
更新数据：
Set rs = Conn.Execute(”update user set nm=’用户ASPupdate’,pw=’pwaspupdate’ where id=24″)
删除数据：
Set rs = Conn.Execute(”delete from user where id=25″)
首先你的服务器得安装有MySQL ODBC驱动，下载地址：http://cn.ziddu.com/download/370567/mysql-connector-odbc-noinstall-5.1.5-win32.zip.html
数据库链接
Dim connstr, conn , rs
‘SERVER为数据库主机名（本地主机用localhost,远程用IP地址）；DATABASE为数据库名；UID为用户名；PASSWORD为密码
connstr = “DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost; DATABASE=data; UID=root;PASSWORD=root; OPTION=3″
Set conn = Server.CreateObject(”ADODB.Connection”)
conn.Open(connstr)
关闭数据库链接
Conn.Close ‘关闭数据库链接
Set Conn = Nothing ‘清空数据库链接，释放内存
首先连接数据库，方法：http://www.xefan.cn/archives/65914.html。
ID = 3
sql = “delete from test where ID=”&ID
Conn.Execute(sql)
首先连接数据库，方法：http://www.xefan.cn/archives/65914.html。
法一：
ID = “4″
nm= “www.xefan.cn”
pw = “xefan.cn”
sql=”update test set password=’”&pw&”‘,username=’”&nm&”‘ where ID=”&ID&” ”
conn.Execute(sql)
法二：
ID = “4″
nm= “www.xefan.cn”
pw = “xefan.cn”
sql = “select * from 44 where ID=”&ID&”"
rs.Open sql,conn,1,3
rs(”password”)=pw
rs(”username”)=nm
rs.update
首先连接数据库，方法：http://www.xefan.cn/archives/65914.html。往数据库的test表中字段名为username、password插入数据。
法一：
username = “www.xefan.cn”
password = “xefan.cn”
sql=”select * from test”
rs.open sql,conn,1,3
rs.addnew
rs(”username”)=username
rs(”password”)=password
rs.update
rs.close
法二：
username = “www.xefan.cn”
password = “xefan.cn”
sql=”insert into test (username,password) values (’”&username&”‘,’”&password&”‘)”
conn.execute(sql)
首先连接数据库，方法：http://www.xefan.cn/archives/65914.html。从数据库的test表中读取字段名为username、password的数据。
sql = “select * from test”
rs.Open sql,conn,1,1
Do While Not rs.Eof ‘循环输出
Response.Write “<p>账号：”& rs(”username”) &” 密码：”& rs(”password”) &” </p>”
rs.MoveNext
Loop
