asp 自定义分段函数/求第N名成绩
来源：asp之家 发布时间：2011-03-25 11:07:00
代码如下:
Function splitx(strs1 As String, strs2 As String, n As Integer)
'自定义分段函数 splitx([字符串],"分隔符",第n段)
Dim groupST() As String
groupST = Split(strs1, strs2)
If UBound(groupST) < n - 1 Then
splitx = 0
Else
splitx = groupST(n - 1)
End If
End Function
'/-------------------------------------
Function minx(KSMC As String, lb As String, kmi As String, n As String)
'第N名的成绩 minx([考试名称],[类别],[科目],n)
Dim con As Object
Dim RS As Object
Dim stsql As String
Dim kmf As String
kmf = Mid(kmi, 1, 1) & "组"
Set con = Application.CurrentProject.Connection
Set RS = CreateObject("ADODB.Recordset")
STRSQL = "SELECT top 1 " & kmi & " as 达标分 FROM 成绩总表 "
STRSQL = STRSQL + " WHERE ((( " & kmf & " ) <= " & n & ") And ((类别) = '" & lb & "' and 考试名称='" & KSMC & "'))"
STRSQL = STRSQL + " ORDER BY " & kmi
RS.Open STRSQL, con, 3, 3
If RS.EOF Then
minx = 0
Else
minx = RS("达标分")
End If
RS.Close
Set RS = Nothing
Set con = Nothing
End Function
0
投稿猜你喜欢
两年前，我们开发了一套基于Flash的文件（主要是图片）上传RIA应用，提供给阿里巴巴的用户使用。如果你使用过Wordpress或flick- 随着现在宽屏显示器的流行，Flash的全屏模式下，越来越需要考虑到普屏显示器与宽屏显示器的差别。Flash全屏模式有以下特点：窗口最大化，且
- jQuery.sheet 是一个用于创建 Web 电子表格的 jQuery插件，其功能及界面风格和微软的 Excel 非常相似，使得用户不至
- 今天偶尔在一个学习网站技术的地方看到一个教程，关于html代码的，刚看到咱常用到的视频播放器html标签Object，平时用到他的时候都是为
- 调用 <script language="javascript" src="xxx.asp?m
- 症状： 访问asp网页的时候出现如下错误:Server object error ''ASP 0178 : 80070005
- 一直在用JS写ASP,也不是特别原因,只是当初学的是JS,后来学ASP时知道ASP也可以用JS写,就没去学VBS.前几个月刚学ASP的时候找
- JavaScript/Dom中有很多很零碎的东西，让人总是感觉理解的有些“朦胧”，因此，有时候还是应该总结一下，对于Event对象，前两天看
- 体系结构 Microsoft按照客户/服务器体系结构的分布进行操作。这种方法产生不必要的代价和复杂性。在Internet中，Oracle已经
- 1.首先，我们需要过滤所有客户端提交的内容,其中包括?id=N一类,另外还有提交的html代码中的操作数据库的select及asp文件操作语
- 如果你是一位ASP爱好者，你一定想过ASP的执行效率如何？大家都知道ASP效率和CGI的比，在访问量少的时候，它们是不相上下的，有时可能CG
- 代码如下:use tempdb if object_id('tempdb..#table') is not null dro
- 最近做的一个B/S项目，在打印时采用了在IE中嵌入.net winform控件和XML结合的方式（参见http://www.yesky.co
- XML的嵌套处理 一般情况下，我们从数据库中查询得到的结果集可能很大，所以从服务器返回到客户端时，数据会被分成若干个页面分别进行传递。此时，
- 描述微软开发的两个动态库存在后门允许用户查看ASP文件源程序和下载整个网站详细随IIS和Frontpage Extention server
- asp按关键字查询XML的问题 '-------------------------------------------------
- mysql优化了所以先说说这个，其实这个，很复杂，对于不同的网站，其在线，访问量，帖子数量，网络情况，以及机器配置都有关系，优化不是一次可以
- 阅读上一篇：微软建议的ASP性能优化28条守则(2) 技巧 5：不要将数据库连接缓存在 Application 或 Session 对象中
- 代码如下: var lishustr = "qwertyuiopasdfghjklmnbvcxz"; var s = l
- 标志是一种简单的工具，就象铁锤，简单实用。如果一种工具功能太多导致其效用减弱，那就让它保持简单。你并不需要一把有太多装饰的精美铁锤。对于象征
