📄 cj_select3.asp
字号:
<!--#include file="chkadmin.asp"-->
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
<title>学生成绩管理系统</title>
</head>
<body>
<%
Dim classid,classname,proid,jecid,jecsum,jecname
Dim j(8),i
classid=Request.Form("classid")
classname=Request.Form("classname")
proid=Request.Form("proid")
jecid=Request.Form("jecid")
set fs=server.createobject("adodb.recordset")
fs.open "select * from [jec] where id="&Request("jecid"),conn,1,1
jecname=fs("jec")
jecsum=fs("jecsum")
j(1)=fs("j1")
j(2)=fs("j2")
j(3)=fs("j3")
j(4)=fs("j4")
j(5)=fs("j5")
j(6)=fs("j6")
j(7)=fs("j7")
j(8)=fs("j8")
fs.close
Set fs=nothing
%>
<div align="center">
<center>
<form method="post" action="cj_lr.asp">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#ffffff" width="100%">
<tr>
<td width="100%" background="../Images/admin_table_bg.gif" height="25" colspan="2">
<p align="center"><b><font color="#FFFFFF"><%=classname%>班<%=jecname%>成绩录入：选择科目</font></b></td>
</tr>
<tr>
<td width="9%" height="15" bgcolor="#D9E6FF">选择科目：</td>
<td width="91%" height="15" bgcolor="#D9E6FF">
<select name="subid" tabindex="1">
<%
set fs=server.createobject("adodb.recordset")
For i=1 to jecsum
fs.open "select * from [sub] where id="&j(i),conn,1,1
%>
<option value=<%=fs("id")%>><%=fs("sub")%></option>
<%
fs.MoveNext
fs.Close
Next
Set fs=nothing
%>
</select></td>
</tr>
<tr>
<td width="9%" bgcolor="#D9E6FF" height="15">
</td>
<td width="91%" bgcolor="#D9E6FF" height="15">
<input type="hidden" value="<%=classid%>" name="classid">
<input type="hidden" value="<%=proid%>" name="proid">
<input type="hidden" value="<%=jecid%>" name="jecid">
<input type="hidden" value="<%=classname%>" name="classname">
<input type="submit" value="开 始" name="B1" tabindex="2"> (3/3)</td>
</tr>
</table>
</form>
</center>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -