学生成绩查分系统（VB脚本）
发表日期：2005-5-12 |
代码内容
’******************************
’ 学生成绩查分系统(演示案例)
’ 宁波宇讯信息技术有限公司
’ 2005年4月 www.sms2008.net
’******************************
’使用方法：编辑您的手机短信，如：CF#0503#003，并发送指定的手机号，
’如：13XXXXXXXXX，系统将返回该学生的成绩。
Dim dbConn
’连接学校数据库
Sub ConnectDatabase()
Dim SConnStr
DbFile = SMSGateWay.ProgramPath & "脚本库\DemoData.mdb"
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbFile
Set dbConn = CreateObject("ADODB.Connection")
dbConn.Open ConnStr
End Sub
’关闭学校数据库连接
Sub DisconnectDatabase()
dbConn.Close
Set dbConn = Nothing
End Sub
Function ExecuteSql(ASql)
Set ExecuteSql = dbConn.Execute(ASql)
End Function
’查询学生成绩 StdNo=学号,StdPwd=查询密码
Function QueryStudentScore(StdNo, StdPwd, ByRef Content)
Dim Rs
sSQL = "SELECT * FROM 成绩表 WHERE (学号=" &Chr(34) & StdNo &Chr(34) &") " & _
" AND (密码=" &Chr(34) & StdPwd &Chr(34) & ")"
Set Rs = ExecuteSql(sSQL)
If Not (Rs.Bof AND Rs.Eof) Then
Content = CStr(Rs("姓名")) & "：你的期中考试成绩为，" & _
"语文:" & CStr(Rs("语文")) & "分/" & _
"数学:" & CStr(Rs("数学")) & "分/" & _
"英语:" & CStr(Rs("英语")) & "分/"
QueryStudentScore = True
Else
QueryStudentScore = False
End If
Rs.Close
Set Rs = Nothing
End Function
’----------------------------------------------------------------------------
’短信网关服务启动后的处理事件
Sub SMSGateWay_OnStartServer(Sender)
’MsgBox "OnStartServer"
Call ConnectDatabase
End Sub
’短信网关服务停止后的处理事件
Sub SMSGateWay_OnStopServer(Sender)
’MsgBox "OnStopServer"
Call DisconnectDatabase
End Sub
’收到新短信后的处理事件
Sub SMSGateWay_OnRecvSMS(Sender, SMSPhoneNo, SMSMessage, TimeStamp)
Dim sCommand, sStdNo, sStdPwd, sContent
Dim Params
’系统运行状态查询命令
If (Trim(SMSMessage) = "000") Then Exit Sub
’查分格式为：命令字#学号#查询密码，如：CF#0501#001
’拆分短信内容
Params = Split(SMSMessage, "#")
If UBound(Params) < 2 Then
SMSGateWay.SendSMS SMSPhoneNo, "您的查询格式不正确。正确的格式为：命令字#学号#查询密码。如：CF#0501#001", ""
Exit Sub
End If
sCommand = UCase(Trim(Params(0))) ’取第一个命令关键字
Select Case sCommand
Case "CF"
’取出 学生学号与查询密码
sStdNo = Trim(Params(1))
sStdPwd = Params(2)
If Not QueryStudentScore(sStdNo, sStdPwd, sContent) Then
sContent = "您的身份验证无法通过！"
End If
Case "PW" sContent = "修改密码的功能尚未实现。"
Case Else sContent = "您的命令字不正确。正确的命令字可为：CF查分,PW修改密码。"
End Select
SMSGateWay.SendSMS SMSPhoneNo, sContent, ""
End Sub
’发送短信后的处理事件
Sub SMSGateWay_OnSendSMS(Sender, SMSPhoneNo, SMSMessage, CustomNo, Succeed)
’MsgBox "OnSendSMS " + SMSPhoneNo + " / " + SMSMessage
End Sub
’主程序部分 开始
’MsgBox "KoSMSGateWay" |
宇讯短信 By 管理员
|
| |
|
|