checkcj_add.asp

来自「轩圆学生信息管理系统[高中版] 程序功能：添加链接、修改链接、删除链接、清空链接」· ASP 代码 · 共 29 行

<!--#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
%>