📄 stucuradd.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/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;
}
.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;
color: #ffffff;
}
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")
if ss="" then
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")
ClaID=Request.QueryString("ClaID")
Set stu = Server.CreateObject("ADODB.RecordSet")
if ID="" then
sqstu = "Select * From [StuCur] where (ID is null)"
else
sqstu = "Select * From [StuCur] where ID="&ID
end if
stu.Open Sqstu,Connkaa,1,3
If not stu.eof then
fk="选修"
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")
end if
if ClaID<>"" then
Set stw = Server.CreateObject("ADODB.RecordSet")
sqlw = "Select * From [Classs] where ID="&ClaID
stw.Open Sqlw,Connkaa,1,3
ClassName=stw("e")
ClassNo=stw("ID")
fb=stw("e")
Ksbt=ClassName&"教学计划录入"
fk="必修"
else
Ksbt="课程录入、修改"
end if
%>
</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="bottom" background="../Image/bg01a.jpg"> </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"><span class="STYLE8"><%=Ksbt%></span></td>
</tr>
</table>
<table width="80%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#DEE7FF">
<form action="?ss=100&ID=<%=ID%>" method=post id=form1 name=form1>
<tr>
<td height="28" colspan="2" align="center" background="../Image/bg01.jpg"> </td>
</tr>
<tr>
<td width="315" height="25" align="right" bgcolor="#FFFFFF"><%=stv("a")%></td>
<td width="481" align="left" bgcolor="#FFFFFF"><input name="a" type="text" id="a" value="<%=fa%>" size="30">
</td></tr>
<tr>
<td height="25" align="right" bgcolor="#FFFFFF"><%=stv("b")%></td>
<td align="left" bgcolor="#FFFFFF"><input name="b" type="text" id="b" value="<%=fb%>" size="30">
请不要改动班级信息</td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#FFFFFF"><%=stv("c")%></td>
<td align="left" bgcolor="#FFFFFF"><input name="c" type="text" id="c" value="<%=fc%>" size="30"></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#FFFFFF"><%=stv("d")%></td>
<td align="left" bgcolor="#FFFFFF"><input name="d" type="text" id="d" value="<%=fd%>" size="30"></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#FFFFFF"><%=stv("e")%></td>
<td align="left" bgcolor="#FFFFFF"><input name="e" type="text" id="e" value="<%=fe%>" size="30"></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#FFFFFF"><%=stv("f")%></td>
<td align="left" bgcolor="#FFFFFF"><input name="f" type="text" id="f" value="<%=ff%>" size="30"></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#FFFFFF"><%=stv("g")%></td>
<td align="left" bgcolor="#FFFFFF"><input name="g" type="text" id="g" value="<%=fg%>" size="30"></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#FFFFFF"><%=stv("h")%></td>
<td align="left" bgcolor="#FFFFFF"><input name="h" type="text" id="h" value="<%=fh%>" size="30"></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#FFFFFF"><%=stv("i")%></td>
<td align="left" bgcolor="#FFFFFF"><input name="i" type="text" id="i" value="<%=fi%>" size="30"></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#FFFFFF"><%=stv("j")%></td>
<td align="left" bgcolor="#FFFFFF"><input name="j" type="text" id="j" value="<%=fj%>" size="30"></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#FFFFFF"><%=stv("k")%></td>
<td align="left" bgcolor="#FFFFFF"><%call selectlist(fk)%> </td>
</tr>
<tr>
<td height="25" colspan="2" align="center" bgcolor="#FFFFFF"><span class="STYLE8"><%=stv("l")%></span></td>
</tr>
<tr>
<td height="25" colspan="2" align="center" bgcolor="#FFFFFF"><textarea name="l" cols="81" rows="10" id="l"><%=fl%></textarea></td>
</tr>
<tr>
<td height="60" colspan="2" align="center" bgcolor="#FFFFFF"><input type="submit" name="Submit" value="保 存"></td>
</tr>
<tr>
<td height="28" colspan="2" align="center" background="../Image/bg01.jpg"> </td>
</tr>
</form>
</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>
<%
else
call hdobj.AddL("StuCur","k",0)
end if
sub selectlist(Lon)
Response.Write "<select name='k' id='k'>"
if Lon<>"" then
If Lon = "必修" Then
Response.Write "<option value='必修' selected='selected'>必修</option>"
Response.Write "<option value='选修'>选修</option>"
Else
Response.Write "<option value='选修' selected='selected'>选修</option>"
Response.Write "<option value='必修'>必修</option>"
End If
Else
Response.Write "<option value='选修'>选修</option>"
Response.Write "<option value='必修'>必修</option>"
End if
Response.Write "</select>"
end sub
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -