<%
   语句
   ……
   %>
  <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.asp)
   <%
   Set conn = Server.CreateObject("ADODB.Connection")
   conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\bbs\db1\user.mdb")
   %>
  (用来连接bbs\db1\目录下的user.mdb数据库)
  <2>显示数据库记录
   原理：将数据库中的记录一一显示到客户端浏览器，依次读出数据库中的每一条记录
   如果是从头到尾：用循环并判断指针是否到末 使用: not rs.eof
   如果是从尾到头：用循环并判断指针是否到开始 使用：not rs.bof
  
   <!--#include file=conn.asp--> (包含conn.asp用来打开bbs\db1\目录下的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 conn=nothing
  -------------------------------------------------------
   %>
   其中response对象是服务器向客户端浏览器发送的信息
  <3>增加数据库记录
   增加数据库记录用到rs.addnew,rs.update两个函数
   <!--#include file=conn.asp--> (包含conn.asp用来打开bbs\db1\目录下的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 conn=nothing
  -------------------------------------------------------
  
   %>
  <4>删除一条记录
   删除数据库记录主要用到rs.de

评论 (0) All

登陆 还没注册？