|
<%<br/> 语句<br/> ……<br/> %><br/> <2>定义变量dim语句<br/> <%<br/> dim a,b<br/> a=10<br/> b=”ok!”<br/> %><br/> 注意:定义的变量可以是数值型,也可以是字符或者其他类型的<br/> <3>简单的控制流程语句<br/> 1. If 条件1 then<br/> 语句1<br/> elseif 条件2 then<br/> 语句2<br/> else<br/> 语句3<br/> endif<br/> 2.while 条件<br/> 语句 <br/> wend<br/> 3.for count=1 to n step m<br/> 语句1<br/> exit for<br/> 语句2<br/> next <br/> 二.ASP数据库简单*作教程<br/> <1>.数据库连接(用来单独编制连接文件conn.asp)<br/> <%<br/> Set conn = Server.CreateObject("ADODB.Connection")<br/> conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\bbs\db1\user.mdb") <br/> %><br/> (用来连接bbs\db1\目录下的user.mdb数据库)<br/> <2>显示数据库记录<br/> 原理:将数据库中的记录一一显示到客户端浏览器,依次读出数据库中的每一条记录<br/> 如果是从头到尾:用循环并判断指针是否到末 使用: not rs.eof<br/> 如果是从尾到头:用循环并判断指针是否到开始 使用:not rs.bof</p><p> <!--#include file=conn.asp--> (包含conn.asp用来打开bbs\db1\目录下的user.mdb数据库)<br/> <%<br/> set rs=server.CreateObject("adodb.recordset") (建立recordset对象)<br/> sqlstr="select * from message" ---->(message为数据库中的一个数据表,即你要显示的数据所存放的数据表)<br/> rs.open sqlstr,conn,1,3 ---->(表示打开数据库的方式)<br/> rs.movefirst ---->(将指针移到第一条记录)<br/> while not rs.eof ---->(判断指针是否到末尾)<br/> response.write(rs("name")) ---->(显示数据表message中的name字段)<br/> rs.movenext ---->(将指针移动到下一条记录)<br/> wend ---->(循环结束)<br/> ------------------------------------------------------ <br/> rs.close<br/> conn.close 这几句是用来关闭数据库<br/> set rs=nothing<br/> set conn=nothing<br/> -------------------------------------------------------<br/> %><br/> 其中response对象是服务器向客户端浏览器发送的信息<br/> <3>增加数据库记录<br/> 增加数据库记录用到rs.addnew,rs.update两个函数<br/> <!--#include file=conn.asp--> (包含conn.asp用来打开bbs\db1\目录下的user.mdb数据库)<br/> <%<br/> set rs=server.CreateObject("adodb.recordset") (建立recordset对象)<br/> sqlstr="select * from message" ---->(message为数据库中的一个数据表,即你要显示的数据所存放的数据表)<br/> rs.open sqlstr,conn,1,3 ---->(表示打开数据库的方式)<br/> rs.addnew 新增加一条记录<br/> rs("name")="xx" 将xx的值传给name字段<br/> rs.update 刷新数据库 <br/> ------------------------------------------------------ <br/> rs.close<br/> conn.close 这几句是用来关闭数据库<br/> set rs=nothing<br/> set conn=nothing<br/> ------------------------------------------------------- </p><p> %><br/> <4>删除一条记录<br/> 删除数据库记录主要用到rs.delete,rs.update<br/> <!--#include file=conn.asp--> (包含conn.asp用来打开bbs\db1\目录下的user.mdb数据库)<br/> <%<br/> dim name<br/> name="xx"<br/> set rs=server.CreateObject("adodb.recordset") (建立recordset对象)<br/> sqlstr="select * from message" ---->(message为数据库中的一个数据表,即你要显示的数据所存放的数据表)<br/> rs.open sqlstr,conn,1,3 ---->(表示打开数据库的方式)<br/> ------------------------------------------------------- <br/> while not rs.eof<br/> if rs.("name")=name then<br/> rs.delete<br/> rs.update 查询数据表中的name字段的值是否等于变量name的值"xx",如果符合就执行删除,<br/> else 否则继续查询,直到指针到末尾为止<br/> rs.movenext<br/> emd if<br/> wend<br/> ------------------------------------------------------<br/> ------------------------------------------------------ <br/> rs.close<br/> conn.close 这几句是用来关闭数据库<br/> set rs=nothing<br/> set conn=nothing<br/> ------------------------------------------------------- <br/> %><br/> <5>关于数据库的查询<br/> (a) 查询字段为字符型<br/> <%<br/> dim user,pass,qq,mail,message<br/> user=request.Form("user")<br/> pass=request.Form("pass")<br/> qq=request.Form("qq")<br/> mail=request.Form("mail")<br/> message=request.Form("message")<br/> if trim(user)&"x"="x" or trim(pass)&"x"="x" then (检测user值和pass值是否为空,可以检测到空格)<br/> response.write("注册信息不能为空")<br/> else<br/> set rs=server.CreateObject("adodb.recordset")<br/> sqlstr="select * from user where user='"&user&"'" (查询user数据表中的user字段其中user字段为字符型)<br/> rs.open sqlstr,conn,1,3<br/> if rs.eof then<br/> rs.addnew<br/> rs("user")=user<br/> rs("pass")=pass<br/> rs("qq")=qq<br/> rs("mail")=mail<br/> rs("message")=message<br/> rs.update<br/> rs.close<br/> conn.close<br/> set rs=nothing<br/> set conn=nothing<br/> response.write("注册成功")<br/> end if <br/> rs.close<br/> conn.close<br/> set rs=nothing<br/> set conn=nothing<br/> response.write("注册重名")<br/> %><br/> (b)查询字段为数字型<br/> <%<br/> dim num<br/> num=request.Form("num")<br/> set rs=server.CreateObject("adodb.recordset")<br/> sqlstr="select * from message where id="&num (查询message数据表中id字段的值是否与num相等,其中id为数字型)<br/> rs.open sqlstr,conn,1,3<br/> if not rs.eof then<br/> rs.delete<br/> rs.update<br/> rs.close<br/> conn.close<br/> set rs=nothing<br/> set conn=nothing<br/> response.write("删除成功")<br/> end if<br/> rs.close<br/> conn.close<br/> set rs=nothing<br/> set conn=nothing<br/> response.write("删除失败")<br/> %><br/> <6>几个简单的asp对象的讲解<br/> response对象:服务器端向客户端发送的信息对象,包括直接发送信息给浏览器,重新定向URL,或设置cookie值<br/> request对象:客户端向服务器提出的请求<br/> session对象:作为一个全局变量,在整个站点都生效<br/> server对象:提供对服务器上方法和属性的访问 <br/> (a) response对象的一般使用方法<br/> 比如:<br/> <%<br/> resposne.write("hello, welcome to asp!")<br/> %><br/> 在客户端浏览器就会看到 hello, welcome to asp! 这一段文字<br/> <%<br/> response.Redirect("www.sohu.com")<br/> %><br/> 如果执行这一段,则浏览器就会自动连接到 “搜狐” 的网址<br/> 关于response对象的用法还有很多,大家可以研究研究<br/> request对象的一般使用方法<br/> 比如客户端向服务器提出的请求就是通过request对象来传递的<br/> 列如 :你在申请邮箱的所填写的个人信息就是通过该对象来将<br/> 你所填写的信息传递给服务器的<br/> 比如:这是一段表单的代码,这是提供给客户填写信息的,填写完了按<br/> “提交”传递给request.asp文件处理后再存入服务器数据库<br/> <form name="form1" method="post" action="request.asp"><br/> <p><br/> <input type="text" name="user"><br/> </p><br/> <p> <br/> <input type="text" name="pass"><br/> </p><br/> <p><br/> <input type="submit" name="Submit" value="提交"><br/> </p><br/> </form> <br/> 那么request.asp该如何将其中的信息读入,在写入数据库,在这里就要用到<br/> request对象了,下面我们就来分析request.asp的写法<br/> <%<br/> dim name,password (定义user和password两个变量)<br/> name=request.form(“user”) (将表单中的user信息传给变量name)<br/> password=request.form(“pass”) (将表单中的pass信息传给变量password)<br/> %> <br/> 通过以上的几句代码我们就将表单中的数据读进来了,接下来我们要做的就是将<br/> 信息写入数据库了,写入数据库的方法上面都介绍了,这里就不一一复述了。<br/> (通过上面的学习大家完全可以自己做一个留言版了) <br/> 看看我做的留言本:http://ppl.gxgxxx.edu.cn/wyzz/w_cbb/wyg/book.htm |
|