1.从地址栏获取ID值:id=request.querystring("id") 2.从地址栏获取信息并调用相应子程序:if request("action")="act" then call act() //如果提交的action值等于act则调用act子程序 3.打开数据库: Set rs = Server.CreateObject("ADODB.Recordset") sql="select * from bbs where id="&id&" order by id desc" //查询BBS表条件为ID=变量ID并按ID倒序打开 rs.open sql,conn,3,3 rs.close 4.循环查询: do while not rs.eof ...循环体... rs.movenext loop 5.从提交的表单获取值: typeid=Replace(Request.Form("typeid"),"''","''''") //获取typeid值并过滤'' 6.插入数据: Set rs = Server.CreateObject("ADODB.Recordset") rs.open"[bbs]",conn,1,3 rs.addnew rs("typeid")=typeid rs.update rs.close 7.修改数据: Set rs3 = Server.CreateObject("ADODB.Recordset") sql="select * from bbs where id="&id rs3.open sql,conn,1,3 rs3("typeid")=typeid rs3.update rs3.close 8.删除数据: Set rs3 = Server.CreateObject("ADODB.Recordset") rs.Open "select * from bbs where id="&id,conn,1,3 rs.delete rs.close 9.其它常用语句: (1)输出:response.write ... (2)连接数据库: Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("user.mdb") (3)显示数据库记录 原理:将数据库中的记录一一显示到客户端浏览器,依次读出数据库中的每一条记录 如果是从头到尾:用循环并判断指针是否到末 使用: not rs.eof 如果是从尾到头:用循环并判断指针是否到开始 使用:not rs.bof 例: sqlstr="select * from message" ---->(message为数据库中的一个数据表,即你要显示的数据所存放的数据表) rs.open sqlstr,conn,1,3 ---->(表示打开数据库的方式) rs.movefirst ---->(将指针移到第一条记录) while not rs.eof ---->(判断指针是否到末尾) response.write(rs("name")) ---->(显示数据表message中的name字段) rs.movenext ---->(将指针移动到下一条记录) wend ---->(循环结束) rs.close (4)response对象:服务器端向客户端发送的信息对象,包括直接发送信息给浏览器,重新定向URL,或设置cookie值 例:执行下句则跳转到SOHU response.Redirect("www.sohu.com") (5)request对象:客户端向服务器提出的请求 (6)session对象:作为一个全局变量,在整个站点都生效 (7)server对象:提供对服务器上方法和属性的访问 (8)<!-- #include file="conn.asp" -->
4.循环查询: do while not rs.eof ...循环体... rs.movenext loop --------- 一般用 while not rs.eof ..... rs.MoveNext wend 这样我更习惯。
能不能给一段ASP的代码,读取文本文件入数据库,文本文件类似下面: 记录1 字段一 字段二 字段三 字段四 记录2 字段一 字段二 字段三 字段四 记录3 字段一 字段二 字段三 字段四 ACCESS表的字段名:ID(自动),1,2,3,4,日期