recordset的再次过滤
[ 2007-10-06 17:32:32 | 作者: admin ]
find是方法。在rs里查找符合条件的记录。只能是一个条件 。
filter是属性，用了它之后，rs里剩下的符合条件的记录，可以是多个条件。
filter是属性，用了它之后，rs里剩下的符合条件的记录，可以是多个条件。
asp下ado.recordset(rs) 读取后sort再排序的问题
[ 2007-10-06 13:13:24 | 作者: admin ]
p.s. 本来想直接用rs.sort来再排序，但脱离连接的rs不能更新，只好放弃自建rs而改用数组
下面的演示是需要数据库同步更新，所以不支持并发操作，纯粹是演示说明...
阅读全文…
下面的演示是需要数据库同步更新，所以不支持并发操作，纯粹是演示说明
引用
sql = " delete from temp1 "
cn.execute(sql)
set rs = server.CreateObject("adodb.recordset")
RS.CursorLocation = 3 '注意游标类型设置
RS.Open "temp1",cn,1,3
for i=0 to ubound(arrMobile) ’遍历投票方式1
arrMiss = split( arrMobile(i),"," )
arrMobile(i) = arrMiss(0)
rs.AddNew
rs("id") = i
rs("netHits") = 0
cn.execute(sql)
set rs = server.CreateObject("adodb.recordset")
RS.CursorLocation = 3 '注意游标类型设置
RS.Open "temp1",cn,1,3
for i=0 to ubound(arrMobile) ’遍历投票方式1
arrMiss = split( arrMobile(i),"," )
arrMobile(i) = arrMiss(0)
rs.AddNew
rs("id") = i
rs("netHits") = 0
阅读全文…
通过数组给您的文件排序
[ 2007-10-06 13:13:24 | 作者: admin ]
当您使用FILESYSTEMOBJECT对象获得某个目录下的文件列表的时候，你有没有发现无法控制它们的排序方式，比如按照名字排序，按照扩展名排序，按照文件大小排序等等，让我们试着用数组给它们排排序儿。
如果您想通过名字排序，那将是非常简单的，但是假如你想通过文件大小或者文件创立时间等等来排序的时候，那么将有点麻烦。我们将通过二维数组做到这一点。
下面的代码演示了如何通过选择排序方式达到的我们目的，单击排序，点两次就反着排了。
<HTML>
<HEAD>
<TITLE>文件排序演示</TITLE>
</HEAD>
<BODY>
<%
' 设定一个演示目录，：）
CONST DIRECTORY = "/"
' 用常数定义排序方式
CONST FILE_NAME = 0 '按照名字排序……依次类推
CONST FILE_EXT = 1
...
阅读全文…
如果您想通过名字排序，那将是非常简单的，但是假如你想通过文件大小或者文件创立时间等等来排序的时候，那么将有点麻烦。我们将通过二维数组做到这一点。
下面的代码演示了如何通过选择排序方式达到的我们目的，单击排序，点两次就反着排了。
<HTML>
<HEAD>
<TITLE>文件排序演示</TITLE>
</HEAD>
<BODY>
<%
' 设定一个演示目录，：）
CONST DIRECTORY = "/"
' 用常数定义排序方式
CONST FILE_NAME = 0 '按照名字排序……依次类推
CONST FILE_EXT = 1
...
阅读全文…
asp下的数组排序，一维和二维例子
[ 2007-10-06 13:09:10 | 作者: admin ]
一维...
阅读全文…
引用
Function Sort(ary)
Dim KeepChecking,I,FirstValue,SecondValue
IF Not IsArray(ary) Then Exit Function
KeepChecking = True
Do Until KeepChecking = False
KeepChecking = False
For I = 0 To UBound(ary)
IF I = UBound(ary) Then Exit For
IF ary(I) > ary(I + 1) Then
FirstValue = ary(I)
SecondValue = ary(I+1)
ary(I) = SecondValue
Dim KeepChecking,I,FirstValue,SecondValue
IF Not IsArray(ary) Then Exit Function
KeepChecking = True
Do Until KeepChecking = False
KeepChecking = False
For I = 0 To UBound(ary)
IF I = UBound(ary) Then Exit For
IF ary(I) > ary(I + 1) Then
FirstValue = ary(I)
SecondValue = ary(I+1)
ary(I) = SecondValue
阅读全文…
1
