数据库连接
<%
set conn=servercreateobject(adodbconnection)
connopen driver={microsoft access driver (*mdb)};dbq=&servermappath(数据库名)
%>
打开数据库
exec=select * from 数据库表
set rs=servercreateobject(adodbrecordset)
rsopen execconn
参数为读取
读取内容格式<%=rs(字段)%>
添加记录处理程序
<%
set conn=servercreateobject(adodbconnection)
connopen driver={microsoft access driver (*mdb)};dbq=&servermappath(数据库名)
name=requestform(字段) nametelmessage为提交表单所设置的字段值
tel=requestform(字段)
message=requestform(字段)
exec=insert into 表名(字段)values(;+字段+;) 多个用逗号隔开
connexecute exec 使用execute提交
connclose
set conn=nothing
%>
搜索处理程序:
<%
name=requestform(字段) nametel为提交表单所设置的字段值
tel=requestform(字段)
set conn=servercreateobject(adodbconnection)
connopen driver={microsoft access driver (*mdb)};dbq=&servermappath(数据库名)
exec=select * from 表 where name=;+字段+; and tel=+字段
set rs=servercreateobject(adodbrecordset)
rsopen execconn
%>
;页面搜索到的内容导出来
<%
do while not rseof
%><tr>
<td><%=rs(name)%></td>
<td><%=rs(tel)%></td>
<td><%=rs(time)%></td>
</tr>
<%
rsmovenext
loop
%>
删除记录处理程序:
<%
set conn=servercreateobject(adodbconnection)
connopen driver={microsoft access driver (*mdb)};dbq=&servermappath(数据库名)
exec=delete * from 表名 where 编号=&requestform(id)
connexecute exec
%>
修改记录处理程序:
<%
set conn=servercreateobject(adodbconnection)
connopen driver={microsoft access driver (*mdb)};dbq=&servermappath(数据库名)
exec=select * from 表名 where 编号=&requestform(id)
set rs=servercreateobject(adodbrecordset)
rsopen execconn ;为修改意思
rs(name)=requestform(字段) ;nametelmessage为提交表单所设置的字段值
rs(tel)=requestform(字段)
rs(message)=requestform(字段)
rsupdate
rsclose
set rs=nothing
connclose
set conn=nothing
%>
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
后台登陆处理程序例子:
<%
dim namepassword
name=requestform(name)
password=requestform(password)
dim execconnrs
exec=select *from 表名 where(name=;&字段&; and password=;&字段&;)
set conn=servercreateobject(adodbconnection)
connopen driver={microsoft access driver (*mdb)};dbq=&servermappath(数据库名)
set rs=servercreateobject(adodbrecordset)
rsopen execconn
if not rseof then
rsClose
connClose
session(checked)=yes
session(check)=right
responseRedirect indexasp
else
session(checked)=no
session(check)=wrong
responseRedirect loginasp
end if
%>
每个后台页面加上:
<%if not session(checked)=yes then ;session里面定义一个checked字符串变量
responseRedirect loginasp
else
%>
