📄 index4.asp

📁 学生信息化管理系统,目前最完美的学生信息化管理系统,界面美观,操作方面,个性化设置.一套软件管理多所学校.
💻 ASP
字号:
<% Set hdobj = Server.CreateObject("HD.comOpen")'请保证此行在最前面
Conn = hdobj.WeekaaConn()%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META HTTP-EQUIV="luxiaoqing" CONTENT="no-cache">
<STYLE TYPE="text/css">
<!--
BODY {
	background-image: url(../Image/bg.gif);
	background-position: center;
	background-repeat: repeat;
	background-attachment: fixed;
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-color: #3399FD;
} 

.style4 {
	color: #FFFFFF;
	font-size: 14px;
}
.style5 {color: #FF0000}
body,td,th {
	font-size: 12px;
	color: #FFFFFF;
}
a:link {
	text-decoration: none;
}
a:visited {
	text-decoration: none;
}
a:hover {
	text-decoration: none;
}
a:active {
	text-decoration: none;
}
.B A:link {
	FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.B A:visited {
	FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.B A:hover {
	FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.B A:active {
	FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}

.STYLE9 {color: #FFFFFF}
.STYLE10 {
	font-size: 16px;
	font-family: "黑体";
}
.STYLE11 {color: #000000}
-->
</STYLE>

</head>

<body onmouseover="self.status='红笛软件[http://weekaa.com/red]';return true">
<table width="1003" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="150" align="center" valign="bottom"><img src="../Image/bigbga.jpg" width="1003" height="150"></td>
  </tr>
  <tr>
    <td height="28" align="center" valign="middle" background="../Image/bg01a.jpg"><span class="STYLE9"><div class="b"> <a href="index.asp">导入成绩</a> | <a href="index2.asp">直接录入</a> | <a href="index3.asp">成绩审核</a> | <a href="index4.asp">生成登分表 </a></div>
    </span></td>
  </tr>
  <tr>
    <td height="600" align="center" valign="top" bgcolor="#3399fd"><table width="80%" border="0" cellspacing="0" cellpadding="0">
	 <tr>
        <td height="25" align="center">　</td>
      </tr>
      
      <tr>
        <td height="25" align="center" background="../Image/bg01.jpg" class="STYLE10 STYLE11">生成成绩登记表</td>
      </tr>
      <tr>
        <td height="150" align="center" bgcolor="#FFFFFF" class="style5"><span class="STYLE10">选择班级和学期
          
          <form name="form1" method="post" action="index41.asp">
            <p>班级
              <%Call ListFormee("ll")%>　
              学期
              <%Call Formee("ll")%>　</p>
            <p>
              <input type="submit" name="Submit" value="下一步">
            </p>
          </form>	</span>	</td>
      </tr>
      <tr>
        <td height="25" align="center" background="../Image/bg01.jpg">&nbsp;</td>
      </tr>
      
    </table>
    </td>
  </tr>
  <tr>
    <td height="25" align="center" valign="top" bgcolor="#3399FD">&nbsp;</td>
  </tr>
  <tr>
    <td height="25" align="center" valign="top" background="../Image/bg01a.jpg">&nbsp;</td>
  </tr>
</table>


</body>
</html>
<%
Sub Formee(loi)
Y=year(now())
   Response.Write "<select name='Lb' id='Lb'>"
   for i=-4 to 0
   Response.Write "<option value=" & Y+i & "春季>" & Y+i & "春季</option>"
   Response.Write "<option value=" & Y+i & "秋季>" & Y+i & "秋季</option>"
   next
   Response.Write "</select>"

End Sub
Sub ListFormee(loi)
Ld = ""

   Response.Write "<select name='La' id='La'>"
   Set rsList = Server.CreateObject("Adodb.RecordSet")
   sqllist = "Select * From classs order by d desc"
   rsList.Open sqllist, Conn, 1, 3
   Do While Not rsList.EOF
    rsld = rsList("d")
    If rsld <> Ld Then
    Ld = rsld
    Response.Write "<option value=''>---" + rsld + "---</option>"
    End If
   Response.Write "<option value=" & rsList("e") & ">" & rsList("e") & "</option>"
   
   
   rsList.MoveNext
   Loop

   Response.Write "</select>"
   rsList.Close
   Set rsList = Nothing
End Sub
%>
⌨️ 快捷键说明

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