📄 scorequery.asp

📁 一本关于大学的书
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'=========================================================
' File: ScoreQuery.asp(学籍管理前台学生成绩查询)
' Version:1.0
' Date: 2005-6-23
' Script Written  动易网络
' Copyright (C) 2004-2005 Powereasy Inc. All rights reserved.
' Web: http://www.powereasy.net
' Attention:此文件当放置网站其它位置时请相应修改本文件793行数据库参数设置
'=========================================================
Server.ScriptTimeOut=9999999
Response.Buffer = True

Dim Action,conn_Sdms,ComeUrl,FoundErr,ErrMsg,SearchStyle
Dim StudentNum,StudentName,Birthday

FoundErr = False
ErrMsg = ""
ComeUrl = Trim(Request.ServerVariables("HTTP_REFERER"))
Action = Trim(Request("action"))
SearchStyle=Trim(Request("SearchStyle"))
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>前台学生成绩查询</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2600.0" Name=GENERATOR>
<STYLE type=text/css>
a {text-decoration: none;} /* 链接无下划线,有为underline */ 
a:link {color: #000000;text-decoration: none;} /* 未访问的链接 */
a:visited {color: #000000;text-decoration: none;} /* 已访问的链接 */
a:hover {color: #ff6600;text-decoration: none;} /* 鼠标在链接上 */ 
a:active {color: #000000;text-decoration: none;} /* 点击激活链接 */
TD {
	FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: '宋体';LINE-HEIGHT: 150%;
}
BODY {
	FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: '宋体'
}
INPUT {
	FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: '宋体'
}
SELECT {
	FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: '宋体'
}
.title
{
	background:#0DB432;
	color: #ffffff;
	font-weight: normal;
}
.border
{
	border: 1px solid #0DB432;
}
.tdbg{
	background:#f0f0f0;
	line-height: 120%;
}
.tdbg1{
	background:#A3E2B1;
	line-height: 120%;
}
</STYLE>
</HEAD>

<BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0>
<br>
<%
Select Case Action
	Case "SearchStep"
		If SearchStyle="ScoreTest" Then
			Call SearchStep1()
		ElseIf SearchStyle="Subject" Then
			Call SearchStep2()
		Else
			FoundErr = True
			ErrMsg=ErrMsg&"<br><li>请选择查询方式！！！</li>"
		End If
	Case "ShowStep1Result"
		Call ShowSearchResult1()
	Case "ShowStep2Result"
		Call ShowSearchResult2()
	Case Else
		Call Main()
End Select
If FoundErr = True Then
	Response.Write WriteErrMsg(ErrMsg, ComeUrl)
End If
Response.write"</BODY></HTML>"


Sub Main
	%>
	<script language="JavaScript">
	function checkform()
	{
	  var strStudentNum
	  strStudentNum=document.form1.StudentNum.value
	  if(strStudentNum=="")
	  {
		alert("你还没有填学号！");
		document.form1.StudentNum.focus();
		return false;
	  }	  
	  if(document.form1.StudentName.value=="")
	  {
		alert("你还没有填姓名！");
		document.form1.StudentName.focus();
		return false;
	  }
	  if(document.form1.Birthday.value=="")
	  {
		alert("你还没有填生日！");
		document.form1.Birthday.focus();
		return false;
	  }
	  if(document.form1.SearchStyle.value=="")
	  {
		alert("你还没有选择查询方式！");
		document.form1.SearchStyle.focus();
		return false;
	  }	 
	}

	</script>
	<form Name="form1" onSubmit="return checkform()" action="ScoreQuery.asp" method="post">
	  <table width="500" class="border" border="0" cellspacing="1" cellpadding="4" align="center"> 
		<tr>  
		  <td height="50" colspan="2" align="center" class="title">  
			<p><b>学 生 成 绩 查 询</b>（第一步）----请输入查询条件</p>        </td> 
		</tr>
		<tr>
		  <td width="30%" align="center" class="tdbg1">学号：</td>
		  <td width="70%" align="left" class="tdbg"><input name="StudentNum" type="text" id="StudentNum"></td>
		</tr>
		<tr>
		  <td width="30%" align="center" class="tdbg1">姓名：</td>
		  <td width="70%" align="left" class="tdbg"><input name="StudentName" type="text" id="StudentName" value=""></td>
		</tr>
		<tr>
		  <td width="30%" align="center" class="tdbg1">生日：</td>
		  <td width="70%" align="left" class="tdbg"><input name="Birthday" type="text" id="Birthday">    &nbsp;&nbsp;例：1993-3-18</td>
		</tr>
		<tr valign="middle" class="tdbg1"> 
		  <td height="28" colspan="2"> 　　　　 
		  <input type="radio" name="SearchStyle" value="ScoreTest" checked onClick="SearchStyle_Test.style.display='block';SearchStyle_Subject.style.display='none'">
		  <strong>按考试查询 　　　　 </strong> 
		  <input type="radio" name="SearchStyle" value="Subject" onClick="SearchStyle_Test.style.display='none';SearchStyle_Subject.style.display='block'">
		  <strong>按科目查询</strong>  </td>
		</tr>
		<tr valign="middle" class="tdbg" name="SearchStyle_Test" id="SearchStyle_Test" style="display:block"> 
		  <td width="30%" height="30" align="center" class="tdbg1">选择考试：</td>
		  <td width="70%" height="30"><select name="sheetName">
		  <%
			Call OpenSdmsConn
			Dim RsTest,SqlTest,i
			SqlTest = "SELECT * FROM TestName ORDER BY id DESC"
			set RsTest = Server.CreateObject("ADODB.Recordset")
			RsTest.Open SqlTest, conn_Sdms, 1, 1
			i=0						
			While (NOT RsTest.EOF)
				if i=0 then
					response.Write "<option value='" & RsTest("SheetName") & "' selected>" & RsTest("TestName") & "</option>"
				else
					response.Write "<option value='" & RsTest("SheetName") & "'>" & RsTest("TestName") & "</option>"
				end if
				i=i+1
				RsTest.MoveNext()
			Wend
			RsTest.Close
			set RsTest = Nothing
			
			%>
			</select>              
		  </td>
		</tr>
		<tr align="left" valign="middle" class="tdbg" name="SearchStyle_Subject" id="SearchStyle_Subject" style="display:none"> 
		  <td width="30%" height="16" align="center" class="tdbg1">选择科目：</td>
		  <td width="70%" height="16"><select name="Subject">
			<%
			Dim RsSubject,SqlSubject
			Set RsSubject = Server.CreateObject("ADODB.Recordset")
			SqlSubject = "SELECT * FROM Subject ORDER BY ID ASC"
			RsSubject.Open SqlSubject,conn_Sdms,1,1
			i=0
			While (NOT RsSubject.EOF)
				if i=0 then
					response.Write "<option value='" & RsSubject("SubjectName") & "' selected>" & RsSubject("SubjectName") & "</option>"
				else
					response.Write "<option value='" & RsSubject("SubjectName") & "'>" & RsSubject("SubjectName") & "</option>"
				end if
				i=i+1
				RsSubject.MoveNext()
			Wend
			RsSubject.Close
			set RsSubject = Nothing
			
			Call CloseSdmsConn
			%>	
			</select>
		  </td>
		</tr>
		<tr align="center" valign="middle" class="tdbg">
		  <td height="16" colspan="2"><input name="action" type="hidden" id="action" value="SearchStep"><input type="submit" name="Submit" value="下一步"></td>
		</tr>
	  </table>
	</form>
	<%
End Sub

Sub SearchStep1()
	Dim SheetName
	StudentNum=ReplaceBadChar(Trim(Request("StudentNum")))
	StudentName=ReplaceBadChar(Trim(Request("StudentName")))
	Birthday=ReplaceBadChar(Trim(Request("Birthday")))
	SheetName=ReplaceBadChar(Trim(Request("SheetName")))

	If StudentNum="" Then
		FoundErr = True
		ErrMsg=ErrMsg&"<br><li>学生学号不能为空！！！</li>"
		Exit Sub
	End If
	If StudentName="" Then
		FoundErr = True
		ErrMsg=ErrMsg&"<br><li>学生姓名不能为空！！！</li>"
		Exit Sub
	End If
	If Birthday="" Then
		FoundErr = True
		ErrMsg=ErrMsg&"<br><li>学生生日不能为空！！！</li>"
		Exit Sub
	End If
	If SheetName="" Then
		FoundErr = True
		ErrMsg=ErrMsg&"<br><li>所选考试不能为空！！！</li>"
		Exit Sub
	End If
	If Birthday<>"" And IsDate(Birthday) = False Then
		FoundErr = True
		ErrMsg=ErrMsg&"<br><li>输入的生日不是规则日期！！！</li>"
		Exit Sub
	End If
	Dim IsStudentInfoInclude,IsSheetNameInclude
	Call OpenSdmsConn
	Set IsStudentInfoInclude=conn_Sdms.Execute ("SELECT StudentNum,Name FROM StudentInfo WHERE StudentNum ='" & StudentNum & "' And Name ='" & StudentName & "' And Birthday =#" & Birthday & "#")
	If IsStudentInfoInclude.Eof Then
		FoundErr = True
		ErrMsg=ErrMsg&"<br><li>不存在这个学生！！！</li><br><li>输入的学生学号，姓名，或者生日有误！</li>"
		Set IsStudentInfoInclude=Nothing
		Exit Sub
	End If
	Set IsStudentInfoInclude=Nothing
	Set IsSheetNameInclude=conn_Sdms.Execute ("SELECT * FROM " & SheetName & " Where StudentNum='"&StudentNum&"'")
	If IsSheetNameInclude.Eof Then
		FoundErr = True
		ErrMsg=ErrMsg&"<br><li>你所选考试的分数数据库中没有你的成绩！！！</li>"
		Set IsSheetNameInclude=Nothing
		Exit Sub
	End If
	Set IsSheetNameInclude=Nothing
	%>
	<form Name="form1" action="ScoreQuery.asp" method="post">
	  <table width="600" class="border" border="0" cellspacing="1" cellpadding="4" align="center"> 
		<tr>  
		  <td height="50" colspan="2" align="center" class="title">  
			<p><b>学 生 成 绩 查 询</b>（第二步）----按考试查询</p>        </td> 
		</tr>
		<tr>
		  <td width="30%" align="center" class="tdbg1">学号：</td>
		  <td width="70%" align="left" class="tdbg">
		  <%If StudentNum<>"" Then 
				Response.write StudentNum&"<input name='StudentNum' id='StudentNum' type='hidden' value='"&StudentNum&"'>"
			Else
12 3 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -