<% 
set conn=server.createobject("adodb.connection") 
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名") 
%>

exec="select * from 数据库表" 
set rs=server.createobject("adodb.recordset") 
rs.open exec,conn,1,1 

<% 
set conn=server.createobject("adodb.connection") 
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名") 
name=request.form("字段") name,tel,message为提交表单所设置的字段值 
tel=request.form("字段") 
message=request.form("字段") 
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开 
conn.execute exec 使用execute提交 
conn.close 
set conn=nothing 
%> 

<% 
name=request.form("字段") name,tel为提交表单所设置的字段值 
tel=request.form("字段") 
set conn=server.createobject("adodb.connection") 
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名") 
exec="select * from 表 where name='"+字段+"' and tel="+字段 
set rs=server.createobject("adodb.recordset") 
rs.open exec,conn,1,1 
%> 
'页面搜索到的内容导出来 
<% 
do while not rs.eof 
%><tr> 
<td><%=rs("name")%></td> 
<td><%=rs("tel")%></td> 
<td><%=rs("time")%></td> 
</tr> 
<% 
rs.movenext 
loop 
%> 

<% 
set conn=server.createobject("adodb.connection") 
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名") 
exec="delete * from 表名 where 编号="&request.form("id") 
conn.execute exec 
%> 

<% 
set conn=server.createobject("adodb.connection") 
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名") 
exec="select * from 表名 where 编号="&request.form("id") 
set rs=server.createobject("adodb.recordset") 
rs.open exec,conn,1,3 '1,3为修改意思 
rs("name")=request.form("字段") 'name,tel,message为提交表单所设置的字段值 
rs("tel")=request.form("字段") 
rs("message")=request.form("字段") 
rs.update 
rs.close 
set rs=nothing 
conn.close 
set conn=nothing 
%> 

<% 
dim name,password 
name=request.form("name") 
password=request.form("password") 
dim exec,conn,rs 
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')" 
set conn=server.createobject("adodb.connection") 
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名") 
set rs=server.createobject("adodb.recordset") 
rs.open exec,conn 
if not rs.eof then 
rs.Close 
conn.Close 
session("checked")="yes" 
session("check")="right" 
response.Redirect "index.asp" 
else 
session("checked")="no" 
session("check")="wrong" 
response.Redirect "login.asp" 
end if 
%> 

<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量 
response.Redirect "login.asp"  
else 
%>