一小时学会ASP语言

<%

    语句

    ……

    %>

    <2>定义变量dim语句

    <%

    dim a,b

    a=10

    b=”ok!”

    %>

    注意：定义的变量可以是数值型，也可以是字符或者其他类型的

    <3>简单的控制流程语句

    1. if 条件1 then

    语句1

    elseif 条件2 then

    语句2

    else

    语句3

    endif

    2.while 条件

    语句

    wend

    3.for count=1 to n step m

    语句1

    exit for

    语句2

    next

    二.asp简单*作教程

    <1>.数据库连接(用来单独编制连接文件conn.)

    <%

    set conn = server.createobject("adodb.connection")

    conn.open "driver={microsoft access driver (*.mdb)}; dbq=" & server.mappath("bsdb1user.mdb")

    %>

    (用来连接bbsdb1目录下的user.mdb数据库)

    <2>显示数据库记录

    原理：将数据库中的记录一一显示到客户端，依次读出数据库中的每一条记录

    如果是从头到尾：用循环并判断指针是否到末 使用: not rs.eof

    如果是从尾到头：用循环并判断指针是否到开始 使用：not rs.bof

    <!--#include file=conn.asp--> (包含conn.asp用来打开bbsdb1目录下的user.mdb数据库)

    <%

    set rs=server.createobject("adodb.recordset") (建立recordset对象)

    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

    conn.close 这几句是用来关闭数据库

    set rs=nothing

    set c

    -------------------------------------------------------

    %>

    其中response对象是服务器向客户端浏览器发送的信息

    <3>增加数据库记录

    增加数据库记录用到rs.addnew,rs.update两个函数

    <!--#include file=conn.asp--> (包含conn.asp用来打开bbsdb1目录下的user.mdb数据库)

    <%

    set rs=server.createobject("adodb.recordset") (建立recordset对象)

    sqlstr="select * from message" ---->(message为数据库中的一个数据表，即你要显示的数据所存放的数据表)

    rs.open sqlstr,conn,1,3 ---->(表示打开数据库的方式)

    rs.addnew 新增加一条记录

    rs("name")="xx" 将xx的值传给name字段

    rs.update 刷新数据库

    ------------------------------------------------------

    rs.close

    conn.close 这几句是用来关闭数据库

    set rs=nothing

    set c

    -------------------------------------------------------

    %>

    <4>删除一条记录

    删除数据库记录主要用到rs.delete,rs.update

    <!--#include file=conn.asp--> (包含conn.asp用来打开bbsdb1目录下的user.mdb数据库)

    <%

    dim name

    name="xx"

    set rs=server.createobject("adodb.recordset") (建立recordset对象)

    sqlstr="select * from message" ---->(message为数据库中的一个数据表，即你要显示的数据所存放的数据表)

    rs.open sqlstr,conn,1,3 ---->(表示打开数据库的方式)

    -------------------------------------------------------

    while not rs.eof

    if rs.("name")=name then

    rs.delete

    rs.update 查询数据表中的name字段的值是否等于变量name的值"xx"，如果符合就执行删除，

    else 否则继续查询,直到指针到末尾为止

    rs.movenext

    emd if

    wend

    ------------------------------------------------------

    ------------------------------------------------------

    rs.close

    conn.close 这几句是用来关闭数据库

    set rs=nothing

    set c

    -------------------------------------------------------

    %>

    <5>关于数据库的查询

    (a) 查询字段为字符型

    <%

    dim user,pass,qq,mail,message

    user=request.form("user")

    pass=request.form("pass")

    qq=request.form("qq")

    mail=request.form("mail")

    message=request.form("message")

    if trim(user)&"x"="x" or trim(pass)&"x"="x" then (检测user值和pass值是否为空，可以检测到空格)

    response.write("注册信息不能为空")

    else

    set rs=server.createobject("adodb.recordset")

    sqlstr="select * from user where user="&user&"" (查询user数据表中的user字段其中user字段为字符型)

    rs.open sqlstr,conn,1,3

    if rs.eof then

    rs.addnew

    rs("user")=user

    rs("pass")=pass

    rs("qq")=qq

    rs("mail")=mail

    rs("message")=message

    rs.update

    rs.close

    conn.close

    set rs=nothing

    set c

    response.write("注册成功")

    end if

    rs.close

    conn.close

    set rs=nothing

    set c

    response.write("注册重名")

    %>

    (b)查询字段为数字型

    <%

    dim num

    num=request.form("num")

    set rs=server.createobject("adodb.recordset")

    sqlstr="select * from message where id="&num (查询message数据表中id字段的值是否与num相等，其中id为数字型)

    rs.open sqlstr,conn,1,3

    if not rs.eof then