每个 ASP 程序员必备的 ASP 基础代码知识
来源:云南新华电脑官方网站 数据库连接: <% 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 参数 1,1 为读取 读取内容格式:<%=rs("字段")%> 添加记录处理程序: <% 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 %>
<%=rs("name")%> | <%=rs("tel")%> | <%=rs("time")%> |
<% 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 %>
修改记录执行程序:输入 ID 号页面>>>导出相对应 ID 数据>>>>>>直接修改的处理 程序 后台
登陆处理程序例子:
<% dim name,password name=request.form("name") password=request.form("pass
word") 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/' target='_blank' class='infotextkey'>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 %>