首先要保证已经安装了IIS，有问题再说。
读写数据库代码：
<%
'建立Connection和RecordSet对象
Set Cnn = Server.CreateObject("Adodb.Connection")
Set Rs = Server.CreateObject("Adodb.Recordset")
'打开数据库
Cnn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("与当前页面相对地址下的Access文件名")
'注释：
'连接sql server数据库为
'Cnn.Open "Driver={Sql Server};server=数据库服务器地址;uid=用户名;pwd=密码;datebase=缺省的数据库"
'连接ODBC为，如果用户名或者密码为空，直接用两个连续的双引号""表示为空
'Cnn.Open "ODBC DSN名称","用户名","密码"
'打开数据表
sql="Select * from 表名"
'1和3的意思你应该知道，如果不清楚所有的情况就用这两个参数就行了。
Rs.Open sql,Cnn,1,3
'判断数据库是否为空
If Rs.eof Then
Response.Write "数据库为空。"
End if
'在数据表里添加空行
Rs.AddNew
'给空行写入数据
Rs("Name")="YangYang"
Rs("Pass")="yangyang"
'别忘了更新一下
Rs.Update
'修改记录，和添加记录类似，只是没有了Rs.AddNew
'删除数据表中的当前行
Rs.Delete
'也可以用Sql语句操作数据库,假设数据表叫Users,里面有User，Pass，Time三个字段
'用Sql插入记录
strUser="Yang"
strPass="Zhao"
strTime=now()  '注释：当前时间
sql="Insert Into Users (User,Name,Time) Values ('"&strUser&"','"&strPass&"','"&strTime&"')"
Cnn.Execute(Sql)
'用Sql删除记录
Sql="Delete Users Where User='"&strUser&"'"
Cnn.Execute(sql)
'用Sql修改记录
Sql="Update Users Set Pass='abcd' Where User='Yang'"
Cnn.Execute(sql)
'循环在网页上打印所有数据
Do Until(rs.eof)
'key可以是字段的顺序号(从1开始)，也可以是字段名称，字段名称要用双引号引起来。
Response.write Rs(key1)&RS(key2)
Rs.Next
Loop
'关闭表对象和连接对象
Rs.Close
Set Rs = Nothing
Cnn.close
Set Cnn = Nothing
%>