增，删，改，查，分页源代码，全是由本人编辑，相对来说是比较简单的，

不过用的是文本文件，里面的代码都注解的比较清楚，

我现在在准备一套ASP教程，不过没太多时间，

大家请耐心等吧！！


这几个代码，只是我教程中的一小小部份~_~!

XcmI5NRw.rar (117.38 KB) 增，删，改，查，分页教程，适合新手！

SQL数据！

--创建数据库
create database test2
--使用数据库
use test2
use master
--创建表
create table yg1(
id int identity(1,1) primary key,
name varchar(50),
pass varchar(50)
)
--删除表
drop table yg
--删除数据库
drop database test2
--数据库四个操作:增 删 改 查
--创建一个员工工资表，里面包含了各个员工的号码
--(从1自动递增)姓名，性别，出生年月，基本工资，奖金，总工资。
create table yg(
id int identity(1,1) primary key clustered,
name char(10),
sex char(2),
birth datetime,
gz float,
jj float,
zgz as gz+jj
)
--增加数据操作
insert into yg values('张三','男','1965-9-18',1000,200)
insert into yg(name,sex) values('张三','男')
insert into yg values('陈小东','男','1970-9-18',1100,230)
insert into yg values('陈红','女','1971-10-18',1300,190)

--查询数据库
select * from yg
--查询男职工的工资
select * from yg where sex='男'
--查询奖金为200元的职工姓名
select name from yg where jj=200
--查询奖金在200到500之间的职工姓名
select name from yg where jj between 200 and 500
--查询张三的工资
select gz from yg where name='张三'
select gz as '工资' from yg where name='张三'
--按工资排序
select * from yg order by gz --升序(从小到大)
select * from yg order by gz desc --降序(从大到小)
--奖金前三名
select top 3 name,jj from yg order by jj desc
--奖金前20%
select top 20 percent name,jj from yg order by jj desc
--查询职工人数
select count(id) from yg
--查询平均工资
select avg(gz) from yg
--查询最高工资的人
select top 1 name,gz,jj from yg order by gz desc
--查询最低工资的人
select top 1 name,gz,jj from yg order by gz

--删除记录
--删除张三的记录
delete from yg where name='张三'
delete from yg where id=5

--修改记录
--给张三的工资加500
update yg set gz=gz+500 from yg where name='张三'

三种对象：
1、connection 建立与数据库的连接(也可以执行增、删、改、查命令，而且还是常用方法)

2、command 对数据库执行增、删、改、查命令

3、recordset 得到从数据库返回的记录集(也可以执行增、删、改、查命令,但分页显示一定要用它)

在database目录中建立www.mdb数据库
id 自动
name 文本
url 文本
intro 备注
submit_date 日期/时间

connection 连接数据库代码：

dim db '定义数据库连接名
'建立connection对象
set db=server.createobject("adodb.connection") '连接数据库
'连接access数据库
db.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("/database/www.mdb")
'连接sql server 数据库
db.open "driver={SQL Server};SERVER=fzu80;UID=user1;PWD=123;DATABASE=test3"
'以上代码为常用代码
'访问数据库
dim strsql,rs
strsql="select * from link"
set rs=db.execute(strsql)
'关闭连接
db.close
set db=nothing

command 连接代码：

dim db
set db=server.createobject("adodb.connection")
db.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("/database/www.mdb")
'上面代码为固定写法
'建立command 对象
dim cmd
set cmd=server.createobject("adodb.command")
'建立连接
cmd.activeconnection=db
'访问数据库
dim strsql,rs
strsql="select * from link"
cmd.commandtext=strsql
set rs=cmd.execute

recordset 连接代码：

dim db
set db=server.createobject("adodb.connection")
db.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("/database/www.mdb")
'以上为固定写法
'建立recordset 对象
dim strsql,rs
set rs=server.createobject("adodb.recordset")
'连接数据库
strsql="select * from link"
rs.open strsql,db
'rs.open strsql,db,1,2
'rs.open 查询,数据库连接,指针类型,锁定方式,查询类型
'
指针类型：
0 前移 默认值
1 前或后移 建议用这个
2 动态指针
3 静态指针

锁定方式：
1 只读 默认值
2 只能被一个客户修改 建议用这个
3 同时被多个客户修改
4 可修改，但不锁定其它客户

查询参数，可以写，也可不写，自动确定
rs.close
set rs=nothing
db.close
set db=nothing

[此贴子已经被作者于2005-12-27 18:42:41编辑过]

看来我的教程是拉圾了点， 哎！ 没人顶了！！

真不好意思！！！！！