1小时入门asp

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

<%
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
%>