checkcj_add.asp

轩圆学生信息管理系统 081029修正了成绩数据浏览时查看单个学生成绩时总分排名显示表格问题。 //===============================================

<!--#include file="Inc/oConn.asp"-->
<!--#include file="Inc/Info.asp"-->
<!--#include file="Inc/Public.asp"-->
<%
On Error Resume Next 
Call PHead("成绩数据检测")
Call CheckCJAdd()
Call PFoot()
If Err Then
	Call ShowErrs()
End If 

Sub CheckCJAdd()
	Dim ksID,kmID,sID
	Dim tmpY,tmpM,tmpD
	ksID = RQuery("ksID")
	kmID = RQuery("kmID")
	sID = RQuery("sID")

	Dim strSQL,objRs,tmpJS,tmpCount
	strSQL = "Select Count(*) From cjTable Where ksID="&ksID&" And kmID="&kmID&" And sID="&sID&""
	tmpCount = oConn.Execute(strSQL)(0)

	If tmpCount>0 Then
		tmpJS = "parent.document.forms[1].btn.value='此成绩已添加...';parent.document.forms[1].btn.disabled=true;"
		Call JavaScript(tmpJS)
	End If 
End Sub
%>