?? stucurlm.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">
<!--
.style3 {font-size: 12px}
.style4 { color: #FFFFFF;
font-size: 14px;
}
body,td,th {
font-size: 12px;
}
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
a:link {
text-decoration: none;
color: #FFFFFF;
}
a:visited {
text-decoration: none;
color: #FFFFFF;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
.STYLE12 {font-family: "黑體"; font-size: 16px;}
.STYLE13 {color: #000066}
.STYLE14 {font-size: 12px; color: #000066; }
-->
</style>
<script language=javascript>
function winclose() {
window.opener.location.reload();
window.close();
}
</script>
</head>
<body onmouseover="self.status='紅笛軟件:服務網(wǎng)址[http://weekaa.com/red]';return true" onUnload="winclose();">
<%
dim stv,sqstv
tab="StuCur"
if request.QueryString("action") = "" then
Set stv = Server.CreateObject("ADODB.RecordSet")
sqstv = "Select * From [sets] where TB='"&tab&"'"
stv.Open Sqstv,Connkaa,1,3
ListLon=stv("lis")
if session("StuCurListLm")<>"" then
ListLon=session("StuCurListLm")
end if
Na=mid(ListLon,1,1)
Nb=mid(ListLon,2,1)
Nc=mid(ListLon,3,1)
Nd=mid(ListLon,4,1)
Ne=mid(ListLon,5,1)
Nf=mid(ListLon,6,1)
Ng=mid(ListLon,7,1)
Nh=mid(ListLon,8,1)
Ni=mid(ListLon,9,1)
Nj=mid(ListLon,10,1)
Nk=mid(ListLon,11,1)
Nl=mid(ListLon,12,1)
%>
<form name="form1" method="post" action="?action=action&ID=<%=stv("ID")%>">
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#DEE7FF">
<tr>
<td height="28" align="center" background="../Image/bg01.jpg" class="STYLE12">課 程 欄 目 設 置</td>
</tr>
<tr>
<td bgcolor="#0066CC"><table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#E8EBEE">
<tr align="center" bgcolor="#F1F3F5">
<td width="10%" height="35" bgcolor="#FFFFFF" class="style3 STYLE13">系統(tǒng)欄目</td>
<td width="10%" height="30" bgcolor="#F1F3F5" class="STYLE14"><%=stv(Na)%></td>
<td width="10%" bgcolor="#F1F3F5" class="STYLE14"><%=stv(Nb)%></td>
<td width="10%" bgcolor="#F1F3F5" class="STYLE14"><%=stv(Nc)%></td>
<td width="10%" bgcolor="#F1F3F5" class="STYLE14"><%=stv(Nd)%></td>
<td width="10%" bgcolor="#FFFFFF" class="STYLE14"><%=stv(Ne)%></td>
<td width="10%" bgcolor="#FFFFFF" class="STYLE14"><%=stv(Nf)%></td>
<td width="10%" bgcolor="#FFFFFF" class="STYLE14"><%=stv(Ng)%></td>
<td width="10%" bgcolor="#FFFFFF" class="STYLE14"><%=stv(Nh)%></td>
</tr>
<tr align="center" valign="bottom" bgcolor="#FFFFFF">
<td height="35" bgcolor="#FFFFFF"><span class="STYLE13">臨時欄目</span></td>
<td height="30" bgcolor="#FFFFFF"><%call hdobj.Solista("StuCur", "Ma",1,1)%></td>
<td bgcolor="#FFFFFF"><%call hdobj.Solista("StuCur", "Mb",2,1)%></td>
<td bgcolor="#FFFFFF"><%call hdobj.Solista("StuCur", "Mc",3,1)%></td>
<td bgcolor="#FFFFFF"><%call hdobj.Solista("StuCur", "Md",4,1)%></td>
<td bgcolor="#FFFFFF"><%call hdobj.Solista("StuCur", "MEE",5,1)%></td>
<td bgcolor="#FFFFFF"><%call hdobj.Solista("StuCur", "Mf",6,1)%></td>
<td bgcolor="#FFFFFF"><%call hdobj.Solista("StuCur", "Mg",7,1)%></td>
<td bgcolor="#FFFFFF"><%call hdobj.Solista("StuCur", "Mh",8,1)%></td>
</tr>
</table></td>
</tr>
<tr>
<td height="28" align="center" background="../Image/bg01.jpg" class="STYLE12"><input type="submit" name="Submit" value="提 交"></td>
</tr>
</table>
</form>
<p>
<%
else
Ma=trim(request.form("Ma"))
Mb=trim(request.form("Mb"))
Mc=trim(request.form("Mc"))
Md=trim(request.form("Md"))
MEE=trim(request.form("MEE"))
Mf=trim(request.form("Mf"))
Mg=trim(request.form("Mg"))
Mh=trim(request.form("Mh"))
MLL=Ma&Mb&Mc&Md&MEE&Mf&Mg&Mh&"ijkl"
session("StuCurListLm")=MLL
end if
%>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -