?? index41.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"><span class="STYLE10 STYLE11">生成成績登記表</span></td>
</tr>
<tr>
<td height="150" align="center" bgcolor="#FFFFFF" class="style5"><span class="STYLE10">選擇課程、教師、成績類別
<form name="form1" method="post" action="StuRusList.asp">
<p>
<%Call Formee("ll")%>
教師
<input name="Ld" type="text" id="Ld" size="10">
成績類別
<input name="Le" type="text" id="Le" size="10">
</p>
<p>
<input type="submit" name="Submit" value="下一步">
</p>
</form> </span> </td>
</tr>
<tr>
<td height="25" align="center" background="../Image/bg01.jpg"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="25" align="center" valign="top" bgcolor="#3399FD"> </td>
</tr>
<tr>
<td height="25" align="center" valign="top" background="../Image/bg01a.jpg"> </td>
</tr>
</table>
</body>
</html>
<%
Sub Formee(loi)
La=request.form("La")
Lb=request.form("Lb")
Response.Write "班級:"&La
Response.Write " 學期:"&Lb
Response.Write " 課程:"
Response.Write "<input name='La' type='hidden' id='La' value="& La &">"
Response.Write "<input name='Lb' type='hidden' id='La' value="& Lb &">"
Conn = hdobj.WeekaaConn()
Response.Write "<select name='Lc' id='Lc'>"
Set rsList = Server.CreateObject("Adodb.RecordSet")
sqllist = "Select * From StuCur where b='"& La &"' and c='"& Lb &"' order by d desc"
rsList.Open sqllist, Conn, 1, 3
if rsList.eof then
Response.Write "<option value=''>---沒有課程---</option>"
else
Do While Not rsList.EOF
rsld = rsList("d")
If rsld <> Ld Then
Ld = rsld
End If
Response.Write "<option value=" & rsList("d") & ">" & rsList("d") & "</option>"
rsList.MoveNext
Loop
end if
Response.Write "</select>"
rsList.Close
Set rsList = Nothing
End Sub%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -