 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
数据库连接： <% 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 %> 返回类别: 教程 上一教程: 利用ASP实现三个强盛功能之三 下一教程: ASP 3.0高级编程(六) 您可以阅读与"每个ASP程序员必备的知识-小程序汇总"相关的教程: · 用不着妄自菲薄 对ASP和ASP程序员的一些话 · 在ASP处理程序时显示进度 · 把ASP程序封装成可执行文件(无需IIS WEB服务器)直接运行的治理系统 · 一个功能完善的专栏治理的程序->这是asp.net的第二个应用(一) · HTTP方法上载文件的ASP程序实例 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
