每个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 %><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 %>

修改记录执行程序 : 输入 ID 号页面 >>> 导出相对应 ID 数据 >>>>>> 直接修改的处理程序

后台登陆处理程序例子：

以下为引用的内容： <% 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 %>