1小时入门asp

浏览数：29 / 时间：2015年06月09日

<1> <% 语句……%>

<2>定义变量dim语句

<%
dim a,b
a=10
b=”ok!”
%>
//注意：定义的变量可以是数值型，也可以是字符或者其他类型的

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

If 条件1 then
语句1
elseif 条件2 then
语句2
else
语句3
endif

while 条件
语句
wend

for count=1 to n step m
语句1
exit for
语句2
next

二数据库操作

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\bbs\db1\user.mdb")
%>//数据库连接
<!--#include file=conn.asp-->
<%
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
%>

增加数据库记录

<!--#include file=conn.asp-->
<%
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
%>

删除一条记录

<!--#include file=conn.asp-->
<%
dim name
name="xx"
set rs=server.CreateObject("adodb.recordset") (建立recordset对象)
sqlstr="select * from 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
end if
wend
rs.close
conn.close
set rs=nothing
set conn=nothing
%>