C++博客-elva-随笔分类-ASP

asp 操作access数据库日期比较总结

叶子 — Sat, 17 Nov 2007 06:03:00 GMT

13.5.1 列出某一天, 上一星期的数据
SELECT distinct dateandtime
FROM ctdate_by_query_date
WHERE dateandtime between ((#2006-5-15#+(Weekday(2006-5-15)-7))-6) and (#2006-5-15#-7)+Weekday(2006-5-15)
sql="SELECT distinct dateandtime FROM ctarticle WHERE dateandtime between ((#"&date&"#+(Weekday("&date&")"&norp&"7))-6) and (#"&date&"#"&norp&"7)+Weekday("&date&")"
13.5 查询一天, 所隶属星期所有天数的数据
SELECT *
FROM ctdate_by_query_date
WHERE dateandtime between ((#2006-5-15#+Weekday(2006-5-15))-6) and #2006-5-15#+Weekday(2006-5-15)
13.4 查询一个时间段
SELECT *
FROM ctdate_by_query_date
WHERE dateandtime between #2006-5-1# and #2006-5-30#
13.3.2 列出不同年份的年份, 并且不要相同
select distinct year(dateandtime) from ctarticle
结果如:
Expr1000
2000
2003
2004
2005
2006
13.3.1 列出某一天, 上一年的第一条记录
SELECT top 1 dateandtime FROM ctarticle where year(dateandtime)=(2006)-1
sql="SELECT top 1 dateandtime FROM ctarticle where year(dateandtime)=(year(#"&date&"#))"&norp
13.3 列出某一年的数据
sql="select * from ctdate_by_query_date where year(dateandtime)="&year(rqqdt_)&" order by dateandtime desc"
13.2.1 查找上一月中的第一条记录
SELECT top 1 dateandtime FROM ctarticle where year(dateandtime)=year(#2006-5-28#) and month(dateandtime)=month(#2006-5-28#)-1
13.2 列出某一月的数据
sql="select * from ctdate_by_query_date where year(dateandtime)="&year(rqqdt_)&" and month(dateandtime)="&month(rqqdt_)&" order by dateandtime desc"
13.1 列出某一日的数据
sql="select * from ctdate_by_query_date where dateandtime=#"&rqqdt_&"# order by a.articleid desc"
13. 时间日期
例一: 列出当天的数据
sql="select * from ctdate_by_query_date where dateandtime=date() order by a.articleid desc"

叶子 2007-11-17 14:03 发表评论

ASP调用WEBSERVICE时错误:Connector 错误 '800a1527'

叶子 — Fri, 21 Sep 2007 08:09:00 GMT

返回的错误信息:
Microsoft VBScript 编译器错误错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Connector 错误 '800a1527'

Connector:Connection time out. HRESULT=0x800A1527 - Client:An unanticipated error occurred during the processing of this request. HRESULT=0x800A1527 - Client:Sending the Soap message failed or no recognizable response was received HRESULT=0x800A1527 - Client:Unspecified client error. HRESULT=0x800A1527

/websocket/testt.asp，行19

解决办法:

出现那个错误之后,网页就返回了,后面的代码不在继续执行,
加
on error resume next
然后
if err<>0 then 就行了
end if

叶子 2007-09-21 16:09 发表评论

禁用html页面的缓存

叶子 — Fri, 10 Aug 2007 02:50:00 GMT

，是不存储网页。一般访问会暂时存储网页下次访问就快。但是对于频繁更新的网站就不要存储，所以用no-cache

另：
1。在Asp页面首部加入
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "No-Cache"

2。在HtML代码中加入

3。在重新调用原页面的时候在给页面传一个参数
Href="****.asp?random()"

前两个方法据说有时会失效，而第三种则是在跳转时传一个随机的参数！因为aspx的缓存是与参数相关的，如果参数不同就不会使用缓存，而会重新生成页面，每次都传一个随机的参数就可以避免使用缓存。这个仅适用于asp&asp.net

asp的随机数函数：
Function rndNum (strLong)
Dim temNum
Randomize
Do While Len(RndNum) < strLong
temNum=CStr(Chr((57-48)*rnd+48))
RndNum=RndNum&temNum
loop
End Function
参数为需要的随机数长度*2

4。在jsp页面中可使用如下代码实现无缓存：

response.setHeader("Cache-Control","no-cache"); //HTTP 1.1

response.setHeader("Pragma","no-cache"); //HTTP 1.0

response.setDateHeader ("Expires", 0); //prevents caching at the proxy server

这些代码加在中间具体如下

response.setHeader("Cache-Control","no-cache"); //HTTP 1.1

response.setHeader("Pragma","no-cache"); //HTTP 1.0

response.setDateHeader ("Expires", 0); //prevents caching at the proxy server

5。window.location.replace("WebForm1.aspx");
参数就是你要覆盖的页面，replace的原理就是用当前页面替换掉replace参数指定的页面。
这样可以防止用户点击back键。使用的是javascript脚本，举例如下：

a.html

        a



       b

b.html

        b



       a

前4种只是清空了cache，即存储在Temporary Internet Files文件夹中的临时文件，而第五种则是使用跳转页面文件替换当前页面文件，并没有清空cache，也就是说Temporary Internet Files产生了相关的临时文件，两者搭配使用真是清空缓存，必备良药。正好我这里有了记录，所以常来看看哦。

叶子 2007-08-10 10:50 发表评论

ASP判断是数字的函数

叶子 — Tue, 31 Jul 2007 07:03:00 GMT

摘要: 阅读全文

叶子 2007-07-31 15:03 发表评论

ASP入门基础教程-Recordset 对象

叶子 — Mon, 30 Jul 2007 08:15:00 GMT

一、Recordset 对象简述　　Recordset 对象表示的是来自基本表或命令执行结果的记录全集。在任何情况下，该对象所指的当前记录均为集合内的单条记录。使用 Recordset 对象可以操作来自提供程序的数据，通过该对象几乎可以对所有数据进行操作。所有 Recordset 对象均使用记录（行）和字段（列）进行构造。Recordset 对象实际上是依附于 Connection 对象和 Command 对象之上的。通过建立及开启一个 Connection 对象，可以与我们关心的数据库建立连接；通过使用 Command 对象，则可以告诉数据库我们想要做什么：是插入一条记录，还是查找符合条件的记录；通过使用 Recordset 对象，则可以方便自如地操作 Command 对象返回的结果。
　　二、创建 Recordset 对象
　　要使用 Recordset 对象处理结果，首先必须创建 Recordset 对象实例。其格式如下：
Set RS=Server.CreateObject("adodb.recordset") 　　三、打开记录集
RS.Open Source,ActiveConnection,CursorType,LockType,Options 　　所有的参数都是可选项。Source 为 Command 对象变量名、SQL 语句、表名、存储过程调用或持久 Rcordset 文件名。
　　ActiveConnection 为有效的 Connection 对象变量名或包含 ConnectionString 字符串。
　　LockType 指定打开 Recordset 时应使用的锁定类型。
　　Options 指定如何计算 Source 参数或从以前保存 Recordset 的文件中恢复 Recordset。
　　　　四、Recordset 对象的常用属性
Recordset 对象的常用属性<表>

属　性	描　　述　/　注　解
ActiveConnection	指定与数据提供者的连接信息，用来指定当前的 Recordset 对象属于哪个 Connection 对象。
Source	指定 Recordset 对象的数据源，可以是一个 Command 对象名、SQL 语句、数据库表或存储过程。
CoursorType	指定 Recordset 对象所使用的光标类型。
CoursorType	共有 4 种光标类型：　　0 一前滚光标，光标只能向前移动，执行效率高。是 Cursor 的默认值；　　1 一键盘光标，光标可向前或向后移动，Recordset 记录集同步反映自它创建后其他用户所作的修改和删除，但却不能同步反映自它创建后其他用户新增加的记录；　　2 一动态光标，光标可向前或向后滚动，任何时候 Recordset 记录集都同步反映其他用户的任何操作；　　3 一静态光标，光标可向前或向后移动，自创建后无法同步反映其他用户所做的任何操作，它的功能简单但消耗资源少。
LockType	表示编辑时记录的锁定类型。它决定了当不止一个用户试图同时改变一个记录时，Recordset 如何处理数据记录。
LockType	0 一只读锁定，记录只读，不能更新 Recordset ,为 LockType 的默认值；　　1 一悲观锁定，编辑记录开始立刻锁定，直到提交给数据提供者；　　2 一乐观锁定，一次锁定一条记录，只有调用 Update 方法提交数据时才锁定记录；　　3 一乐观的批量更新，允许同时更新多条记录。
Filter	用来设定一个过滤条件，以便对 Recordset 记录进行过滤。
CacheSize	表示一个 Recordset 对象在高速缓存中的记录数。
Maxrecords	执行一个 SQL 查询时，返回 Recordset 对象的最大记录数。
Bof	判断记录指针是否到了第一条记录之前。
Eof	判断记录指针是否到了最后一条记录之后。
RecordCount	返回 Recordset 对象的记录数，（在使用键盘光标时，该属怀返回的可能是不太准确的数值；一般情况下，并不用这种方法来统计 Recordset 中的记录数，因为它的性能并不稳定）
Bookmark	书签标记，用来保存当前记录的位置。
AbsolutePosition	用来设定 Recordset 对象中当前记录的顺序位置是第几行记录。
PageSize	表示 Reccordset 对象的页面大小（每页多少条记录），默认值为10。
PageCount	表示 Recordset 对象的页面个数。
AbsolutePage	表示当前记录的页号。
EditMode	指示当前记录的编辑状态，0 一已被编辑；1 一已被修改而未提交；2 一存入数据库的新记录。
Status	对 Recordset 对象进行批量更新后，查询当前记录的状态。
	值	意义描述	值	意义描述
	0	记录更新成功。	1024	存在记录锁定，新记录未保存。
	1	新记录。	2048	使用乐观并发事件，未保存。
	2	记录被删除。	4096	用户违反完整性规则，记录未保存。
	4	记录未被删除。	8192	很待定修改，记录未保存。
	8	记录未被修改。	16384	与一存储对象相冲突，记录未保存。
	16	书签不合法，记录未保存。	32768	内存不够，记录未保存。
	64	影响多个记录，未保存。	65536	用户没有中、足够的权限，未保存。
	128	指向一待定插入，记录未保存。	131072	违反基本数据库原则，记录未保存。
	256	操作被取消，记录未保存。	262144	记录已从数据源删除。

五、Rcordset 对象的方法

Recordset 对象的方法<表二> 方法描述 / 格式 / 注解
Open 打开一个 Recordset 对象。
Rs.Open[Source][,ActiveConnection][,CursorType][,LursorType][,Option]
Rs ：为已经建立的 Recordset 对象；
　　Source ：为可选参数，可以是一个 Command 对象名、SQL 语句、数据库表或存储过程；　

　　ActiveConnection ：定义与数据库的连接信息；

　　CursorType ：是Recordset 对象所使用的光标类型；

　　LockTypec 是编辑 Recordset 对象记录时所使用的锁定类型；

　　Option 指示数据提供者如何处理 Source 的内容类型，其参数值及其意义见下表：

　　Options值意义描述
1 表示被执行的字符串包含一个命令文本。
2 表示被执行的字符串包含一个表名。
4 表示被执行的字符串包含一个存储过程名。
8 没有指定字符串的内容（这是默认值）

Close 关闭一个 Recordset 对象。但并不从内存中删除该对象，只是无法读取其中的数据，但仍然可以读取它的属性。因此一个关闭的 Recordset 对象还可以用 Open 方法打开并保持其原有属性。
Rs.Close
Rs：为已经建立的 Recordset 对象；如果正进行编辑更新数据的操作，则在使用此方法之前必须先调用 Update 和 CancelUpdate 方法。否则将会出现错误。
Clone 创建一个 Recordset 对象的完全拷贝，但只有所用的 Recordset 对象类型允许使用 Bookmarks时才能使用该方法。
MoveFirst 把 Recordset 指针指向第一行记录。
Rs.MoveFirst
MoveLast 把 Recordset 指针指向最后一条记录（该 Recordset 必须支持书签）。
Rs.MoveLast
MovePrevious 把Recordset 指针上移一行（使用前应判断 BOF 是否为真，该方法必须支持书签）。
Rs.MovePreviors
MoveNext 把Recordset 指针下移一行（使用前应判断 EOF 是否为真）。
Rs.MoveNext
Move 把Recordset 指针指向指定的记录。
Move n [,start]
n 为要移动的记录数，取正时表示向前（下）移动，取负时表示向后（上）移动；
　　start 是可选参数，表示移动的起点。

GetRows 从一个 Rexordset 对象读取一行或多行记录到一个数组中。
Myarray=Rs.GetRows ( rows,start,fields )
Myarray 为目标数组名；Rs 为已创建的 Recordset 对象，Rows 为返回数组的行数；start 为读取数据的起点（书签）；Fields 为 Recordset 的字段。
NextRecordSet 清除当前的 Recordset 并执行下一条指令，以传回下一个 Recordset 对象，如果没有下一条指令，则返回 Nothing 给 Recordset 。
Requery 重新执行 SQL 操作，以更新 Recordset 对象中的数据。
Resync 从数据源更新当前的 Recordset 记录，实现与数据源的同步。
Addnew 增加一条空记录。
Rs.AddNew N
增加一条空记录，并将数组中的元素（N）添加到这条空记录中。
Delete 删除当前记录。
Delete [value]
如果 value=1(默认值）表示该方法只删除当前记录，value=2 表示该方法删除所有由 Filter 属性设定的记录。
Update 保存当前记录的任何变动。
Rs.Update
CancelUpdate 取消前一个 Update 方法所做的一切修改。
UpdateBatch Recordset 工作在批量方式时，取消对 Recordset 的更新。
Suports 获取创建的 Recordset 对象的能力信息。
注：使用 Move 、MoveFirst 、MoveLast 、MovePrevious 、MoveNext 方法移动记录指针时，需要注意 Rrcordset 对象的光标类型。如“前滚光标”限制了记录指针只能向前移动。

六、Recordset 对象的应用实例

　　 1、这是一个简单的员工基本情况管理系统，其功能有：1）、添加员工资料；2）、更改员工资料；3）、删除员工资料。它包含着六个页面和一个数据库。分别为：

　　 1）、主页面：index.asp

　　 2）、添加数据页面：add.htm

　　 3）、保存添加数据页面：add.asp

　　 4）、更改数据页面：Update.asp

　　 5）、保存更改数据页面：Update2.asp

　　 6）、删除记录页面：Detele.asp

　　 7）、数据库：RSGL.mdb.用到该数据库中的”员工基本情况表“。

　　 2、各页面的代码如下：

　　 1)、主页面：index.asp。该页面的功能有：

　　a、创建两个对象，Connectiion对象和Recordset对象，其目的是连接数据库和返回一个记录集；

　　b、创建一个表格，使do while循环语句将各条记录在表格中显示出来；

　　c)、创建三个超连接，一个用以连接添加数据页面，另一个通过指定的员工姓名连接到更改数据页面，还有一个通过指定的员工姓名连接到删除页面。

<% @ Language="VBScript" %>

员工基本情况管理系统

<%
'****************创建两个对象（连接对象、记录集对象）*********************
dim cnn,rst
set cnn=Server.CreateObject("ADODB.Connection")
set rst=Server.CreateObject("ADODB.Recordset")
'指定连接字符串，
cnn.ConnectionString="PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=" & server.MapPath("../rsgl.mdb")
cnn.Open
sSQL="select * from 员工基本情况表"
'rst.Open sSQL,cnn,1,1
set rst=cnn.Execute(sSQL,,adCmdText)
%>

<%
'使用do while循环语句将各条记录显示出来。
do while Not rst.eof
t1=rst("员工姓名")
t2=rst("所在部门")
t3=rst("家庭住址")
t4=rst("家庭电话")
t5=rst("Email")
tt=""
response.write tt
rst.MoveNext
loop
cnn.Close
Set cnn=Nothing
%>

教职员工基本情况表
添加记录
员工姓名	所在部门	家庭住址	家庭电话	Email	状态
" & t1 & "	" &t2& "	" &t3& "	" &t4& "	" &t5& "	" tt=tt & "修改 \|\|删除

　　　　　　　2)、添加数据页面：add.htm 。本页面由一个表单组成，其功能是向保存添加数据页面（add.asp）提交数据。

　　　　添加记录

返回首页

3)、保存添加数据页面：add.asp。该页面的功能有：a)、使用Request对象获取从add.htm页面提交的值；b)、创建三个对象（一个连接对象、二个记录集对象），通过rs.addnew,rs.update两个函数将数据保存到数据库；c)、显示信息提示框。

<% @ Language="VBScript" %>
　　　　

添加记录

<%
'**************使用Request对象获取从add.htm页面中提交的值************************************
Name1=Request.Form("txtName")
Department=Request.Form("txtDepartment")
Addr=Request.Form("txtAddr")
Tel=Request.Form("txtTel")
Email=Request.Form("txtEmail")
if Tel="" then
Tel="不祥"
end if
if Email="" then
Email="不祥"
end if
if name1="" or department="" or Addr="" then
%>

<%
else
'****************创建三个对象（一个连接对象、二个记录集对象）*********************
dim cnn,rst
set cnn=Server.CreateObject("ADODB.Connection")
'指定连接字符串，
cnn.ConnectionString="PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=" & server.MapPath("../rsgl.mdb")
cnn.Open
'建立Recordset对象并以追加记录方式打开数据库。
set rst=Server.CreateObject("ADODB.Recordset")
set rst1=Server.CreateObject("ADODB.Recordset")
sSQL="select * from 员工基本情况表 where 员工姓名='" & name1 & "'"
rst.Open sSQL,cnn,1,1
if rst.EOF or rst.BOF then '如果数据表中无此数据，则添加记录。
rst1.Open "员工基本情况表",cnn ,1,2
rst1.addnew array("员工姓名","所在部门","家庭住址","家庭电话","Email"),array(name1,Department,Addr,Tel,Email)
rst1.update
%>

<%
rst1.close
set rst1=nothing
else
%>

<%
end if
rst.close
set rst=nothing
end if
%>

记录添加成功！

返回记录添加表单 || 返回首页

　　4)、更改数据页面：Update.asp。该页面的功能有：a、创建两个对象，Connectiion对象和Recordset对象，其目的是连接数据库和返回一个记录集；b、创建一个表单，其目的是提交更改过的数据。

<%
a=request("id")
response.write a
'response.end
'****************创建两个对象（连接对象、记录集对象)*********************
dim cnn,rst,cmd
set cnn=Server.CreateObject("ADODB.Connection")
set rst=Server.CreateObject("ADODB.Recordset")
'指定连接字符串，
cnn.ConnectionString="PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=" & server.MapPath("../rsgl.mdb")
cnn.Open
sSQL="select * from 员工基本情况表 where 员工姓名='" & a & "'"
'rst.Open sSQL,cnn,1,1
set rst=cnn.Execute(sSQL,,adCmdText)
%>

更改记录

5)、保存更改数据页面：Update2.asp。该页面的功能有：a)、使用Request对象获取从Update.asp页面提交的值；b)、创建二个对象（连接对象、记录集对象）；c)、通过表格显示更改后的记录。

<% @ Language="VBScript" %>
<%
'*****************从提交表单中提取数值***************************
Dim Name,Department,Addr,Tel,Email
Name=Trim(Request.Form("txtName"))
Department=Trim(Request.Form("txtDepartment"))
Addr=Trim(Request.Form("txtAddr"))
Tel=Trim(Request.Form("txtTel"))
Email=Trim(Request.Form("txtEmail"))
%>

更改记录

<%
'****************创建二个对象（连接对象、记录集对象）*********************
dim cnn,rst,cmd
set cnn=Server.CreateObject("ADODB.Connection")
set rst=Server.CreateObject("ADODB.Recordset")
'指定连接字符串，
cnn.ConnectionString="PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=" & server.MapPath("../rsgl.mdb")
cnn.Open
sSQL="update 员工基本情况表 set 所在部门='" & Department & "',家庭住址='" & Addr & "',家庭电话='" & Tel & "',Email='" & Email & "' where 员工姓名='" & name & "'"
rst.Open sSQL,cnn,1,2
set rst=nothing
%>

员工基本情况表
员工姓名：	<%=Name %>
所在部门：	<%=Department %>
家庭住址：	<%=Addr %>
家庭电话：	<%=Tel %>
Email：	<%=Email %>

记录更改成功！

返回首页

　　6)、删除数据页面：Detele.asp。 a)、使用Request对象获取要删除的员工姓名；b)、创建二个对象（连接对象、记录集对象）；c)、给出删除成功提示框。

<% @ Language="VBScript" %>
<%
'从提交表单中提取数值
Dim Name
Name=Trim(Request.Querystring("id"))
%>

更改记录

<%
'****************创建二个对象（连接对象、记录集对象）*********************
dim cnn,rst,cmd
set cnn=Server.CreateObject("ADODB.Connection")
set rst=Server.CreateObject("ADODB.Recordset")
'指定连接字符串，
cnn.ConnectionString="PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=" & server.MapPath("../rsgl.mdb")
cnn.Open
sSQL="delete from 员工基本情况表 where 员工姓名=" & "'" & Name & "'"
rst.Open sSQL,cnn,1,2
set rst=nothing
ifo="员工姓名为：“" & name & "” 的记录已被您成功的删除！"
%>

返回记录添加表单

RS.OPEN SQL,CONN,A,B

A: ADOPENFORWARDONLY(=0) 只读,且当前数据记录只能向下移动
ADOPENKEYSET(=1) 可读写,当前数据记录可自由移动
ADOPENDYNAMIC(=2) 可读写,当前数据记录可自由移动,可看到新增记录
ADOPENSTATIC(=3) 只读,当前数据记录可自由移动

B: ADLOCKREADONLY(=1) 缺省锁定类型，记录集是只读的，不能修改记录
ADLOCKPESSIMISTIC(=2) 悲观锁定，当修改记录时，数据提供者将尝试锁定记录以确保成功地编辑记录。只要编辑一开始，则立即锁住记录。
ADLOCKOPTIMISTIC(=3) 乐观锁定，直到用Update方法提交更新记录时才锁定记录。
ADLOCKBATCHOPTIMISTIC(=4) 批量乐观锁定，允许修改多个记录，只有调用UpdateBatch方法后才锁定记录。
当不需要改动任何记录时，应该使用只读的记录集，这样提供者不用做任何检测。对于一般的使用，乐观的锁定可能是最好的选择，因为记录只被锁定一小段时间，数据在这段时间被更新。这减少了资源的使用。