asp 自定义分段函数/求第N名成绩_数据库相关

复制代码 代码如下:

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

时间: 2024-11-03 23:35:44

asp 自定义分段函数/求第N名成绩_数据库相关的相关文章

asp 自定义分段函数/求第N名成绩

复制代码 代码如下: 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 E

用ASP和SQL实现基于Web的事件日历_数据库相关

本文介绍如何建立基于Web的日历,同时为不熟悉Active Server Pages(ASP).SQL和ADO的开发者提供建立Web站点的过程介绍,也为有经验的开发者提供了Web站点可伸缩性方面的技巧.  随着网络应用的发展,基于Web的日历越来越受到人们的重视,对于显示诸如最后期限或日程安排之类的重要事件,或显示谁在什么时候休假,基于Web的日历都是有用的.本文描述了如何使用IIS和SQL Server内的ASP建立一个非常简单的基于Web的日历,并允许你与其他人共享你的日程表或管理一组人员的

asp经典入门教程 在ASP中使用SQL 语句第1/2页_数据库相关

MySQL.SQL Server和mSQL都是绝佳的SQL工具,可惜,在ASP的环境下你却用不着它们来创建实用的SQL语句.不过,你可以利用自己掌握的Access知识以及相应的Access技能,再加上我们的提示和技巧,相信一定能成功地在你的ASP网页中加入SQL. 1. SELECT 语句 在SQL的世界里,最最基础的操作就是SELECT 语句了.在数据库工具下直接采用SQL的时候很多人都会熟悉下面的操作:SELECT whatFROM whichTableWHERE criteria 执行以上

2014秋C++第8周项目1参考-分段函数求值

课程主页在http://blog.csdn.net/sxhelijian/article/details/39152703,实践要求见http://blog.csdn.net/sxhelijian/article/details/39493833. 课程资源在云学堂"贺老师课堂"同步展示,使用的帐号请到课程主页中查看. [项目1:分段函数求值] 编程序,计算下面函数的值并输出(x取整型即可) 参考解答: //解法1 #include <iostream> using nam

Raptor实践参考:分段函数求值

返回->课程主页 2-3 分段函数求值 从键盘输入x的值,根据下面的公式计算并输出y的值. [参考解答]

C++第8周项目1分段函数求值

课程首页在:http://blog.csdn.net/sxhelijian/article/details/11890759 [项目1:分段函数求值]编程序,计算下面函数的值并输出 参考解答: //解法1 #include using namespace std; int main( ) { int x, y; cin>>x; if (x>=1) y=x-1; else y=-x+1; cout<<y<<endl; return 0; } 上面的程序,第8行-第1

2014秋C++第8周项目3参考-多分段函数求值

课程主页在http://blog.csdn.net/sxhelijian/article/details/39152703,实践要求见http://blog.csdn.net/sxhelijian/article/details/39493833. 课程资源在云学堂"贺老师课堂"同步展示,使用的帐号请到课程主页中查看.   [项目3:多分段函数求值] 从键盘输入x的值(要求为实型),根据下面的公式计算并输出y的值.  (1)请用if~else~语句的嵌套,实现这个多分支的程序: 参考解

C++第9周项目1参考——分段函数求值

课程首页地址:http://blog.csdn.net/sxhelijian/article/details/7910565 [项目1:分段函数求值]从键盘输入x的值(要求为实型),根据以下公式计算并输出x和y 的值.  要求采用两种解法完成,解法1用if-else语句,解法2主体用switch语句(注意到分段的关键点处,x的值均是偶数,这是可以利用的条件). 提示:在这个公式中,x<0是非法的输入,程序中应该做出处理.测试要求:运行至少5次程序,测试程序在所有可能的执行流程中,是否存在错误的处

C++第9周项目1分段函数求值

课程首页在:http://blog.csdn.net/sxhelijian/article/details/11890759 [项目1分段函数求值]从键盘输入x的值(整型),根据公式1计算并输出x和y的值.  要求用switch语句构造多分支结构完成求解,利用BB平台上"第9周练习源代码及博文模板.txt"中给出了博文模板发布报告. 解法1:类似例3.9的思路,各分段的标准都为2的倍数,所以,构造表达式 t= x/2,根据t的取值决定switch分支: #include<iost