📄 stucurperr.asp
字号:
<% Set hdobj = Server.CreateObject("HD.comOpen")'请保证此行在最前面%>
<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/BG01.gif);
background-position: center;
background-repeat: repeat;
background-attachment: fixed;
margin-left: 0px;
margin-top: 20px;
margin-right: 0px;
margin-bottom: 0px;
background-color: #DEE7FF;
}
.style2 {font-size: 12px}
.style3 {font-size: 12px}
.style4 {
color: #FFFFFF;
font-size: 14px;
}
.style5 {color: #FF0000}
body,td,th {
font-size: 12px;
}
.STYLE8 {
font-family: "黑体";
font-size: 18px;
}
a:link {
color: #CC0000;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #CC0000;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
.tables {
background-image: url(../Image/bigbg.jpg);
background-repeat: no-repeat;
}
-->
</STYLE>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<%
Connkaa = hdobj.WeekaaConn()
tab="StuCur"
ss=Request.QueryString("ss")
dim stv,sqstv
Set stv = Server.CreateObject("ADODB.RecordSet")
sqstv = "Select * From [sets] where TB='"&tab&"'"
stv.Open Sqstv,Connkaa,1,3
ID=Request.QueryString("ID")
Set stu = Server.CreateObject("ADODB.RecordSet")
sqstu = "Select * From [StuCur] where ID="&ID
stu.Open Sqstu,Connkaa,1,3
If not stu.eof then
fa=stu("a")
fb=stu("b")
fc=stu("c")
fd=stu("d")
fe=stu("e")
ff=stu("f")
fg=stu("g")
fh=stu("h")
fi=stu("i")
fj=stu("j")
fk=stu("k")
fl=stu("l")
XKs=stu("X")
loii=stu("XX")
end if
if session("stuID")<>"" then
loi="<a href='stuCurstv.asp?ID=" & ID & "'>点击选修这门课程</a>"
end if
if loii="stoper" then
loi="已经停止选课"
end if
%>
</head>
<body onmouseover="self.status='红笛软件[http://weekaa.com/red]';return true">
<table width="1003" border="0" align="center" cellpadding="0" cellspacing="0" class="tables">
<tr>
<td height="160" align="center" valign="bottom"> </td>
</tr>
<tr>
<td height="600" align="center" valign="top"><table width="800" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30" align="center"><span class="STYLE8">选修课程详情</span></td>
</tr>
</table>
<table width="700" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#DEE7FF">
<tr>
<td height="28" colspan="4" align="center" background="../Image/bg01.jpg" bgcolor="#0C4FBC"> </td>
</tr>
<tr>
<td width="195" height="25" align="right" bgcolor="#FFFFFF"><%=stv("a")%></td>
<td width="188" align="left" bgcolor="#FFFFFF"><%=fa%></td>
<td width="136" align="left" bgcolor="#FFFFFF"><%=stv("f")%></td>
<td width="171" align="left" bgcolor="#FFFFFF"><%=ff%></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#FFFFFF"><%=stv("b")%></td>
<td align="left" bgcolor="#FFFFFF"><%=fb%></td>
<td align="left" bgcolor="#FFFFFF"><%=stv("g")%></td>
<td align="left" bgcolor="#FFFFFF"><%=fg%></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#FFFFFF"><%=stv("c")%></td>
<td align="left" bgcolor="#FFFFFF"><%=fc%></td>
<td align="left" bgcolor="#FFFFFF"><%=stv("h")%></td>
<td align="left" bgcolor="#FFFFFF"><%=fh%></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#FFFFFF"><%=stv("d")%></td>
<td align="left" bgcolor="#FFFFFF"><%=fd%></td>
<td align="left" bgcolor="#FFFFFF"><%=stv("i")%></td>
<td align="left" bgcolor="#FFFFFF"><%=fi%></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#FFFFFF"><%=stv("e")%></td>
<td align="left" bgcolor="#FFFFFF"><%=fe%></td>
<td align="left" bgcolor="#FFFFFF"><%=stv("j")%></td>
<td align="left" bgcolor="#FFFFFF"><%=fj%></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#FFFFFF"><span class="style5">学生选课</span></td>
<td align="left" bgcolor="#FFFFFF"><%=Loi%></td>
<td align="left" bgcolor="#FFFFFF"><%=stv("k")%></td>
<td align="left" bgcolor="#FFFFFF"><%=fk%></td>
</tr>
<tr>
<td height="25" colspan="4" align="center" bgcolor="#FFFFFF"><span class="STYLE8"><%=stv("l")%></span></td>
</tr>
<tr>
<td height="200" colspan="4" align="left" valign="top" bgcolor="#FFFFFF"><p><br>
<%
response.write fl
%>
</td></tr>
<tr>
<td height="25" colspan="4" align="center" valign="bottom" bgcolor="#FFFFFF" class="STYLE8">选 修 人 员 名 单</td>
</tr>
<tr> <td height="150" colspan="4" align="left" valign="top" bgcolor="#FFFFFF"><form name="form1" method="post" action="stuCurstu.asp">
<p>
<%
stuID=""
jj=0
ii=len(XKs)
if ii<>"" then
for i=2 to ii
XKr=mid(XKs,i,1)
if XKr<>":" then
stuID=stuID& XKr
end if
if stuID<>"" and XKr=":" then
stuID=trim(stuID)
stuID=stuID*1
Set Rs = Server.CreateObject("ADODB.RecordSet")
sql = "Select * From [student] where ID="&stuID
rs.Open sql,Connkaa,1,3
if not rs.eof then
jj=jj+1
L="L"&jj
response.write "<a href='../Student/StudentPer.asp?ID=" & stuID & "' target='_blank'>"
response.write rs("c")
response.write "</a>"
if session("stuID")="" then
response.write " <input type='checkbox' name='" & L & "' value='" & stuID & "' checked='checked'/>"
end if
response.write " "
rs.close
set rs=nothing
stuID=""
End if
End if
next
else
response.write "<br>还没有选修此课程的学生。"
end if
if session("stuID")="" then
response.write "</p><p align='center'>是否停止选课"
response.write " <input name='stoper' type='checkbox' id='stoper' value='stoper'></p>"
response.write "<p align='center'><input type='hidden' name='ClaID' value=" & ID & ">"
response.write "<input type='hidden' name='jj' value="& jj &">"
response.write "<input type='submit' name='Submit' value='保留选中人员'>"
end if
%>
</p>
</form>
</td></tr><tr> <td height="28" colspan="4" align="center" background="../Image/bg01.jpg"> </td></tr></table>
</td>
</tr>
<tr>
<td height="25" colspan="4" align="center" bgcolor="#3399FD"> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="25"> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -