各位有没有开发过asp成绩查询系统?

qiujianben 2001-08-18 12:18:38
最好有密码验证的,能自动发送密码到邮箱
还可以分类查找的。我做了一个初版,没有什么功能,但是
能用。开发完后,我会放到网上去的,提供免费下载
...全文
122 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
alei 2001-08-20
  • 打赏
  • 举报
回复
自己做呗
又不难
qiujianben 2001-08-20
  • 打赏
  • 举报
回复
我会参考
moskies 2001-08-19
  • 打赏
  • 举报
回复
做过!支持多条件模糊查询!很简单的!!!自己做就可以了!!!
sundna 2001-08-19
  • 打赏
  • 举报
回复
这种东西简单呀, 多用些心去做吧, 要做就要做好!
lci21 2001-08-19
  • 打赏
  • 举报
回复
问题可以结了吗?
qiujianben 2001-08-19
  • 打赏
  • 举报
回复
好啊!能不能发给我一份,我看看?qiujianben@yeah.net
qiujianben 2001-08-19
  • 打赏
  • 举报
回复
谢谢
lci21 2001-08-19
  • 打赏
  • 举报
回复
用两个页面来实现,第一个页面获得查询条件,并保存到session中,当然你可以个整个sql语句保存到session中,在第二个页面,也就是分页的那个页面,从session中取出sql语句,再查询,条件就不会丢了。呵呵!

给你一段获取条件的代码参考参考吧:
<%else
Function adjust_sql(adj_str)
Dim final_str, i
adj_str = Trim(adj_str)
final_str = ""
If Len(adj_str) > 0 Then
For i = 1 To Len(adj_str)
Select Case Mid(adj_str, i, 1)
Case "[":
final_str = final_str & "[[]"
Case "¦":
final_str = final_str & "[{-}]"
Case "'":
final_str = final_str & "[&-(]"
Case Else:
final_str = final_str & Mid(adj_str, i, 1)
End Select
Next
End If
adjust_sql = final_str
End Function

'定义查询条件变量,暂缺日期查询变量
Dim d_ghscjbm,d_ghscjmc,d_cdbm,d_wz,d_bmqsrq,d_bmzzrq
'指定条件数目、通用符号、SQL字符串
Dim cond_count, wc, sql
'记录指定条件的总数目
cond_count = 6
'指定SQL指令中的通用符号,sybase里面用的符号是百分比(%)
wc = "%"
'取得表单栏位内容
d_ghscjbm = Request("ghscj_bm")
d_ghscjmc = Request("ghscj_mc")
d_cdbm = Request("ghscj_cdbm")
d_wz = Request("ghscj_wz")
d_bmqsrq=Request("ghscj_bmqsrq")
d_bmzzrq=Request("ghscj_bmzzrq")

'调整SQL指令中的特定符号
d_ghscjbm = adjust_sql(d_ghscjbm)
d_ghscjmc = adjust_sql(d_ghscjmc)
d_cdbm = adjust_sql(d_cdbm)
d_wz = adjust_sql(d_wz)
d_bmqsrq=adjust_sql(d_bmqsrq)
d_bmzzrq=adjust_sql(d_bmzzrq)

If Len(d_ghscjbm) = 0 Then cond_count = cond_count - 1
If Len(d_ghscjmc) = 0 Then cond_count = cond_count - 1
If Len(d_cdbm) = 0 Then cond_count = cond_count - 1
If Len(d_wz) = 0 Then cond_count = cond_count - 1
If Len(d_bmqsrq) = 0 Then cond_count = cond_count -1
If Len(d_bmzzrq) = 0 Then cond_count = cond_count -1
'判断查询条件是否为空
If (Len(Trim(d_ghscjbm)) = 0) And _
(Len(Trim(d_ghscjmc)) = 0) And _
(Len(Trim(d_cdbm)) = 0) And _
(Len(Trim(d_wz)) = 0) And _
(Len(Trim(d_bmqsrq)) = 0) And _
(Len(Trim(d_bmzzrq)) = 0) Then

sql = "select * from pub_ghscjbm "
'sql1="select count(d_ghscjbm) as aa from pub_ghscjbm "
sql1="select "&"'"&"aa"&"'"&"=count(d_ghscjbm) from pub_ghscjbm "
Else
sql = "select * from pub_ghscjbm where "
'sql1="select count(*) from pub_ghscjbm where "
sql1="select "&"'"&"aa"&"'"&"=count(d_ghscjbm) from pub_ghscjbm where "

End if
If Len(d_ghscjbm) > 0 Then

sql = sql & " d_ghscjbm like '" & wc & d_ghscjbm & wc & "'"
sql1 = sql1 & " d_ghscjbm like '" & wc & d_ghscjbm & wc & "'"

If cond_count > 1 Then
sql = sql & " and "
sql1 = sql1 & " and "
cond_count = cond_count - 1
End If
End If

If Len(d_ghscjmc) > 0 Then
sql = sql & " d_ghscjmc like '" & wc & d_ghscjmc & wc & "'"
sql1 = sql1 & " d_ghscjmc like '" & wc & d_ghscjmc & wc & "'"

If cond_count > 1 Then
sql = sql & " and "
sql1 = sql1 & " and "
cond_count = cond_count - 1
End If
End If

If Len(d_cdbm) > 0 Then
sql = sql & " d_cdbm like '" & wc & d_cdbm & wc & "'"
sql1 = sql1 & " d_cdbm like '" & wc & d_cdbm & wc & "'"

If cond_count > 1 Then
sql = sql & " and "
sql1 = sql1 & " and "
cond_count = cond_count - 1
End If
End If

If Len(d_wz) > 0 Then
sql = sql & " d_wz like '" & wc & d_wz & wc & "'"
sql1 = sql1 & " d_wz like '" & wc & d_wz & wc & "'"

If cond_count > 1 Then
sql = sql & " and "
sql1 = sql1 & " and "
cond_count = cond_count - 1
End If
End If
If Len(d_bmqsrq) > 0 Then
sql = sql & " d_bmrq >= '" & d_bmqsrq & "'"
sql1 = sql1 & " d_bmrq >= '" & d_bmqsrq & "'"

If cond_count > 1 Then
sql = sql & " and "
sql1 = sql1 & " and "
cond_count = cond_count - 1
End If
End If
If Len(d_bmzzrq) > 0 Then
sql = sql & " d_bmrq <= '" & d_bmzzrq & "'"
sql1 = sql1 & " d_bmrq <= '" & d_bmzzrq & "'"
End If
sql = sql & " order by d_ghscjbm"
sql1 = sql1 & " order by d_ghscjbm"
'Response.Write sql
'Response.Write "<br>"&sql1
'Response.end
set count = conn.execute(sql1)
session("QUERY_TEXT1") = sql
counter=count.Fields(0)
count.close
set count=nothing
conn.close
set conn=nothing
Response.Redirect("ghscjcx1.asp?count="&counter)

End If
conn.close
set conn=nothing
%>
lci21 2001-08-18
  • 打赏
  • 举报
回复
我做过,你是谁啊?为谁做的?我做的包括页面级密码校验,支持多条件查询等等
从实际教学需要出发,采用科学的管理思想和先进的开发技术,将实验室管理以及实验数据通过计算机网络互连,实现以实验室为核心的整体环境的全方位管理。即集教学管理、数据管理、设备管理、实验管理、成绩管理、实验预约、查询与统计等诸多模块为一体,组成一套比较完整的实验室综合管理体系,实现教学管理效率和教学资源效益的最大化。   各专业的学生根据各自教学计划及实验室开放时间安排,在网上进行实验预约,形成预约记录。通过系统的实验任务管理子系统安排好各位教师的实验课表。学生按预约记录上课。在课程结束后,教师根据学生平时的学习和实验情况综合给出该生的实验成绩,同时打印出标准的成绩单及分析单。   将整个设计系统安装在一台专用服务器上,采用WWW访问的模式进行访问,并以校园“一卡通”的兼容方式进行服务与管理。该访问模式打破时间和空间的限制,只要有计算机网络,学生可在任何时候任何地点进行实验预约、成绩查询、实验任务查询;教师可在任何时间任何地点答疑、批阅,了解学生的学习情况;教学管理部门可以在任何时间任何地点了解教学进度,监控教学情况,管理学生成绩。 1. 基于.NET技术环境下开发, 基于Web的B/S模式的系统三层结构,即由表示层、功能逻辑层和数据访问层组成。表示层主要完成向用户展现数据,为用户提供数据操作界面。通过表示层,用户可以完成系统配置、实验预约等操作。   功能逻辑层起到了承上启下的作用,当用户请求操作时,表示层通过调用功能逻辑层中的相应方法,来完成对数据的操作。   数据访问层是动作的发起者,由它来直接与数据访问层通讯,最终将数据库的数据展现、提交、返回给页面逻辑层,数据访问层位于最下层,主要完成数据库的直接操作,如添加、删除、插入和更新等。

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧