?? sturusin.asp
字號:
<% Set hdobj = Server.CreateObject("HD.comOpen")'請確保此行在最前
Connkaa = hdobj.WeekaaConn()%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="pragma" content="no-cache">
<title>紅笛軟件</title>
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
body {
background-image: url(../Image/bg.gif);
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
a:link {
text-decoration: none;
}
a:visited {
text-decoration: none;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
.style18 {font-size: 14px; color: #FFFFFF; }
.style19 {font-size: 12px}
.style20 {color: #FF0000}
.STYLE22 {font-size: 14px}
-->
</style></head>
<body>
<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"> </td>
</tr> <tr>
<td height="28" align="center" valign="middle" bgcolor="#3399FD"> </td>
</tr>
<tr>
<td height="600" align="center" valign="top" bgcolor="#3399fd">
<%
ID=request.QueryString("ID")
Kc=Request.form("Kc")
If ID="" and Kc="" then
response.write "<table width='900' height='30' border='1' align='center' cellpadding='0' cellspacing='0' bordercolor='#0033cc' bgcolor='#FFFFFF'>"
response.write "<tr><form action='?action=search' method='post' name='form1' id='form1'>"
response.write "<td height='60' align='center'>"
response.write "請輸入課程代碼<input name='Kc' type='text' id='Kc' size='14'>"
response.write "<input name='Submit2' type='submit' id='Submit' value='提交'></p></td> </form></tr></table>"
else
Set Rv = Server.CreateObject("ADODB.RecordSet")
if ID="" then
sqlrv = "Select * From [StuCur] where a='"&Kc&"'"
else
sqlrv = "Select * From [StuCur] where ID="&ID
end if
rv.Open sqlrv,Connkaa,1,3
if rv.eof then
response.write "<table width='900' height='30' border='1' align='center' cellpadding='0' cellspacing='0' bordercolor='#0033cc' bgcolor='#FFFFFF'>"
response.write "<tr><td height='60' align='center' >"
response.write "<a href='index2.asp'>沒有找到你輸入的課程，請重新選擇課程</a></td></tr></table>"
else
rva=rv("a") '編號
rvb=rv("b") '班級
rvc=rv("c") '授課學期
rvd=rv("d") '課程名稱
rve=rv("e")
rvf=rv("f")
rvg=rv("g")
rvh=rv("h")
rvi=rv("i")
rvj=rv("j") '授課教師
rvk=rv("k")
response.write "</p><table width='900' height='30' border='1' align='center' cellpadding='0' cellspacing='0' bordercolor='#0033cc' bgcolor='#FFFFFF'>"
response.write "<tr><td height='60' align='center' ><p>課程編號:"
response.write rva
response.write " 班級:"
response.write rvb
response.write " 授課學期:"
response.write rvc
response.write " 課程名稱:"
response.write rvd
response.write " 授課老師:"
response.write rvj
response.write "</p></td></tr></table>"
%>
<form name="form2" method="post" action="StuRusInAdd.asp?ID=<%=ID%>&Cla=<%=rvb%>&XQ=<%=rvc%>&Kc=<%=rvd%>&teach=<%=rvj%>">
<table width="900" height="25" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#F1F3F5" class=TableBorder>
<tr height="22" valign="middle" align="center">
<th height="30" colspan="6" background="../Image/bg01.jpg" bgcolor="#0033CC"><strong class="STYLE22">
<input name="La" type="text" id="La" value="期末成績" size="10">
成績錄入</strong></th>
</tr>
<tr align="center" bgcolor="#F1F3F5">
<td width="145" class=forumrow style19>學號</td>
<td width="145" height="25" class=forumrow>姓名</td>
<td width="145" class=forumrow>分數</td>
<td width="145" class=forumrow>學號</td>
<td width="145" class=forumrow>姓名</td>
<td width="145" class=forumrow>分數</td>
</tr>
<%
OO=0
QQ=0
Set Rs = Server.CreateObject("ADODB.RecordSet")
sql = "Select * From [student] where b='"&rvb&"'"
rs.Open sql,Connkaa,1,3
If rs.Eof Then
Response.Write "<tr><td height='25' bgcolor='#FFFFFF' align='center' colspan='8'>沒有找到合適的學生!</td></tr>"
Else
Do While Not rs.Eof
OO=OO+1
QQ=QQ+1
Li="L"&QQ
Fs="F"&QQ
if OO=1 then
response.write "<tr align='center' border='1' bgcolor='#FFFFFF' bordercolor='#DFDFDF'>"
end if
%>
<td align="center"><%=rs("a")%>
<input type="hidden" name="<%=Li%>" value="<%=rs("ID")%>"></td>
<td height="25" align="center"><%=rs("c")%></td>
<td align="center"><input name="<%=fs%>" type="text" style="background-color: #ffffff; border-color: #000066; border-style: solid; border-width: 1px 1px 1px" value="0" size="10"></td>
<%if OO=2 then
response.write "</tr>"
OO=0
end if
rs.MoveNext
Loop
End if
session("QQ")=QQ
if OO=1 then
response.write "<td> </td><td> </td><td> </td></tr>"
end if
%>
<tr align="center" bgcolor="#FFFFFF">
<td height="25" colspan="6">沒有成績的學生分數自動為零，成績為零分請錄入0.1。</td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td height="25" colspan="6"><input type="submit" name="Submit22" value="保存成績"></td>
</tr>
<tr align="center" bgcolor="#0C4FBC">
<td height="25" colspan="6" background="../Image/bg01.jpg" bgcolor="#0033cc"> </td>
</tr>
</table>
<%
end if
end if
%>
</form>
</td>
</tr>
<tr align="center" bgcolor="#0C4FBC">
<td height="25" colspan="6" background="../Image/bg01a.jpg" bgcolor="#0033cc"> </td>
</tr>
</table>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -