定义数据库连接的一些常量
Const adOpenForwardOnly = 0 '游标只向前浏览记录，不支持分页、Recordset、BookMark
Const adOpenKeyset = 1 '键集游标，其他用户对记录说做的修改将反映到记录集中，但其他用户增加或删除记录不会反映到记录集中。支持分页、Recordset、BookMark
Const adOpenDynamic = 2 '动态游标功能最强，但耗资源也最多。用户对记录说做的修改，增加或删除记录都将反映到记录集中。支持全功能浏览(ACCESS不支持)。
Const adOpenStatic = 3 '静态游标，只是数据的一个快照，用户对记录说做的修改，增加或删除记录都不会反映到记录集中。支持向前或向后移动
Const adLockReadOnly = 1 '锁定类型，默认的，只读，不能作任何修改
Const adLockPessimistic = 2 '当编辑时立即锁定记录，最安全的方式
Const adLockOptimistic = 3 '只有在调用Update方法时才锁定记录集，而在此前的其他操作仍可对当前记录进行更改、插入和删除等
Const adLockBatchOptimistic = 4 '当编辑时记录不会被锁定，而更改、插入和删除是在批处理方式下完成的
Const adCmdText = &H0001
Const adCmdTable = &H0002
%>
11.ACCESS数据库连接:
<%
option explicit
dim startime,endtime,conn,connstr,db
startime=timer()
'更改数据库名字
db={DATABASE_NAME}
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
conn.Open connstr
function CloseDatabase
Conn.close
Set conn = Nothing
End Function
%>
12.SQL数据库连接:
<%
option explicit
dim startime,endtime,conn,connstr,db
startime=timer()
connstr="driver={SQL Server};server=服务器名称;uid=数据库用户名称;pwd=数据库用户密码;database=数据库名称"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
function CloseDatabase
Conn.close
Set conn = Nothing
End Function
%>
1.rs.open后的参数意义
RS.OPEN SQL,CONN,A,B
A: ADOPENFORWARDONLY(=0) 只读,且当前数据记录只能向下移动
ADOPENSTATIC(=3) 只读,当前数据记录可自由移动
ADOPENKEYSET(=1) 可读写,当前数据记录可自由移动
ADOPENDYNAMIC(=2) 可读写,当前数据记录可自由移动,可看到新增记录
B: ADLOCKREADONLY(=1) 默认值,用来打开只读记录
ADLOCKPESSIMISTIC(=2) 悲观锁定
ADLOCKOPTIMISTIC(=3) 乐观锁定
ADLOCKBATCHOPTIMISTIC(=4) 批次乐观锁定
4.判断SQL语句是否执行成功？
利用err对象就可以了。
sql="insert into table(f1,f2) values('v1','v2')"
conn.execute sql
if err.number0 then
response.write "出错了："& err.description err.clear
else
response.write "OK"
end if
建表格：
语法：
Create TABLE table_name(
column1 DATATYPE [NOT NULL] [NOT NULL PRIMARY KEY],
column2 DATATYPE [NOT NULL],
...）
说明
DATATYPE --是资料的格式，详见表。
NUT NULL --可不可以允许资料有空的（尚未有资料填入）。
PRIMARY KEY --是本表的主键。
更改表格
Alter TABLE table_name
ADD COLUMN column_name DATATYPE
说明 增加一个栏位（没有删除某个栏位的语法）
Alter TABLE table_name
ADD PRIMARY KEY (column_name)
说明 更改表得的定义把某个栏位设为主键
Alter TABLE table_name
Drop PRIMARY KEY (column_name)
说明 把主键的定义删除。
建立索引
Create INDEX index_name ON table_name (column_name)
说明 对某个表格的栏位建立索引以增加查询时的速度
删除
Drop table_name
Drop index_name
资料形态 DATATYPE
ＳＱＬ 的资料形态 DATATYPEs
smallint
16 位元的整数
interger
32 位元的整数
decimal(p,s)
p 精确值和 s 大小的十进位整数，精确值 p 是指全部有几个数(digits)
大小值 s 是指小数点後有几位数。
如果没有特别指定，则系 统会设为 p=5; s=0 。
float
32位元的实数
double
64位元的实数
char(n)
n 长度的字串，n不能超过 254
varchar(n)
长度不固定且其最大长度为 n 的字串，n不能超过 4000
graphic(n)
和 char(n) 一样，不过其单位是两个字元 double-bytes， n不能超过 127。这个形态是为了支援两个字元长度的字体，例如中文字
vargraphic(n)
可变长度且其最大长度为 n 的双字元字串，n不能超过 2000
date
包含了 年份、月份、日期.
time
包含了 小时、分钟、秒.
timestamp
包含了 年、月、日、时、分、秒、千分之一秒.
资料操作 ＤＭＬ （Data Manipulation Language)
资料定义好之後接下来的就是资料的操作。资料的操作不外乎增加资料（insert)、 查询资料（query）、更改资料（update) 、删除资料（delete）四种模式，以下分别介绍他们的语法：
增加资料：
Insert INTO table_name (column1,column2,...) valueS ( value1,value2, ...)
说明：
1.若没有指定column 系统则会按表格内的栏位顺序填入资料
2.栏位的资料形态和所填入的资料必须吻合
3.table_name 也可以是景观 view_name
Insert INTO table_name (column1,column2,...) Select columnx,columny,... FROM another_table
说明：也可以经过一个子查询（subquery）把别的表格的资料填入
查询资料：
基本查询
Select column1,columns2,... FROM table_name
说明：把table_name 的特定栏位资料全部列出来
Select *
FROM table_name
Where column1 = ***
[AND column2 > yyy] [OR column3 <> zzz]
说明：
1.'*'表示全部的栏位都列出来
2.Where 之後是接条件式，把符合条件的资料列出来
Select column1,column2
FROM table_name
orDER BY column2 [DESC]
说明：
orDER BY 是指定以某个栏位做排序，[DESC]是指从大到小排列，若
没有指明，则是从小到大排列
组合查询
组合查询是指所查询得资料来源并不只有单一的表格，而是联合一个以上的表格才能够得到结果的。
Select *
FROM table1,table2
Where table1.colum1=table2.column1
说明：
1.查询两个表格中其中 column1 值相同的资料
2.当然两个表格相互比较的栏位，其资料形态必须相同
3.一个复杂的查询其动用到的表格可能会很多个
整合性的查询：
Select COUNT (*)
FROM table_name
Where column_name = ***
说明：
查询符合条件的资料共有几笔
Select SUM(column1)
FROM table_name
说明：
1.计算出总和，所选的栏位必须是可数的数字形态
2.除此以外还有 AVG() 是计算平均、MAX()、MIN()
计算最大最小值的整合性查询
Select column1,AVG(column2)
FROM table_name
GROUP BY column1
HAVING AVG(column2) > ***
说明：
1.GROUP BY: 以column1 为一组计算 column2 的平均值
必须和 AVG、SUM 等整合性查询的关键字一起使用
2.HAVING : 必须和 GROUP BY 一起使用作为整合性的限制
复合性的查询
Select *
FROM table_name1
Where EXISTS (
Select *
FROM table_name2
Where conditions )
说明：
1.Where 的 conditions 可以是另外一个的 query
2.EXISTS 在此是指存在与否
Select *
FROM table_name1
Where column1 IN (
Select column1
FROM table_name2
Where conditions )
说明
1. IN 後面接的是一个集合，表示column1 存在集合里面
2. Select 出来的资料形态必须符合 column1
其他查询
Select *
FROM table_name1
Where column1 LIKE 'x%'
说明：
1.LIKE 必须和後面的'x%' 相呼应表示以 x为开头的字串
Select *
FROM table_name1
Where column1 IN ('***','yyy',..)
说明
1. IN 後面接的是一个集合，表示column1 存在集合里面
Select *
FROM table_name1
Where column1 BETWEEN xx AND yy
说明
1. BETWEEN 表示 column1 的值介於 xx 和 yy 之间
更改资料：
Update table_name
SET column1='***'
Where conditoins
说明：
1.更改某个栏位设定其值为'***'
2.conditions 是所要符合的条件、若没有 Where 则
整个 table 的那个栏位都会全部被更改
删除资料：
Delete FROM table_name
Where conditions
说明：删除符合条件的资料
建表格：
语法：
Create TABLE table_name(
column1 DATATYPE [NOT NULL] [NOT NULL PRIMARY KEY],
column2 DATATYPE [NOT NULL],
...）
说明
DATATYPE --是资料的格式，详见表。
NUT NULL --可不可以允许资料有空的（尚未有资料填入）。
PRIMARY KEY --是本表的主键。
更改表格
Alter TABLE table_name
ADD COLUMN column_name DATATYPE
说明 增加一个栏位（没有删除某个栏位的语法）
Alter TABLE table_name
ADD PRIMARY KEY (column_name)
说明 更改表得的定义把某个栏位设为主键
Alter TABLE table_name
Drop PRIMARY KEY (column_name)
说明 把主键的定义删除。
建立索引
Create INDEX index_name ON table_name (column_name)
说明 对某个表格的栏位建立索引以增加查询时的速度
删除
Drop table_name
Drop index_name
资料形态 DATATYPE
ＳＱＬ 的资料形态 DATATYPEs
smallint
16 位元的整数
interger
32 位元的整数
decimal(p,s)
p 精确值和 s 大小的十进位整数，精确值 p 是指全部有几个数(digits)
大小值 s 是指小数点後有几位数。
如果没有特别指定，则系 统会设为 p=5; s=0 。
float
32位元的实数
double
64位元的实数
char(n)
n 长度的字串，n不能超过 254
varchar(n)
长度不固定且其最大长度为 n 的字串，n不能超过 4000
graphic(n)
和 char(n) 一样，不过其单位是两个字元 double-bytes， n不能超过 127。这个形态是为了支援两个字元长度的字体，例如中文字
vargraphic(n)
可变长度且其最大长度为 n 的双字元字串，n不能超过 2000
date
包含了 年份、月份、日期.
time
包含了 小时、分钟、秒.
timestamp
包含了 年、月、日、时、分、秒、千分之一秒.
资料操作 ＤＭＬ （Data Manipulation Language)
资料定义好之後接下来的就是资料的操作。资料的操作不外乎增加资料（insert)、 查询资料（query）、更改资料（update) 、删除资料（delete）四种模式，以下分别介绍他们的语法：
增加资料：
Insert INTO table_name (column1,column2,...) valueS ( value1,value2, ...)
说明：
1.若没有指定column 系统则会按表格内的栏位顺序填入资料
2.栏位的资料形态和所填入的资料必须吻合
3.table_name 也可以是景观 view_name
Insert INTO table_name (column1,column2,...) Select columnx,columny,... FROM another_table
说明：也可以经过一个子查询（subquery）把别的表格的资料填入
查询资料：
基本查询
Select column1,columns2,... FROM table_name
说明：把table_name 的特定栏位资料全部列出来
Select *
FROM table_name
Where column1 = ***
[AND column2 > yyy] [OR column3 <> zzz]
说明：
1.'*'表示全部的栏位都列出来
2.Where 之後是接条件式，把符合条件的资料列出来
Select column1,column2
FROM table_name
orDER BY column2 [DESC]
说明：
orDER BY 是指定以某个栏位做排序，[DESC]是指从大到小排列，若
没有指明，则是从小到大排列
组合查询
组合查询是指所查询得资料来源并不只有单一的表格，而是联合一个以上的表格才能够得到结果的。
Select *
FROM table1,table2
Where table1.colum1=table2.column1
说明：
1.查询两个表格中其中 column1 值相同的资料
2.当然两个表格相互比较的栏位，其资料形态必须相同
3.一个复杂的查询其动用到的表格可能会很多个
整合性的查询：
Select COUNT (*)
FROM table_name
Where column_name = ***
说明：
查询符合条件的资料共有几笔
Select SUM(column1)
FROM table_name
说明：
1.计算出总和，所选的栏位必须是可数的数字形态
2.除此以外还有 AVG() 是计算平均、MAX()、MIN()
计算最大最小值的整合性查询
Select column1,AVG(column2)
FROM table_name
GROUP BY column1
HAVING AVG(column2) > ***
说明：
1.GROUP BY: 以column1 为一组计算 column2 的平均值
必须和 AVG、SUM 等整合性查询的关键字一起使用
2.HAVING : 必须和 GROUP BY 一起使用作为整合性的限制
复合性的查询
Select *
FROM table_name1
Where EXISTS (
Select *
FROM table_name2
Where conditions )
说明：
1.Where 的 conditions 可以是另外一个的 query
2.EXISTS 在此是指存在与否
Select *
FROM table_name1
Where column1 IN (
Select column1
FROM table_name2
Where conditions )
说明
1. IN 後面接的是一个集合，表示column1 存在集合里面
2. Select 出来的资料形态必须符合 column1
其他查询
Select *
FROM table_name1
Where column1 LIKE 'x%'
说明：
1.LIKE 必须和後面的'x%' 相呼应表示以 x为开头的字串
Select *
FROM table_name1
Where column1 IN ('***','yyy',..)
说明
1. IN 後面接的是一个集合，表示column1 存在集合里面
Select *
FROM table_name1
Where column1 BETWEEN xx AND yy
说明
1. BETWEEN 表示 column1 的值介於 xx 和 yy 之间
更改资料：
Update table_name
SET column1='***'
Where conditoins
说明：
1.更改某个栏位设定其值为'***'
2.conditions 是所要符合的条件、若没有 Where 则
整个 table 的那个栏位都会全部被更改
删除资料：
Delete FROM table_name
Where conditions
说明：删除符合条件的资料
ACCESS中增加和修改字段属性语句
增加表中字段:
alter table tablename add id int IDENTITY (1, 1) NOT NULL 'ID自动编者编号
alter table tablename add 字段名 bit '是与否
alter table tablename add 字段名 varchar(250) '文本长度250
alter table tablename add 字段名 int default 0 '长整默认0
alter table tablename add 字段名text '备注
alter table tablename add 字段名 datetime default Now() '时间默认now()
alter table tablename add 字段名 image '图象
alter table tablename add 字段名 money '货币
修改表中字段
alter table tablename alter column id int IDENTITY (1, 1) NOT NULL '修改为ID自动编者编号
alter table tablename alter column columnname bit '修改为是与否
alter table tablename alter column columnname varchar(250) '修改为文本长度250
alter table tablename alter column columnname int default 0 '修改为长整默认0
alter table tablename alter column columnname text '修改为备注
alter table tablename alter column columnname datetime default Now() '修改为时间默认now()
alter table tablename alter column columnname image '修改为图象
alter table tablename alter column columnname money '修改为货币
topmargin=0
如何实现网页的向前向后，如history.go(0)等的有关内容
向前history.back(-1)或history.go(-1)
<%
If ......then
%>
<script language="vbscript">
history.back(-1)
</script>
<%
end if
%>
Alter TABLE 表名 Drop COLUMN 字段名
数据库查询中的特殊字符的问题 -- 思路[转帖]
在进行数据库的查询时，会经常遇到这样的情况：
例如想在一个用户数据库中查询他的用户名和他的密码，但恰好该用户使用的名字和密码中有特殊的字符，例如单引号，“|”号，双引号或者连字符“&”。
例如他的名字是1"test，密码是A|&900
这时当你执行以下的查询语句时，肯定会报错：
SQL = "Select * FROM SecurityLevel Where UID="" & UserID & """
SQL = SQL & " AND PWD="" & Password & """
因为你的SQL将会是这样：
Select * FROM SecurityLevel Where UID="1"test" AND PWD="A|&900"
在SQL中，"|"为分割字段用的，显然会出错了。现在提供下面的几个函数 专门用来处理这些头疼的东西：
Function ReplaceStr (TextIn, ByVal SearchStr As String, _
ByVal Replacement As String, _
ByVal CompMode As Integer)
Dim WorkText As String, Pointer As Integer
If IsNull(TextIn) Then
ReplaceStr = Null
Else
WorkText = TextIn
Pointer = InStr(1, WorkText, SearchStr, CompMode)
Do While Pointer > 0
WorkText = Left(WorkText, Pointer - 1) & Replacement & _
Mid(WorkText, Pointer + Len(SearchStr))
Pointer = InStr(Pointer + Len(Replacement), WorkText, SearchStr, CompMode)
Loop
ReplaceStr = WorkText
End If
End Function
Function SQLFixup(TextIn)
SQLFixup = ReplaceStr(TextIn, """, """", 0)
End Function
Function JetSQLFixup(TextIn)
Dim Temp
Temp = ReplaceStr(TextIn, """, """", 0)
JetSQLFixup = ReplaceStr(Temp, "|", "" & chr(124) & "", 0)
End Function
Function FindFirstFixup(TextIn)
Dim Temp
Temp = ReplaceStr(TextIn, """, "" & chr(39) & "", 0)
FindFirstFixup = ReplaceStr(Temp, "|", "" & chr(124) & "", 0)
End Function
有了上面几个函数后，当你在执行一个sql前，请先使用
SQL = "Select * FROM SecurityLevel Where UID="" & SQLFixup(UserID) & """
SQL = SQL & " AND PWD="" & SQLFixup(Password) & """
列出数据库中的所有表------吐血推荐
<%
strConn="DBQ="+server.mappath("kendylan.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set objConn=server.createobject("Adodb.connection")
objConn.open strConn
set rsSchema=objConn.openSchema(20)
rsSchema.movefirst
Do Until rsSchema.EOF
if rsSchema("TABLE_TYPE")="TABLE" then
response.write rsSchema("TABLE_NAME") & "<br>"
end if
rsSchema.movenext
Loop
set objConn=nothing
%>
以前这里就有说过啊